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