Home
last modified time | relevance | path

Searched refs:LABSOP (Results 1 – 10 of 10) sorted by relevance

/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/
H A Dccfndop.F20 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 Diroper2.F22 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 Dcclr_setup.F109 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 Dccmcd_setup.F108 CHARACTER*8 LABELA,LABELB,LABELC,LABSOP
323 & LABSOP,ISYSOP,ISGNSOP,INUM,
325 IOPSOP = IROPER(LABSOP,ISYSOP)
H A Dccrspsym.F2150 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 Dccqr_setup.F115 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 Dcc_mcdny.F84 CHARACTER*8 LABELA, LABELB, LABELC, LABSOP
781 & LABSOP,ISYSOP,ISGNSOP,INUM,
783 IOPSOP = IROPER(LABSOP,ISYSOP)
H A Dcc_hyppol.F68 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 Dccrhsvec.F787 CHARACTER*8 LABSOP
870 & LABSOP,ISGNSOP,ISYSOP)
871 IOP2(IDXAB) = IROPER(LABSOP,ISYSOP)
H A Dcc_lr.F77 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)