/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/ |
H A D | ccfndop.F | 20 SUBROUTINE CC_FIND_SO_OP(LABELA,LABELB,LABSOP,ISYSOP,ISIGN,INUM, argument 57 CHARACTER*8 LABELA, LABELB, LABSOP local 76 INUM = IROPER2(LABELA,LABELB,LABSOP,ISIGN,ISYSOP) 117 WRITE(LABSOP,'(A3,A3,A2)') LABELB(6:8), 'QDG', LABELA(1:2) 123 WRITE(LABSOP,'(A3,A3,A2)') LABELA(6:8), 'QDG', LABELB(1:2) 132 WRITE(LABSOP,'(A2,A3,A3)') LABELB(7:8), 'OCG', LABELA(1:3) 232 IF (FOUND .AND. LABSOP(1:2).NE.'->') THEN 262 IF (FOUND .AND. LABSOP(1:2).EQ.'->') THEN 276 INUM = IROPER2(LABELA,LABELB,LABSOP,ISIGN,ISYSOP) 283 INUMAB = IROPER(LABSOP,ISYSOP) [all …]
|
H A D | iroper2.F | 22 INTEGER FUNCTION IROPER2(NEWLBLA,NEWLBLB,LABSOP,ISIGN,ISYSOP) 47 CHARACTER*8 NEWLBLA, NEWLBLB, LABSOP 59 IF ( LABSOP.EQ.LBLOP2(I,3) ) THEN 80 * 'IROPER2> ISYSOP,ISIGN,LABSOP:',ISYSOP,ISIGN,LABSOP 90 * LABSOP,'" NOT AVAILABLE.' 92 * 'IROPER2> ISYSOP,ISIGN,LABSOP:',ISYSOP,ISIGN,LABSOP 105 LABSOP = LBLOP2(I,3) 111 * 'IROPER2> ISYSOP,ISIGN,LABSOP:',ISYSOP,ISIGN,LABSOP 136 LBLOP2(NRSO2LBL,3) = LABSOP 149 IOP2 = IROPER(LABSOP,ISYSOP)
|
H A D | cclr_setup.F | 109 CHARACTER LABELA*(8), LABELB*(8), LABSOP*(8) local 329 CALL CC_FIND_SO_OP(LABELA,LABELB,LABSOP,ISYOP,ISGNSOP, 334 IEXPV = IEXPECT(LABSOP,ISYOP,1) 337 WNUCL = CC_NUCCON(LABSOP,ISYOP)
|
H A D | ccmcd_setup.F | 108 CHARACTER*8 LABELA,LABELB,LABELC,LABSOP 323 & LABSOP,ISYSOP,ISGNSOP,INUM, 325 IOPSOP = IROPER(LABSOP,ISYSOP)
|
H A D | ccrspsym.F | 2150 CHARACTER*8 LABEL, LABELA, LABELB, LABSOP 2291 CALL CC_FIND_SO_OP(LABELA,LABELB,LABSOP,ISYSOP, 2294 INUM = IEFFFOCK(LABSOP,ISYSOP,2) 2295 INUM = IEXPECT(LABSOP,ISYSOP,2) 2297 IF (LABSOP(4:6).EQ.'DPG') THEN 2299 ELSE IF (LABSOP(3:5).EQ.'QDG') THEN 2301 ELSE IF (LABSOP(3:5).EQ.'OCG') THEN 2303 ELSE IF (LABSOP(2:6).EQ.'-CM1 ') THEN 2305 ELSE IF (LABSOP(4:7).EQ.' NST') THEN 2419 CHARACTER*8 LABELA, LABELB, LABELC, LABSOP [all …]
|
H A D | ccqr_setup.F | 115 CHARACTER*(8) LABSOP 441 & LABSOP,ISYSOP,ISGNSOP,INUM,WORK,LWORK) 442 IOPSOP = IROPER(LABSOP,ISYSOP) 457 & LABSOP,ISYSOP,ISGNSOP,INUM,WORK,LWORK) 458 IOPSOP = IROPER(LABSOP,ISYSOP) 473 & LABSOP,ISYSOP,ISGNSOP,INUM,WORK,LWORK) 474 IOPSOP = IROPER(LABSOP,ISYSOP)
|
H A D | cc_mcdny.F | 84 CHARACTER*8 LABELA, LABELB, LABELC, LABSOP 781 & LABSOP,ISYSOP,ISGNSOP,INUM, 783 IOPSOP = IROPER(LABSOP,ISYSOP)
|
H A D | cc_hyppol.F | 68 CHARACTER*8 LABSOP local 656 & LABSOP,ISYSOP,ISGNSOP,INUM,WORK,LWORK) 657 IOPSOP = IROPER(LABSOP,ISYSOP) 673 & LABSOP,ISYSOP,ISGNSOP,INUM,WORK,LWORK) 674 IOPSOP = IROPER(LABSOP,ISYSOP) 690 & LABSOP,ISYSOP,ISGNSOP,INUM,WORK,LWORK) 691 IOPSOP = IROPER(LABSOP,ISYSOP)
|
H A D | ccrhsvec.F | 787 CHARACTER*8 LABSOP 870 & LABSOP,ISGNSOP,ISYSOP) 871 IOP2(IDXAB) = IROPER(LABSOP,ISYSOP)
|
H A D | cc_lr.F | 77 CHARACTER LABELA*8, LABELB*8, LABSOP*8 local 545 CALL CC_FIND_SO_OP(LABELA,LABELB,LABSOP,ISYSOP,ISGNSOP, 548 IEXPV = IEXPECT(LABSOP,ISYSOP) 551 XNUCL = CC_NUCCON(LABSOP,ISYSOP) 556 WRITE (LUPRI,*) LABSOP, 688 CALL CC_FIND_SO_OP(LABELA,LABELB,LABSOP,ISYSOP, 691 IEXPV = IEXPECT(LABSOP,ISYSOP) 693 XNUCL = CC_NUCCON(LABSOP,ISYSOP)
|