home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / software / utilities / wb_tools / swazblanker / blankers / data / headlines / fortran next >
Text File  |  1995-01-02  |  1KB  |  156 lines
  1. \* PHRASE FILE
  2. \* Generate FORTRAN programs
  3. \* 
  4.  
  5. %MAIN
  6. \PROGRAM\DECLARATIONS\STATEMENTS\END
  7.  
  8. \*
  9. \* Main blocks
  10. \*
  11.  
  12. %PROGRAM
  13. \I/ PROGRAM \PROGNAME\!\!
  14.  
  15. %DECLARATIONS
  16. \DECL\!\!
  17. (2)\DECL\!\DECLARATIONS
  18.  
  19. %STATEMENTS
  20. \STMT\!
  21. (3)\STMT\!\STATEMENTS
  22.  
  23. \*
  24. \* Sub-blocks
  25. \*
  26.  
  27. %DECL
  28. \COMMON
  29. \CHARDEF
  30. \INTDEF
  31. \REALDEF
  32. \LOGDEF
  33.  
  34. %STMT
  35. (8)\ASSIGN
  36. \DOLOOP
  37. \IF
  38. \IFELSE
  39.  
  40. \*
  41. \* Declarations
  42. \*
  43.  
  44. %COMMON
  45. \I/ COMMON / \VARNAME / \VARLIST
  46.  
  47. %CHARDEF
  48. \I/ CHARACTER*\NUM \VARLIST
  49.  
  50. %INTDEF
  51. \I/ INTEGER \VARLIST
  52.  
  53. %REALDEF
  54. \I/ REAL \VARLIST
  55.  
  56. %LOGDEF
  57. \I/ LOGICAL \VARLIST
  58.  
  59. \*
  60. \* Statements
  61. \*
  62.  
  63. %ASSIGN
  64. \I/ \VARNAME = \EXPR
  65.  
  66. %ASSIGNS
  67. (2)\ASSIGN
  68. \ASSIGN\!\ASSIGNS
  69.  
  70. %DOLOOP
  71. \I/ DO \NUM \VARNAME = \NUM/ ,\NUM\!\ASSIGNS\!\LNUM/ CONTINUE
  72.  
  73. %IF
  74. \I/ IF (\COND/ ) GOTO \NUM
  75. \I/ IF (\COND/ ) THEN\!\ASSIGNS\!\I/ END IF
  76.  
  77. %IFELSE
  78. \I/ IF (\COND/ ) THEN\!\ASSIGNS\!\I/ ELSE\!\ASSIGNS\!\I/ END IF
  79.  
  80. \*
  81. \* Miscellaneous
  82. \*
  83.  
  84. %PROGNAME
  85. FRED
  86. TEST
  87. GAMMA2
  88. CUBIC
  89.  
  90. %END
  91. \!\I/ END\!
  92.  
  93. %VARNAME
  94. I
  95. J
  96. K
  97. X
  98. Y
  99. Z
  100. ALPHA
  101. BETA
  102.  
  103. %VARLIST
  104. \VARNAME
  105. (3)\VARNAME/ ,\VARLIST
  106.  
  107. %EXPR
  108. (5)\NUM
  109. (5)\VARNAME
  110. (5)\VARNAME\OP\VARNAME
  111. \VARNAME\OP/ (\EXPR/ )
  112. (1)(\EXPR/ )\OP\VARNAME
  113. SIN(\EXPR/ )
  114. COS(\EXPR/ )
  115. TAN(\EXPR/ )
  116.  
  117. %OP
  118. *
  119. /
  120. +
  121. -
  122.  
  123. %COND
  124. \VARNAME\REL\VARNAME
  125.  
  126. %REL
  127. LT.
  128. LE.
  129. GE.
  130. GT.
  131. EQ.
  132. NE.
  133.  
  134. %NUM
  135. \DIGIT
  136. \DIGIT\DIGIT
  137.  
  138. %LNUM
  139.  \DIGIT    
  140.  \DIGIT\DIGIT   
  141.  
  142. %I
  143.       
  144.  
  145. %DIGIT
  146. 0
  147. 1
  148. 2
  149. 3
  150. 4
  151. 5
  152. 6
  153. 7
  154. 8
  155. 9
  156.