mirror of https://gitlab.com/QEF/q-e.git
117 lines
3.1 KiB
Fortran
117 lines
3.1 KiB
Fortran
!
|
|
! Copyright (C) 2001-2004 PWSCF group
|
|
! 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 .
|
|
!
|
|
!----------------------------------------------------------------------------
|
|
PROGRAM pwscf
|
|
!----------------------------------------------------------------------------
|
|
!
|
|
! ... Plane Wave Self-Consistent Field code
|
|
!
|
|
USE io_global, ONLY : stdout
|
|
USE parameters, ONLY : ntypx, npk, lmaxx, nchix, ndmx, nqfx, nbrx
|
|
USE global_version, ONLY : version_number
|
|
USE wvfct, ONLY : gamma_only
|
|
USE noncollin_module, ONLY : noncolin
|
|
USE control_flags, ONLY : nstep, istep, conv_elec, conv_ions, lpath
|
|
USE io_files, ONLY : nd_nmbr, iunpath, tmp_dir
|
|
USE path_variables, ONLY : conv_path
|
|
USE path_base, ONLY : initialize_path, search_mep
|
|
USE path_io_routines, ONLY : io_path_start, io_path_stop
|
|
USE io_global, ONLY : ionode
|
|
!
|
|
IMPLICIT NONE
|
|
!
|
|
! ... local variables
|
|
!
|
|
CHARACTER (LEN=9) :: code = 'PWSCF'
|
|
!
|
|
!
|
|
! ... use ".FALSE." to disable all clocks except the total cpu time clock
|
|
! ... use ".TRUE." to enable clocks
|
|
!
|
|
CALL init_clocks( .TRUE. )
|
|
CALL start_clock( code )
|
|
!
|
|
CALL startup( nd_nmbr, code, version_number )
|
|
!
|
|
IF ( ionode ) THEN
|
|
!
|
|
WRITE( UNIT = stdout, &
|
|
FMT = '(/5X,"Ultrasoft (Vanderbilt) Pseudopotentials")')
|
|
!
|
|
WRITE( unit = stdout, FMT = 9010 ) &
|
|
ntypx, npk, lmaxx, nchix, ndmx, nbrx, nqfx
|
|
!
|
|
END IF
|
|
!
|
|
CALL iosys()
|
|
!
|
|
IF ( ionode .AND. noncolin ) &
|
|
WRITE( UNIT = stdout, &
|
|
& FMT = '(/,5X,"non-colinear magnetization allowed",/)' )
|
|
IF ( ionode .AND. gamma_only ) &
|
|
WRITE( UNIT = stdout, &
|
|
& FMT = '(/,5X,"gamma-point specific algorithms are used",/)' )
|
|
!
|
|
IF ( lpath ) THEN
|
|
!
|
|
CALL io_path_start()
|
|
!
|
|
CALL initialize_path( 'PW' )
|
|
!
|
|
! ... this routine does all the "string" job
|
|
!
|
|
CALL search_mep()
|
|
!
|
|
CALL io_path_stop()
|
|
!
|
|
CALL stop_pw( conv_path )
|
|
!
|
|
ELSE
|
|
!
|
|
CALL init_run()
|
|
!
|
|
istep = 0
|
|
!
|
|
main_loop : DO WHILE ( istep < nstep )
|
|
!
|
|
istep = istep + 1
|
|
!
|
|
! ... electronic self-consistentcy
|
|
!
|
|
CALL electrons()
|
|
!
|
|
IF ( .NOT. conv_elec ) CALL stop_pw( conv_elec )
|
|
!
|
|
! ... if requested ions are moved
|
|
!
|
|
CALL ions()
|
|
!
|
|
! ... ionic convergence is checked here
|
|
!
|
|
IF ( conv_ions ) EXIT main_loop
|
|
!
|
|
! ... the ionic part of the hamiltonian is reinitialized
|
|
!
|
|
CALL hinit1()
|
|
!
|
|
END DO main_loop
|
|
!
|
|
CALL punch()
|
|
!
|
|
CALL stop_pw( conv_ions )
|
|
!
|
|
END IF
|
|
!
|
|
STOP
|
|
!
|
|
9010 FORMAT( /,5X,'Current dimensions of program pwscf are:', /, &
|
|
& /,5X,'ntypx = ',I2,' npk = ',I5,' lmax = ',I2 &
|
|
& /,5X,'nchix = ',I2,' ndmx = ',I5,' nbrx = ',I2,' nqfx = ',I2 )
|
|
!
|
|
END PROGRAM pwscf
|