home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 3 / CDASC03.ISO / sorties / 2078 / fortran.abb < prev    next >
Text File  |  1993-04-01  |  2KB  |  104 lines
  1. >set case UPPER IGNORE IGNORE
  2. >set margin 1 80 2
  3. >editv setf MODE \RESORT
  4. & .and. 
  5. /= .ne. 
  6. < .lt. 
  7. <= .le. 
  8. = .eq. 
  9. =/ .ne. 
  10. =< .le. 
  11. => .ge. 
  12. =\ .ne. 
  13. > .gt. 
  14. >= .ge. 
  15. \ .not. 
  16. \= .ne. 
  17. and.and. 
  18. assign 
  19. backspace( unit= , iostat= , err= )
  20. blockdata end
  21. c16complex*16 
  22. c8complex*8 
  23. call ( )
  24. character*
  25. close( unit= , status= , iostat= , err= )
  26. commonexternal save / /common / /
  27. complex 
  28. continue
  29. cycle
  30. data 
  31. dcomplexdoublecomplex 
  32. delete( unit= , rec= , iostat= , err= )
  33. descr%descr( )
  34. dimension 
  35. do = ,enddo
  36. do= do = ,enddo
  37. dowhile( )enddo
  38. dprecisiondoubleprecision 
  39. elseif( )then
  40. endfile( unit= , iostat= , err= )
  41. entry ( )
  42. eq.eq. 
  43. equivalence( )
  44. exit 
  45. external 
  46. false.FALSE. 
  47. find( unit= , rec= , iostat= , err= )
  48. format( )
  49. function ( )returnend
  50. ge.ge. 
  51. goto 
  52. gt.gt. 
  53. i integer*1 
  54. i1integer*1 
  55. i2integer*2 
  56. i4integer*4 
  57. ifif( )thenelseendif
  58. implicitnone
  59. impnoneimplicitnone
  60. include '()'
  61. inquire( unit= , iostat= , err= )
  62. integer 
  63. intrinsic 
  64. le.le. 
  65. lo1logical*1 
  66. lo2logical*2 
  67. lo4logical*4 
  68. loc%loc( )
  69. logical 
  70. lt.lt. 
  71. map endmap
  72. namelist / /
  73. ne.ne. 
  74. not.not. 
  75. open( unit= , name= '' , status= '' , iostat= , err= )
  76. options
  77. or.or. 
  78. parameter 
  79. pause
  80. print * , 
  81. program end
  82. r real*4 
  83. r16real*16 
  84. r4real*4 
  85. r8real*8 
  86. read( unit= , fmt= '' , iostat= , err= , end= )
  87. record / /
  88. ref%ref( )
  89. return
  90. rewind( unit= , iostat= , err= )
  91. save 
  92. selectcase( )case( )casedefaultendselect
  93. structure / /endstructure
  94. subroutine ( )returnend
  95. true.TRUE. 
  96. type * , 
  97. unionendunion
  98. unlock( unit= , iostat= , err= )
  99. val%val( )
  100. volatile 
  101. whiledowhile( )enddo
  102. write( unit= , fmt= '' , iostat= , err= )
  103. |.or. 
  104.