/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/ |
H A D | wplot.f | 121 DO 1050 J=1,NALPHA 133 DO 1070 J=1,NALPHA 145 DO 1090 J=1,NALPHA 157 DO 1110 J=1,NALPHA 169 DO 1130 J=1,NALPHA 181 DO 1150 J=1,NALPHA 193 DO 1170 J=1,NALPHA 205 DO 1190 J=1,NALPHA 217 DO 1210 J=1,NALPHA 229 DO 1230 J=1,NALPHA [all …]
|
H A D | wbaero.f | 25 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,NF,LF,L local 53 1 FACT(22),NALPHA) 67 NLA=NALPHA 69 DO 900 J=1,NALPHA 74 DO 1000 J=1,NALPHA 75 CALL TBFUNX(FLC(J+22),X,BW(J+100),NALPHA,FLC(23),BW(21), 97 1 FACT(163),NALPHA) 111 DO 1020 J=1,NALPHA 112 CALL TBFUNX(FLC(J+22),X,BH(J+100),NALPHA,FLC(23),BH(21), 125 DO 1050 J=1,NALPHA [all …]
|
H A D | outpt4.f | 5 COMMON /OVERLY/ NLOG,NMACH,M,NALPHA,IG local 30 CALL ALDLPR(ALPHA,DELTA,HYP( 1),NALPHA,NDELTA) 32 CALL ALDLPR(ALPHA,DELTA,HYP(201),NALPHA,NDELTA) 38 CALL ALDLPR(ALPHA,DELTA,HYP(401),NALPHA,NDELTA) 40 CALL ALDLPR(ALPHA,DELTA,HYP(601),NALPHA,NDELTA) 41 DO 1020 I=1,NALPHA 57 CALL ALDLPR(ALPHA,DELTA,TEMP,NALPHA,NDELTA) 58 DO 1050 I=1,NALPHA 68 CALL ALDLPR(ALPHA,DELTA,TEMP ,NALPHA,NDELTA)
|
H A D | m31o37.f | 5 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,IJKDUM(3),NOVLY local 28 DO 1000 J=1,NALPHA 33 CALL TBFUNX(FLC(J+22),X,WING(J+100),NALPHA,FLC(23),WING(21), 35 CALL TBFUNX(FLC(J+22),X,WING(J+120),NALPHA,FLC(23),WING(41), 40 IF(KWING)CALL TBFUNX(0.,X,CLA,NALPHA,FLC(23), 42 IF(KWING)CALL TBFUNX(0.,X,CMA,NALPHA,FLC(23), 51 DO 1010 J=2,NALPHA
|
H A D | m33o41.f | 5 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,IJKDUM(3),NOVLY local 25 DO 1010 J=1,NALPHA 30 CALL TBFUNX(FLC(J+22),X,HT(J+100),NALPHA,FLC(23),HT(21), 32 CALL TBFUNX(FLC(J+22),X,HT(J+120),NALPHA,FLC(23),HT(41), 37 IF(KHT)CALL TBFUNX(0.,X,CLA,NALPHA,FLC(23),HT(21),C1,IN,MI,NG, 39 IF(KHT)CALL TBFUNX(0.,X,CMA,NALPHA,FLC(23),HT(41),C1,IM,MI,NG, 48 DO 1020 J=2,NALPHA
|
H A D | grdeff.f | 13 COMMON /OVERLY/ NLOG, NMACH, I, NALPHA, IG local 279 1210 DO 1220 J=1,NALPHA 298 DO 1240 J=1,NALPHA 315 DO 1270 J=1,NALPHA 324 DO 1300 J=1,NALPHA 337 DO 1310 J=1,NALPHA 342 DO 1350 J=1,NALPHA 377 DO 1360 J=1,NALPHA 401 DO 1370 J=1,NALPHA 412 DO 1380 J=1,NALPHA [all …]
|
H A D | m20o24.f | 18 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,NF,LF,L,NOVLY local 37 DO 1000 J=1,NALPHA 59 DO 1010 J=1,NALPHA 82 DO 1020 J=1,NALPHA 88 CALL TBFUNX(FLC(J+22),X,BW(J+100),NALPHA,FLC(23),BW(21), 96 DO 1030 J=1,NALPHA 111 DO 1050 J=1,NALPHA 117 CALL TBFUNX(FLC(J+22),X,BH(J+100),NALPHA,FLC(23),BH(21), 125 DO 1070 J=1,NALPHA
|
H A D | subryw.f | 7 COMMON /OVERLY/ NLOG,NMACH,IM,NALPHA local 344 NNALPH=NALPHA+1 348 DO 1010 J=1,NALPHA 354 DO 1030 J=1,NALPHA 364 DO 1070 I=1,NALPHA 389 DO 1080 I=1,NALPHA 397 DO 1090 I=1,NALPHA 417 DO 1120 I=1,NALPHA 429 DO 1150 I=1,NALPHA 466 DO 1160 I=1,NALPHA [all …]
|
H A D | m26o32.f | 5 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,IJKDUM(3),NOVLY local 16 DO 1000 J=1,NALPHA 17 CALL TBFUNX(FLC(J+22),X,BODY(J+100),NALPHA,FLC(23),BODY(21), 19 CALL TBFUNX(FLC(J+22),X,BODY(J+120),NALPHA,FLC(23),BODY(41),
|
H A D | trimrt.f | 5 COMMON /OVERLY/ NLOG,NMACH,IZ,NALPHA local 64 DO 1000 J=1,NALPHA 73 1010 DO 1020 J=1,NALPHA 82 1030 DO 1040 J=1,NALPHA 90 NTRIM=NALPHA 100 1090 DO 1100 J=1,NALPHA 103 DO 1130 J=1,NALPHA 117 IF(F(17).LE.6.)CALL TLINEX(DELTA,ALPHA,CDI,NDELTA,NALPHA
|
H A D | m14o16.f | 5 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,IJKDUM(3),NOVLY local 19 DO 1000 J=1,NALPHA 24 CALL TBFUNX(FLC(J+22),X,BW(J+100),NALPHA,FLC(23),BW(21), 26 CALL TBFUNX(FLC(J+22),X,BW(J+120),NALPHA,FLC(23),BW(41),
|
H A D | m30o36.f | 5 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,IJKDUM(3),NOVLY local 20 DO 1000 J=1,NALPHA 25 CALL TBFUNX(FLC(J+22),X,POWER(J+100),NALPHA,FLC(23),POWER(21), 27 CALL TBFUNX(FLC(J+22),X,POWER(J+120),NALPHA,FLC(23),POWER(41),
|
H A D | m13o15.f | 5 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,IJKDUM(3),NOVLY local 18 DO 1000 J=1,NALPHA 23 CALL TBFUNX(FLC(J+22),X,POWER(J+100),NALPHA,FLC(23),POWER(21), 25 CALL TBFUNX(FLC(J+22),X,POWER(J+120),NALPHA,FLC(23),POWER(41),
|
H A D | dnpwbt.f | 10 COMMON /OVERLY/ NLOG,NMACH,IM,NALPHA local 69 DO 1000 I=1,NALPHA 79 DO 1020 I=1,NALPHA 91 DO 1040 I=1,NALPHA 103 DO 1060 I=1,NALPHA 135 DO 1070 I=1,NALPHA 143 DO 1090 I=1,NALPHA 167 DO 1110 I=1,NALPHA
|
H A D | m04o04.f | 6 COMMON /OVERLY/ NLOG,NMACH,M,NALPHA,IJKDUM(4),NOVLY local 34 IF(KBODY) CALL TBFUNX(0.0,BD(62),DYDX,NALPHA,BODY(21),BODY(41), 42 DO 1020 J=1,NALPHA 44 CALL TBFUNX(FLC(J+22),XX,BODY(J+100),NALPHA,FLC(23),BODY(21), 46 CALL TBFUNX(FLC(J+22),XX,BODY(J+120),NALPHA,FLC(23),BODY(41),
|
H A D | sdwash.f | 7 COMMON /OVERLY/ NLOG,NMACH,IMACH,NALPHA,IG,NF local 50 DO 1000 J=1,NALPHA 79 DO 1070 J=1,NALPHA 120 CALL TBFUNX(ALP(K), CLANLJ, DYDX, NALPHA, ALPHA, WING(101), 130 DO 1110 J=1,NALPHA 163 IF(VISDW .AND. KEPSLN .EQ. 0 .AND. JDETCH.GT.0) NALPHA = JDETCH 164 IF(JDETCH .EQ. 0) NALPHA = 0 168 DO 1130 J=1,NALPHA 170 CALL TBFUNX(ALPHA(J), E, DEPDA(J), NALPHA, ALPHA, DWANGL, CC,
|
H A D | m23o27.f | 5 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,IJKDUM(3),NOVLY local 32 NALPHA=FLC(2)+0.5 40 DO 1000 J=2,NALPHA 53 DO 1010 J=2,NALPHA 66 DO 1020 J=2,NALPHA
|
H A D | loarwb.f | 5 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG local 268 DO 1000 J=1,NALPHA 296 DO 1030 J=1,NALPHA 337 DO 1060 J=1,NALPHA 357 DO 1090 J=1,NALPHA 360 DO 1120 J=1,NALPHA 370 CALL TBFUNX(FLC(J+22),CN(J),DYDX,NALPHA,ALPHAP(1),CNP(1),CCN, 372 CALL TBFUNX(FLC(J+22),CA(J),DYDX,NALPHA,ALPHAP(1),CXP(1),CCA, 374 CALL TBFUNX(FLC(J+22),CM(J),DYDX,NALPHA,ALPHAP(1),CMP(1),CCM, 460 DO 1190 J=1,NALPHA [all …]
|
H A D | wbtail.f | 5 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG local 92 DO 990 J=1,NALPHA 95 DO 1000 J=1,NALPHA 99 CALL TBFUNX(ALPAT,CLH(J),DYDX,NALPHA,ANG,HT(21),CD,IY, 102 CALL TBFUNX(ALPAT,CLAH(J),DYDX,NALPHA,ANG,HT(101),CE,IZ, 105 CALL TBFUNX(ALPAT,CDH(J),DYDX,NALPHA,ANG,HT(1),CF,IA, 107 1000 CALL TBFUNX(FLC(J+22),YARG,BD(J+94),NALPHA,FLC(23),BW(1),CCDWB, 134 DO 1110 J=1,NALPHA 153 1 WBT(46),NALPHA) 158 CALL TBFUNX(ALPEF,WBT(J+109),DYDX,NALPHA,ANG,HT(21),CB,IY,MI,NG, [all …]
|
H A D | supwbt.f | 121 NALPHA=NALPH 130 IF(JDETCH.GT.0)NALPHA=JDETCH 133 DO 1010 NN=1,NALPHA 141 IF(NA1.LT.NALPHA)NALPHA=NA1 208 DO 1120 J=1,NALPHA 242 1 IVBH,GAMMA,NALPHA) 258 DO 1190 J=1,NALPHA 259 CALL TBFUNX(FLC(J+22),YARG,CDAWB(J) ,NALPHA,FLC(23),BW(1), 264 CALL TBFUNX(ALPAT,CLH(J),DYDX,NALPHA,STG(33),HT(21), 266 CALL TBFUNX(ALPAT,CLAHA(J),DYDX,NALPHA,STG(33),HT(101), [all …]
|
H A D | m06o06.f | 7 COMMON /OVERLY/ NLOG,NMACH,M,NALPHA,IJKDUM(4),NOVLY local 43 IF(KBODY .AND. .NOT. TRANSN) CALL TBFUNX(0.0,BD(62),XX,NALPHA, 51 DO 1020 J=1,NALPHA 53 CALL TBFUNX(FLC(J+22),XX,BODY(J+100),NALPHA,FLC(23),BODY(21), 55 CALL TBFUNX(FLC(J+22),XX,BODY(J+120),NALPHA,FLC(23),BODY(41),
|
/dports/science/erd/erd-3.0.6/src/ |
H A D | erd__memory_eri_batch.f | 17 + ( NALPHA,NCOEFF, 82 INTEGER NALPHA,NCOEFF 90 DOUBLE PRECISION ALPHA (1:NALPHA) 105 + ( NALPHA,NCOEFF, 121 + ( NALPHA,NCOEFF,
|
H A D | erd__gener_eri_batch.f | 18 + NALPHA,NCOEFF,NCSUM, 110 INTEGER NALPHA,NCOEFF,NCSUM 122 DOUBLE PRECISION ALPHA (1:NALPHA) 139 + NALPHA,NCOEFF,NCSUM, 160 + NALPHA,NCOEFF,NCSUM,
|
H A D | erd__memory_eri_derv_batch.f | 17 + ( NALPHA,NCOEFF, 92 INTEGER NALPHA,NCOEFF 100 DOUBLE PRECISION ALPHA (1:NALPHA) 112 + ( NALPHA,NCOEFF,
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/choles/ |
H A D | nocc_util.F | 257 NALPHA = NBAS(ISYMAO) 265 IF ((NALPHA.EQ.0) .OR. (NI.EQ.0)) THEN 269 CALL OUTPUT(XMAT(KOFF),1,NALPHA,1,NI,NALPHA,NI,1,LUPRI) 280 NALPHA = NBAS(ISYMAO) 288 IF ((NALPHA.EQ.0) .OR. (NA.EQ.0)) THEN 292 CALL OUTPUT(XMAT(KOFF),1,NALPHA,1,NA,NALPHA,NA,1,LUPRI)
|