FORTRAN RUN FORTRAN COMPILATION VER 2 MOD 2 C APPENDIX E C EXERCISE LIBRARY FUNCTIONS 001 PRINT 8 002 8 FORMAT%48H1A#2I%SQRT%1-COS%X)**2)COS%X)SIN%X)/ABS%SIN%X)))) 003 PRINT 1 004 1 FORMAT%97H0 I DEGREES A EXPONENTIAL%A)#B 1LOGARITHM%B)#C I SIN%2X)#D C-D//) 005 FI#1.0 006 DEGREE#7.5 007 DELTA#1.57079632679489661923/12.0 008 ARG#DELTA 009 3 A#%FI&FI)*SQRTF%1.0-COSF%ARG)**2)*COSF%ARG) 010 IF%FI-24.)7,7,6 011 6 A#-A 012 7 B#EXPF%A) 013 C#LOGF%B) 014 D#FI*SINF%ARG&ARG) 015 DIFF#C-D 016 PRINT 2,FI,DEGREE,A,B,C,D,DIFF 017 2 FORMAT%1X,F3.0,F9.1,F19.10,E19.10,2F19.10,E12.1) 018 FI#FI&1.0 019 DEGREE#DEGREE&7.5 020 ARG#ARG&DELTA 021 IF%FI-49.0)3,4,5 022 4 PRINT 9 023 9 FORMAT%1H1) 024 STOP 111 025 5 STOP 777 026 END NAME DICTIONARY 00016 PRINT8 00026 PRINT1 00036 FI 00056 DEGREE 00076 DELTA 00106 ARG 00116 A 00137 B 00147 C 00157 D 00167 DIFF 00177 PRINT2 00197 PRINT9 *** IF%FI-49.0)3,4,5 *** 4 PRINT 9 *** 9 FORMAT%1H1) *** STOP 111 *** 5 STOP 777 *** END *** END ***