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