Lines Matching refs:BD
14 COMMON /BDATA/ BD(762) local
70 BD(1)=X(NX)
71 BD(57)=S(NX)
72 BD(94)=FLC(2)
73 BD(55)=12.*BD(1)/ROUGFC
77 BD(5) = X(NX)
81 CALL TBFUNX(BD(5),BD(4),DYDX,NX,X,S,CNSE,INSE,MI,NG,
86 CALL GETMAX(X,S,NX,BD(2),BD(3),IMAX)
87 BD(56)=BD(3)
91 IF(BD(57).LE.0.3*BD(56)) BD(57)=0.30*BD(56)
107 BD(K+174)=-DSDX
109 CALL GETMAX(X,BD(175 ),NX,X1,DSDXM,IMAX)
110 1030 BD(7)=0.378*BD(1)+0.527*X1
111 IF(BD(7).GT.BD(5)) GO TO 1040
115 CALL TBFUNX(BD(7),BD(6),DYDX,NX,X,S,CXS,IXS,MI,NG,
117 TMP1 = BD(6)
118 TMP2 = BD(3)
119 TMP3 = BD(1)
120 TMP5 = BD(7)
125 1040 CALL TBFUNX(BD(5),BD(4),DYDX,NX,X,S,CXNOSE,INOSE,MI,NG,
127 TMP1 = BD(4)
128 TMP2 = BD(4)
129 TMP3 = BD(5)
130 TMP5 = BD(5)
135 CALL TBFUNX(TMP4,BD(9),DYDX,10,X21120,Y21120,C21120,I21120,MI,NG,
137 BODY(101)=2. * BD(9)*TMP1 /(RAD*SREF)
159 CONST=2.*BD(9)/(RAD*SREF*CBARR)
163 BODY(121)=(BD(33)*BODY(101)/CBARR)-CONST*TMP
169 BD(88)=RIN
173 BD(90)=FLC(M+42)*BD(1)
179 BD(91)=BD(55)**1.0482*10.0**CEPT
180 RUSE=BD(90)
181 IF(BD(91).LT.BD(90))RUSE=BD(91)
187 CALL FIG26(RUSE,ARG,BD(92))
188 BD(93)=PIN
189 BD(86)=SQRT(BD(57)*4./PI)
190 BD(85)=SQRT(BD(56)*4./PI)
191 BD(75)=BD(1)/BD(85)
192 BD(59)=BD(92)*(1.+60./(BD(75)**3)+.0025*BD(75))*BD(93)/BD(56)
193 BD(60)=.029*((BD(86)/BD(85))**3/SQRT(BD(59))*BD(56)/SREF)
194 BD(59)=BD(59)*BD(56)/SREF
195 BD(61)=BD(59)+BD(60)
196 BD(10)=BD(61)
203 NALPHA = BD(94)+.5
205 AP=BD(J+254)
208 BD(J+154)=BODY(101)*AP
213 CALL TBFUNX(AMSNA,BD(J+134),DYDX,14,X1217B,Y1217B,C1217B,
218 CALL TBFUNX(BD(75),BD(76),DYDX,8,X1217A,Y1217A,C1217A,I1217A,
222 BD(J+194)=2.*SINA2*BD(76)*BD(J+134)*BD(88)/SREF*SGN
223 BODY(J+20)=BD(J+154)+BD(J+194)
227 BODY(J+40)=BODY(121)*AP-2.*SINA2*BD(J+134)*BD(76)*(RXDFI-
228 1 BD(33)*BD(88))/(CBARR*SREF)*SGN
232 BD(J+214)=BD(J+154)*SINA+BD(J+194)*SINA
233 BODY(J)=BD(61)+BD(J+214)