home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / LANGUAGS / FORTRAN / RATFOR.LBR / F77DEF.RAT < prev    next >
Text File  |  2000-06-30  |  1KB  |  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