Searched refs:LUE2 (Results 1 – 8 of 8) sorted by relevance
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/ |
| H A D | cc_lhtr3.F | 1356 LUE2 = -1
1357 CALL GPOPEN(LUE2,'CC_E2IM','UNKNOWN',' ','UNFORMATTED',IDUMMY,
1359 REWIND(LUE2)
1360 READ(LUE2) (WORK(KE2INT + J - 1), J = 1,NMATIJ(ISYMOP))
1361 CALL GPCLOSE(LUE2,'KEEP')
|
| H A D | cc_rhtr3.F | 97 INTEGER LUE2, ISYMEI, ISYMIM, ISYVEC, LUGAM, ISYGAM, ISYCIM local
1772 LUE2 = -1
1773 CALL GPOPEN(LUE2,'CC_E2IM','UNKNOWN',' ','UNFORMATTED',IDUMMY,
1775 REWIND(LUE2)
1776 READ (LUE2)(WORK(KEI2 + J-1),J = 1,NMATIJ(ISYMOP))
1777 CALL GPCLOSE(LUE2,'KEEP' )
2797 CALL GPOPEN(LUE2,'CC_E2IM','UNKNOWN',' ','UNFORMATTED',
2799 REWIND(LUE2)
2800 READ (LUE2)(WORK(KEI2 + J-1),J = 1,NMATIJ(ISYMOP))
2801 CALL GPCLOSE(LUE2,'KEEP' )
|
| H A D | cc_lhtr.F | 1684 LUE2 = -1
1685 CALL GPOPEN(LUE2,'CC_E2IM','UNKNOWN',' ','UNFORMATTED',IDUMMY,
1687 REWIND(LUE2)
1688 READ(LUE2) (WORK(KE2INT + J - 1), J = 1,NMATIJ(ISYMOP))
1689 CALL GPCLOSE(LUE2,'KEEP')
|
| H A D | ccsd_rhs3.F | 70 INTEGER KGAMMA, ISYMBF, LUGAM, LUFCK, ISYMEI, LUE1, LUE2 local
|
| H A D | cc_landf.F | 2487 LUE2 = -1
2488 CALL GPOPEN(LUE2,'CC_E2IM','UNKNOWN',' ','UNFORMATTED',IDUMMY,
2490 REWIND(LUE2)
2491 READ(LUE2) (WORK(KSMAT+I-1),I = 1,NMATIJ(ISYMOP))
2492 CALL GPCLOSE(LUE2,'KEEP')
|
| H A D | cc_rhtr.F | 1559 LUE2 = -1
1560 CALL GPOPEN(LUE2,'CC_E2IM','UNKNOWN',' ','UNFORMATTED',IDUMMY,
1562 REWIND(LUE2 )
1563 READ (LUE2 )(WORK(KEI2+ J-1),J = 1,NMATIJ(ISYMOP))
1564 CALL GPCLOSE(LUE2,'KEEP')
|
| H A D | cc_bmat.F | 4809 LUE2 = -1
4810 CALL GPOPEN(LUE2,'CC_E2IM','UNKNOWN',' ','UNFORMATTED',IDUMMY,
4812 REWIND(LUE2)
4813 READ (LUE2) (WORK(KEI2+ J-1),J = 1,NMATIJ(ISYMOP))
4814 CALL GPCLOSE(LUE2,'KEEP' )
|
| H A D | ccsd_rhs.F | 1907 LUE2 = -1
1908 CALL GPOPEN(LUE2,'CC_E2IM','UNKNOWN',' ','UNFORMATTED',
1910 REWIND(LUE2)
1911 WRITE(LUE2)(WORK(KEMAT2+ I-1),I = 1,NMATIJ(ISYMOP))
1912 CALL GPCLOSE(LUE2,'KEEP' )
|