1      SUBROUTINE CACALC(B,WING)
2C
3C***  COMPUTES WING CN,CA
4C
5      DIMENSION B(1),WING(1)
6      COMMON/CONSNT/ PI,DR,UNUSED,RAD
7      COMMON/OVERLY/ NLOG,NMACH,I,NALPHA
8      DO 1000 M=1,NALPHA
9C
10C*********     REVISED EQUATION FOR (CN)WING AND (CA)WING
11C              COMPUTE SIN(ALPHA) AND COS(ALPHA)
12C
13         CA=COS(B(M+22)/RAD)
14         SA= SIN(B(M+22)/RAD)
15C
16C***     COMPUTE REVISED (CN)WING AND STORE IN WING(M+60)
17C
18         WING(M+60)= WING(M+20)*CA + WING(M)*SA
19C
20C***     COMPUTE (CA) WING AND STORE IN WING(M+80)
21C
22         WING(M+80)= WING(M)*CA - WING(M+20)*SA
23 1000 CONTINUE
24      RETURN
25      END
26