home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug049.ark / F77DEF.RAT < prev    next >
Encoding:
Text File  |  1984-04-29  |  920 b   |  30 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.