| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/include/ |
| H A D | ccinftap.h | 2 ! & LUTOC, LU3SRT, LUBFDN, LURES,
13 ! & LUTOC, LU3SRT, LUBFDN, LURES, LUCSOL,
|
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/ |
| H A D | cc3_t3int3.F | 21 * WORK,LWORK,IDEL,ISYDEL,LU3SRT,FN3SRT,
41 INTEGER LU3SRT, LU3SRT2, LU3SRT3, LUCKJD, LUCKJD2, LUCKJD3
106 CALL PUTWA2(LU3SRT,FN3SRT,WORK(KXCKD),IOFF,LENGTH)
|
| H A D | cc_lhtr.F | 249 LU3SRT = -1
271 CALL WOPEN2(LU3SRT,FN3SRT,64,0)
2033 * WORK(KEND2),LWRK2,LU3SRT,FN3SRT,
2150 CALL WCLOSE2(LU3SRT,FN3SRT,'KEEP')
|
| H A D | ccsd_energy.F | 3070 LU3SRT = -1
3072 CALL WOPEN2(LU3SRT,FN3SRT,64,0)
3079 * LU3SRT,FN3SRT)
3081 CALL WCLOSE2(LU3SRT,FN3SRT,'KEEP')
3255 LU3SRT = -1
3265 CALL WOPEN2(LU3SRT,FN3SRT,64,0)
3272 CALL CC3_SORT1(WORK,LWORK,1,ISYINT,LU3SRT,FN3SRT,
3276 CALL WCLOSE2(LU3SRT,FN3SRT,'KEEP')
5371 SUBROUTINE CC3_SORT1(WORK,LWORK,IOPT,ISYINT,LU3SRT,FN3SRT,
5458 CALL GETWA2(LU3SRT,FN3SRT,WORK(KSCR1),IOFF,LENGTH)
|
| H A D | cc3_omeg3.F | 22 * LU3SRT,FN3SRT,LUTOC,FNTOC,LUCKJD,FNCKJD)
54 INTEGER ISYMD, ISYCKB, ISCKB1, ISCKB2, LU3SRT, LUTOC, LUCKJD
142 CALL CC3_SORT1(WORK,LWORK,2,ISINT2,LU3SRT,FN3SRT,LUDELD,FNDELD,
1933 * FOCK,XLAMDP,XLAMDH,WORK,LWORK,LU3SRT,FN3SRT,
1984 INTEGER LUDELD, LUDKBC, LU3SRT, LU3VI, LU3VI2, LUCKJD
2142 CALL CC3_SORT1(WORK,LWORK,2,ISINT22,LU3SRT,FN3SRT,
2157 CALL CC3_SORT2(WORK,LWORK,ISINT22,LU3SRT,FN3SRT,LU3VI4,FN3VI4)
5007 SUBROUTINE CC3_SORT2(WORK,LWORK,ISYINT,LU3SRT,FN3SRT, argument
5074 CALL GETWA2(LU3SRT,FN3SRT,WORK(KSCR1),IOFF,LENGTH)
|
| H A D | cc3_omeg.F | 21 * FOCK,XLAMDP,XLAMDH,WORK,LWORK,LU3SRT,FN3SRT,
116 CALL CC3_SORT1(WORK,LWORK,2,ISINT2,LU3SRT,FN3SRT,
|
| H A D | ccsd_rhs.F | 159 LU3SRT = -1
174 CALL WOPEN2(LU3SRT,FN3SRT,64,0)
658 * LU3SRT,FN3SRT,LUCKJD,FNCKJD)
1725 * WORK(KEND2),LWRK2,LU3SRT,FN3SRT,LUDELD,
2253 CALL WCLOSE2(LU3SRT,FN3SRT,'KEEP')
|
| H A D | cc3_lhtr.F | 22 * LU3SRT,FN3SRT,LUCKJD,FNCKJD)
52 INTEGER LU3SRT, LUCKJD, LUDELD, LUDKBC
119 CALL CC3_SORT1(WORK,LWORK,2,ISINT2,LU3SRT,FN3SRT,
|