DALTON/cc/cc_r12.F

2265          LUNIT = -1
2267            LUNIT = -1
2268            CALL GPOPEN(LUNIT,'CCR12_C','UNKNOWN',' ','FORMATTED',
2270            WRITE(LUNIT,'(4E30.20)') CS11
2271            WRITE(LUNIT,'(4E30.20)') CT11
2272            CALL GPCLOSE(LUNIT,'KEEP')
2287          LUNIT = -1
2295            LUNIT = -1
2296            CALL GPOPEN(LUNIT,'CCR12_C','UNKNOWN',' ','FORMATTED',
2298            WRITE(LUNIT,'(4E30.20)') CS11
2299            WRITE(LUNIT,'(4E30.20)') CT11
2300            CALL GPCLOSE(LUNIT,'KEEP')
2343             LUNIT = -1
2345               LUNIT = -1
2346               CALL GPOPEN(LUNIT,'CCR12_C','UNKNOWN',' ','FORMATTED',
2348               WRITE(LUNIT,'(4E30.20)') CS11
2349               WRITE(LUNIT,'(4E30.20)') CT11
2350               CALL GPCLOSE(LUNIT,'KEEP')
2788          LUNIT = -1
2789          CALL GPOPEN(LUNIT,'R12FVIR','UNKNOWN',' ','UNFORMATTED',IDUMMY,
2791          READ (LUNIT) (WORK(KFCKMIX+I-1), I=1, NR12xVIR)
2792          CALL GPCLOSE(LUNIT,'KEEP')
2931         LUNIT = -1
2945          LUNIT = -1
2946          CALL GPOPEN(LUNIT,'AUXQSA12','UNKNOWN','SEQUENTIAL',
2948          WRITE(LUNIT,'(4E30.20)') (QV(J+1), J = 0, (NORB1T-NRHFST)
2950          CALL GPCLOSE(LUNIT,'KEEP')
2961          LUNIT = -1
2962          CALL GPOPEN(LUNIT,'AUXQSAJ12','UNKNOWN','SEQUENTIAL',
2964          WRITE(LUNIT,'(4E30.20)') (QV(J+1), J = 0, (NVIR0T)
2966          CALL GPCLOSE(LUNIT,'KEEP')
2977          LUNIT = -1
2978          CALL GPOPEN(LUNIT,'AUXQSAI12','UNKNOWN','SEQUENTIAL',
2980          WRITE(LUNIT,'(4E30.20)') (QV(J+1), J = 0, (NVIR0T)
2982          CALL GPCLOSE(LUNIT,'KEEP')
3989                 LUNIT = -1
3990                 CALL GPOPEN(LUNIT,'INCJDA',
3992                 REWIND(LUNIT)
3993                 READ(LUNIT) (WORK(KFRIN+I-1), I = 1,NFROVR(1))
3994                 CALL GPCLOSE(LUNIT,'DELETE')
3996                 LUNIT = -1
3997                 CALL GPOPEN(LUNIT,'INCJDI',
3999                 REWIND(LUNIT)
4000                 READ(LUNIT) (WORK(KFRIN1+I-1), I = 1,NFROVF(1))
4001                 CALL GPCLOSE(LUNIT,'DELETE')