mirror of https://gitlab.com/QEF/q-e.git
212 lines
6.2 KiB
Fortran
212 lines
6.2 KiB
Fortran
!
|
|
! Copyright (C) 2002-2005 FPMD-CPV groups
|
|
! 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 .
|
|
!
|
|
!==-----------------------------------------------------------------------==!
|
|
MODULE environment
|
|
!==-----------------------------------------------------------------------==!
|
|
|
|
USE kinds
|
|
USE io_files, ONLY: crash_file, crashunit, &
|
|
stop_file, stopunit
|
|
|
|
IMPLICIT NONE
|
|
SAVE
|
|
|
|
PRIVATE
|
|
|
|
REAL(DP) :: start_seconds
|
|
REAL(DP) :: start_cclock_val
|
|
|
|
PUBLIC :: environment_start
|
|
PUBLIC :: environment_end
|
|
PUBLIC :: opening_date_and_time, closing_date_and_time
|
|
PUBLIC :: start_cclock_val
|
|
|
|
!==-----------------------------------------------------------------------==!
|
|
CONTAINS
|
|
!==-----------------------------------------------------------------------==!
|
|
|
|
|
|
SUBROUTINE environment_start( )
|
|
|
|
USE io_global, ONLY: stdout, ionode
|
|
USE mp_global, ONLY: mpime, nproc
|
|
USE parser, ONLY: int_to_char
|
|
use para_mod, ONLY: me, node
|
|
use mp, only: mp_env
|
|
USE cp_version
|
|
|
|
LOGICAL :: texst
|
|
REAL(DP) :: elapsed_seconds, cclock
|
|
EXTERNAL elapsed_seconds, cclock
|
|
INTEGER :: nchar
|
|
CHARACTER(LEN=80) :: uname
|
|
CHARACTER(LEN=80) :: version_str
|
|
|
|
|
|
CALL init_clocks( .TRUE. )
|
|
CALL start_clock( 'CP' )
|
|
|
|
start_seconds = elapsed_seconds()
|
|
start_cclock_val = cclock( )
|
|
|
|
version_str = TRIM (version_number) // " - " // TRIM (version_date)
|
|
|
|
! ... Temporary for para_mod
|
|
|
|
me = mpime + 1
|
|
|
|
! ... search for file CRASH and delete it
|
|
|
|
IF( ionode ) THEN
|
|
INQUIRE( FILE=TRIM(crash_file), EXIST=texst )
|
|
IF( texst ) THEN
|
|
OPEN( UNIT=crashunit, FILE=TRIM(crash_file), STATUS='OLD' )
|
|
CLOSE( UNIT=crashunit, STATUS='DELETE' )
|
|
END IF
|
|
END IF
|
|
|
|
! ... each processor other than me=1 opens its own standard output file,
|
|
! ... this is mainly for debugging, usually only ionode writes to stdout
|
|
|
|
IF( .NOT. ionode ) THEN
|
|
|
|
uname = 'out.' // int_to_char( mpime )
|
|
nchar = INDEX(uname,' ') - 1
|
|
|
|
!
|
|
! useful for debugging purposes
|
|
! open( unit = stdout, file = uname(1:nchar),status='unknown')
|
|
open( unit = stdout, file='/dev/null', status='unknown' )
|
|
|
|
END IF
|
|
|
|
! ... Temporary for para_mod
|
|
|
|
if (me < 10) then
|
|
write(node,'(i1,2x)') me
|
|
else if (me < 100) then
|
|
write(node,'(i2,1x)') me
|
|
else if (me < 1000) then
|
|
write(node,'(i3)') me
|
|
else
|
|
call errore('startup','wow, >1000 nodes !!',nproc)
|
|
end if
|
|
|
|
CALL opening_date_and_time( version_str )
|
|
|
|
#if defined __MPI
|
|
|
|
WRITE( stdout,100) nproc, mpime
|
|
100 FORMAT(3X,'MPI Parallel Build',/,3X,'Tasks =',I5,' This task id =',I5)
|
|
|
|
#else
|
|
|
|
WRITE( stdout,100)
|
|
100 FORMAT(3X,'Serial Build')
|
|
|
|
#endif
|
|
|
|
RETURN
|
|
END SUBROUTINE environment_start
|
|
|
|
!==-----------------------------------------------------------------------==!
|
|
|
|
SUBROUTINE environment_end( )
|
|
|
|
USE io_global, ONLY: stdout, ionode
|
|
|
|
REAL(DP) :: total_seconds
|
|
|
|
REAL(DP) :: elapsed_seconds
|
|
EXTERNAL elapsed_seconds
|
|
|
|
IF(ionode) THEN
|
|
WRITE( stdout,*)
|
|
END IF
|
|
|
|
CALL print_clock( 'CP' )
|
|
CALL stop_clock( 'CP' )
|
|
|
|
CALL closing_date_and_time( )
|
|
|
|
total_seconds = elapsed_seconds() - start_seconds
|
|
|
|
IF(ionode) THEN
|
|
WRITE( stdout,'(A,F7.1)') ' ELAPSED SECONDS: ', total_seconds
|
|
WRITE( stdout,'(A)') ' JOB DONE.'
|
|
WRITE( stdout,3335)
|
|
END IF
|
|
3335 FORMAT('=',78('-'),'=')
|
|
|
|
RETURN
|
|
END SUBROUTINE environment_end
|
|
|
|
!==-----------------------------------------------------------------------==!
|
|
|
|
SUBROUTINE opening_date_and_time( version_str )
|
|
|
|
USE io_global, ONLY: stdout, ionode
|
|
|
|
CHARACTER(LEN=*), INTENT(IN) :: version_str
|
|
CHARACTER(LEN=9) :: cdate, ctime
|
|
CHARACTER(LEN=80) :: time_str
|
|
|
|
CALL date_and_tim(cdate, ctime)
|
|
time_str = 'This run was started on: ' // ctime // ' ' // cdate
|
|
|
|
! ... write program heading
|
|
|
|
|
|
IF(ionode) THEN
|
|
WRITE( stdout,3331)
|
|
WRITE( stdout,3332) version_str
|
|
WRITE( stdout,3331)
|
|
WRITE( stdout,3334) time_str
|
|
END IF
|
|
|
|
3331 FORMAT('=',78('-'),'=')
|
|
3332 FORMAT( /, 5X,'CP: variable-cell Car-Parrinello molecular dynamics',/&
|
|
& ,5X,'using norm-conserving and ultrasoft Vanderbilt pseudopotentials',//&
|
|
& ,5X,'Version: ',A60,/&
|
|
& ,5X,'Authors: Alfredo Pasquarello, Kari Laasonen, Andrea Trave, Roberto Car,',/&
|
|
& ,5X,' Paolo Giannozzi, Nicola Marzari, Carlo Cavazzoni, Guido Chiarotti,',/&
|
|
& ,5X,' Sandro Scandolo, Paolo Focher, Gerardo Ballabio, and others',/)
|
|
|
|
3334 FORMAT(/,3X,A60,/)
|
|
RETURN
|
|
END SUBROUTINE opening_date_and_time
|
|
|
|
!==-----------------------------------------------------------------------==!
|
|
|
|
SUBROUTINE closing_date_and_time( )
|
|
|
|
USE io_global, ONLY: stdout, ionode
|
|
|
|
CHARACTER(LEN=9) :: cdate, ctime
|
|
CHARACTER(LEN=80) :: time_str
|
|
|
|
CALL date_and_tim(cdate, ctime)
|
|
|
|
time_str = 'This run was terminated on: ' // ctime // ' ' // cdate
|
|
|
|
IF( ionode ) THEN
|
|
WRITE( stdout,*)
|
|
WRITE( stdout,3334) time_str
|
|
WRITE( stdout,3335)
|
|
END IF
|
|
|
|
3334 FORMAT(3X,A60,/)
|
|
3335 FORMAT('=',78('-'),'=')
|
|
|
|
RETURN
|
|
END SUBROUTINE closing_date_and_time
|
|
|
|
!==-----------------------------------------------------------------------==!
|
|
END MODULE environment
|
|
!==-----------------------------------------------------------------------==!
|