home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / fortran / ratfor.lbr / F77DEF.RAT < prev    next >
Encoding:
Text File  |  1986-04-27  |  1.0 KB  |  33 lines
  1. #This INCLUDE RATFOR file must not be used in its entirety,
  2. #since Microsoft FORTRAN loads all statement functions
  3. #whether they are used or not.
  4. #This file should be INCLUDEd ahead of the COMMON section of
  5. #a RATFOR program
  6. #This definition will work in the contexts:
  7. # CHARACTER*1 and CHARACTER*2
  8.     define(CHARACTER,INTEGER)
  9.     CHARACTER*1 CHAR
  10.     REAL LOG,LOG10
  11. #These DATA are in the file CONSTS.RAT which may be INCLUDEd
  12. #after the DATA section of a RATFOR program.
  13. #DATA KB/3/,KONS/3/
  14. #DATA DPR/.01745329/,RPD/57.29578/
  15. #DATA PI/3.141593/
  16. #These statement functions are on F77LIB which may be searched
  17. #at LINK time.
  18.  
  19. #ICHAR(I)=I
  20. #CHAR(I)=I
  21. #ANINT(X)=AINT(SIGN(.5,X)+X)
  22. #NINT(X)=INT(SIGN(.5,X)+X)
  23. #LOG(X)=ALOG(X)
  24. #LOG10(X)=ALOG10(X)
  25. #TAN(X)=SIN(X)/SQRT(1.-SIN(X)**2)
  26. #ASIN(X)=ATAN2(X,SQRT(1.-X*X))
  27. #ACOS(X)=ATAN2(SQRT(1.-X*X),X)
  28. #SINH(X)=(EXP(X)-1./EXP(X))/2.
  29. #COSH(X)=(EXP(X)+1./EXP(X))/2.
  30. ASIN(X)=ATAN2(X,SQRT(1.-X*X))
  31. #ACOS(X)=ATAN2(SQRT(1.-X*X),X)
  32. #SINH(X)=(EXP(X)-1./EXP(X))/2.
  33. #COSH(X