PARAMI9Z2020P
C     APPENDIX E
C     EXERCISE LIBRARY FUNCTIONS
       PRINT 8
8     FORMAT(48H1A=2I(SQRT(1-COS(X)**2)COS(X)SIN(X)/ABS(SIN(X))))
       PRINT 1
1     FORMAT(97H0 I  DEGREES            A         EXPONENTIAL(A)=B
     1 LOGARITHM(B)=C       I SIN(2X)=D     C-D,
     2 7x,9hX RADIANS //)
       FI=1.0
       DEGREE=7.5
       DELTA=1.57079632679489661923/12.0
       ARG=DELTA
3     A=(FI+FI)*SQRTF(1.0-COSF(ARG)**2)*COSF(ARG)
       IF(FI-24.)7,7,6
6     A=-A
7     B=EXPF(A)
       C=LOGF(B)
       D=FI*SINF(ARG+ARG)
       DIFF=C-D
       PRINT 2,FI,DEGREE,A,B,C,D,DIFF,ARG
2     FORMAT(1X,F3.0,F9.1,F19.10,E19.10,2F19.10,E12.1,F15.10)
       FI=FI+1.0
       DEGREE=DEGREE+7.5
       ARG=ARG+DELTA
       IF(FI-49.0)3,4,5
4     PRINT 9
9     FORMAT(1H1)
       STOP 111
5     STOP 777
       END
