1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Subroutine Get_flags(FlgACESElec, FlgACESGrad, FlgACESHess,
& FlgACESForc)
Implicit Double Precision(A-H, O-Z)
C
Logical FlgACESElec, FlgACESGrad, FlgACESHess, FlgACESForc
C
Call Getrec(0,'JOBARC', 'TOTENERG', JLength, A2Ener)
If (JLength .GT. 0) FlgACESElec = .TRUE.
Call Getrec(0,'JOBARC', 'GRADIENT', JLength, VGrad)
If (JLength .GT. 0) FlgACESGrad = .TRUE.
Call Getrec(0,'JOBARC', 'CART_HES', JLength, VHess)
If (JLength .GT. 0) FlgACESHess = .TRUE.
Call Getrec(0, "JOBARC", 'FORCECON', JLength, Omega)
If (JLength .GT. 0) FlgACESForc = .TRUE.
Return
End
|
