1 SUBROUTINE DELY 2C 3C CALCULATE THE PARAMETER DELTAY 4C 5 COMMON /IWING/ PW, X(60) 6 COMMON / IBW / PBW,L 7 COMMON / IBH / PBH, THN(60),CAM(60) 8 COMMON /IBWHV/ PBWHV, RHO,TMAX,DELTAY 9 DIMENSION C1(6),C2(6),ROUT(2),NAME(1) 10 DATA ROUT / 4HM50O, 4H62 / 11 DATA NAME /4HDELY/ 12 IN1=0 13 IN2=0 14 CALL TBFUNX(.0015,YU15,D,L,X ,THN,C1,IN1,MI,NG,0,0,NAME,1,ROUT) 15 CALL TBFUNX(.0600,YU60,D,L,X ,THN,C2,IN2,MI,NG,0,0,NAME,1,ROUT) 16 DELTAY=(YU60-YU15)*100. 17 RETURN 18 END 19