Home
last modified time | relevance | path

Searched refs:NALPHA (Results 1 – 25 of 289) sorted by relevance

12345678910>>...12

/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/
H A Dwplot.f121 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 Dwbaero.f25 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 Doutpt4.f5 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 Dm31o37.f5 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 Dm33o41.f5 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 Dgrdeff.f13 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 Dm20o24.f18 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 Dsubryw.f7 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 Dm26o32.f5 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 Dtrimrt.f5 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 Dm14o16.f5 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 Dm30o36.f5 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 Dm13o15.f5 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 Ddnpwbt.f10 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 Dm04o04.f6 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 Dsdwash.f7 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 Dm23o27.f5 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 Dloarwb.f5 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 Dwbtail.f5 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 Dsupwbt.f121 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 Dm06o06.f7 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 Derd__memory_eri_batch.f17 + ( NALPHA,NCOEFF,
82 INTEGER NALPHA,NCOEFF
90 DOUBLE PRECISION ALPHA (1:NALPHA)
105 + ( NALPHA,NCOEFF,
121 + ( NALPHA,NCOEFF,
H A Derd__gener_eri_batch.f18 + NALPHA,NCOEFF,NCSUM,
110 INTEGER NALPHA,NCOEFF,NCSUM
122 DOUBLE PRECISION ALPHA (1:NALPHA)
139 + NALPHA,NCOEFF,NCSUM,
160 + NALPHA,NCOEFF,NCSUM,
H A Derd__memory_eri_derv_batch.f17 + ( NALPHA,NCOEFF,
92 INTEGER NALPHA,NCOEFF
100 DOUBLE PRECISION ALPHA (1:NALPHA)
112 + ( NALPHA,NCOEFF,
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/choles/
H A Dnocc_util.F257 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)

12345678910>>...12