Commit c1482e3e authored by He MA's avatar He MA
Browse files

tested timing

parent 2d63351f
!
! Copyright (C) 2015-2017 M. Govoni
! This file is distributed under the terms of the
! GNU General Public License. See the file `License'
! in the root directory of the present distribution,
! or http://www.gnu.org/copyleft/gpl.txt .
!
! Contributors to this file:
! Marco Govoni
!
!-----------------------------------------------------------------------
MODULE west_version
!-----------------------------------------------------------------------
!
IMPLICIT NONE
!
SAVE
!
CHARACTER (LEN=6) :: west_version_number = '3.1.0'
CHARACTER (LEN=12) :: west_svn_revision = 'unknown'
!
END MODULE
......@@ -24,7 +24,7 @@ PROGRAM wstat
USE wavefunctions_module, ONLY : evc
USE function3d
USE pwcom, ONLY : npw,npwx
USE westcom, ONLY : n_pdep_eigen
USE westcom, ONLY : n_pdep_eigen, n_pdep_times
!
IMPLICIT NONE
!
......@@ -54,18 +54,18 @@ PROGRAM wstat
nz = n_pdep_eigen
!
PRINT*, 'nx, ny, nz = ', nx, ny, nz
DO i = 1, 100
DO i = 1, n_pdep_times
!
PRINT*, 'Writing ', i, '%'
PRINT*, 'Writing ', i, '/', n_pdep_times
CALL write_function3d( 'wfcl.f3d', nx, ny, nz, npw, npwx, evc(:, 3))
!
ENDDO
!
CALL mp_barrier( world_comm )
!
DO i = 1, 100
DO i = 1, n_pdep_times
!
PRINT*, 'Reading ', i, '%'
PRINT*, 'Reading ', i, '/', n_pdep_times
CALL read_function3d ( 'wfcl.f3d', nx, ny, nz, npw, npwx, evc(:, 3))
!
ENDDO
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment