home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / sources / misc / 3789 < prev    next >
Encoding:
Text File  |  1992-07-30  |  55.4 KB  |  909 lines
  1. Newsgroups: comp.sources.misc
  2. Path: sparky!kent
  3. From: julian@vscn08.cern.ch (Julian James Bunn)
  4. Subject:  v31i064:  flow - Fortran Structure Analysers, Part01/05
  5. Message-ID: <csm-v31i064=flow.002441@sparky.IMD.Sterling.COM>
  6. Followup-To: comp.sources.d
  7. X-Md4-Signature: b2dfa37f659dad204ef43c4a3d0ae16b
  8. Sender: kent@sparky.imd.sterling.com (Kent Landfield)
  9. Reply-To: julian@vscn08.cern.ch (Julian James Bunn)
  10. Organization: CERN European Lab for Particle Physics
  11. Date: Fri, 31 Jul 1992 05:25:41 GMT
  12. Approved: kent@sparky.imd.sterling.com
  13. Lines: 894
  14.  
  15. Submitted-by: julian@vscn08.cern.ch (Julian James Bunn)
  16. Posting-number: Volume 31, Issue 64
  17. Archive-name: flow/part01
  18. Environment: fortran, ffccc
  19.  
  20. The Flow program is a companion to Floppy, posted to comp.sources.misc in
  21. Volume 12. With Floppy, it allows the user to produce various reports on the
  22. structure of Fortran 77 code, such as flow diagrams and common block tables.
  23.  
  24. This posting includes files for installation on VMS, Unix and CMS operating
  25. systems. The Readme file should be consulted for further details.
  26.  
  27. One MUST have Floppy installed before Flow can be used. Floppy was called
  28. ffccc in Volume 12.
  29.  -------------------------------------------------------------------------------
  30.  Julian James Bunn / CERN Computing and Networks Division. Tel.: Geneva 767 5029
  31.  Email: julian@vxcrna.cxern.ch
  32.  -------------------------------------------------------------------------------
  33. [ Moderator note: ]
  34. [ v12i087-97   ffccc/part[01-11]   Floppy - Fortran Coding Convention Checker 
  35. [
  36. [ The required ffccc is available via FTP from any comp.sources.misc archives.
  37. [ If you do not have access to the archives via FTP, send the following as
  38. [ the body of a mail message to netlib@uunet.uu.net or uunet!netlib.
  39. [
  40. [ send volume12/ffccc/part01 from comp.sources.misc
  41. [ send volume12/ffccc/part02 from comp.sources.misc
  42. [ send volume12/ffccc/part03r from comp.sources.misc
  43. [ send volume12/ffccc/part04 from comp.sources.misc
  44. [ send volume12/ffccc/part05 from comp.sources.misc
  45. [ send volume12/ffccc/part06 from comp.sources.misc
  46. [ send volume12/ffccc/part07 from comp.sources.misc
  47. [ send volume12/ffccc/part08 from comp.sources.misc
  48. [ send volume12/ffccc/part09 from comp.sources.misc
  49. [ send volume12/ffccc/part10 from comp.sources.misc
  50. [ send volume12/ffccc/part11 from comp.sources.misc
  51. [
  52. ---------------------------------------------------------------------------
  53. #! /bin/sh
  54. # This is a shell archive.  Remove anything before this line, then feed it
  55. # into a shell via "sh file" or similar.  To overwrite existing files,
  56. # type "sh file -c".
  57. # The tool that generated this appeared in the comp.sources.unix newsgroup;
  58. # send mail to comp-sources-unix@uunet.uu.net if you want that tool.
  59. # Contents:  floppy.ps.a makefile
  60. # Wrapped by kent@sparky on Thu Jul 30 23:38:13 1992
  61. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  62. echo If this archive is complete, you will see the following message:
  63. echo '          "shar: End of archive 1 (of 5)."'
  64. if test -f 'floppy.ps.a' -a "${1}" != "-c" ; then 
  65.   echo shar: Will not clobber existing file \"'floppy.ps.a'\"
  66. else
  67.   echo shar: Extracting \"'floppy.ps.a'\" \(50105 characters\)
  68.   sed "s/^X//" >'floppy.ps.a' <<'END_OF_FILE'
  69. X %!PS-Adobe-1.0
  70. X
  71. X %%Creator:  ***** POSTS VERSION 86.1 *****
  72. X
  73. X %%Title: POSTS: Waterloo SCRIPT 86.1 (87FEB11) 11:34:18 July 28, 1992
  74. X
  75. X %%CreationDate: 11:34:23 July 28, 1992
  76. X
  77. X %%Pages: (atend)
  78. X
  79. X %%BoundingBox: (atend)
  80. X
  81. X %%DocumentFonts: Courier Times-Bold Times-Italic Symbol Times-Roman
  82. X
  83. X %%EndComments
  84. X
  85. X /jobobj save def() pop
  86. X /#copies 1 def
  87. X /$blnkadj 0 def
  88. X /$blnkwid 0 def
  89. X /@bwset { $blnkwid (\040) stringwidth pop sub /$blnkadj exch def } bind def
  90. X /@bw { /$blnkwid exch def @bwset $blnkadj 0 8#40 } bind def
  91. X /@bw40 {$blnkadj 0 8#40} bind def
  92. X /@ws {widthshow} bind def
  93. X /@m {moveto} bind def
  94. X /reencsmalldict 24 dict def
  95. X /ReEncodeSmall
  96. X   { reencsmalldict begin
  97. X     /newcodesandnames exch def
  98. X     /newfontname exch def
  99. X     /basefontname exch def
  100. X     /basefontdict basefontname findfont def
  101. X     /newfont basefontdict maxlength dict def
  102. X     basefontdict
  103. X       { exch dup /FID ne
  104. X           { dup /Encoding eq
  105. X             { exch dup length array copy
  106. X                 newfont 3 1 roll put }
  107. X             { exch newfont 3 1 roll put }
  108. X             ifelse }
  109. X           { pop pop }
  110. X           ifelse
  111. X        } forall
  112. X     newfont /FontName newfontname put
  113. X     newcodesandnames aload pop
  114. X     newcodesandnames length 2 idiv
  115. X       { newfont /Encoding get 3 1 roll put }
  116. X       repeat
  117. X     newfontname newfont definefont pop
  118. X     end
  119. X  } def
  120. X /accvec [
  121. X   176 /aacute
  122. X   181 /Aacute
  123. X   190 /Agrave
  124. X   192 /Acircumflex
  125. X   201 /Adieresis
  126. X   204 /Atilde
  127. X   209 /aring
  128. X   210 /Aring
  129. X   211 /ccedilla
  130. X   212 /Ccedilla
  131. X   213 /eacute
  132. X   214 /Eacute
  133. X   215 /Egrave
  134. X   216 /Ecircumflex
  135. X   217 /Edieresis
  136. X   218 /iacute
  137. X   219 /Iacute
  138. X   220 /igrave
  139. X   221 /Igrave
  140. X   222 /icircumflex
  141. X   223 /Icircumflex
  142. X   224 /idieresis
  143. X   226 /Idieresis
  144. X   228 /ntilde
  145. X   229 /Ntilde
  146. X   230 /oacute
  147. X   231 /Oacute
  148. X   236 /Ograve
  149. X   237 /Ocircumflex
  150. X   238 /Odieresis
  151. X   239 /Otilde
  152. X   240 /uacute
  153. X   242 /Uacute
  154. X   243 /Ugrave
  155. X   244 /Ucircumflex
  156. X   246 /Udieresis
  157. X   247 /Ydieresis
  158. X   ] def
  159. X /@rm {rmoveto} bind def
  160. X /@hr {/$hw exch def /$hl exch def currentpoint 2 copy $hw 2.0 div sub 2
  161. X copy newpath moveto exch $hl add exch lineto $hw setlinewidth
  162. X stroke moveto} bind def
  163. X /@vr {/$vw exch def /$vl exch def currentpoint 2 copy exch $vw 2.0 div add
  164. X exch 2 copy newpath moveto $vl sub lineto $vw setlinewidth
  165. X stroke moveto} bind def
  166. X /Courier /Courier-Acc accvec  ReEncodeSmall
  167. X /@f1 {/Courier-Acc findfont exch scalefont setfont @bwset } bind def
  168. X /Times-Bold /Times-Bold-Acc accvec  ReEncodeSmall
  169. X /@f13 {/Times-Bold-Acc findfont exch scalefont setfont @bwset } bind def
  170. X /Times-Italic /Times-Italic-Acc accvec  ReEncodeSmall
  171. X /@f12 {/Times-Italic-Acc findfont exch scalefont setfont @bwset } bind def
  172. X /@f111 {/Symbol findfont exch scalefont setfont @bwset } bind def
  173. X /Times-Roman /Times-Roman-Acc accvec  ReEncodeSmall
  174. X /@f11 {/Times-Roman-Acc findfont exch scalefont setfont @bwset } bind def
  175. X 0 rotate
  176. X 7.2 0 translate
  177. X %% statusdict /manualfeed true put
  178. X
  179. X %%EndProlog
  180. X
  181. X %%Page: ? 1       
  182. X
  183. X /pageobj save def() pop
  184. X 64.8 660 @m 10 @f11 89.289 @bw ( ) @ws 18 @f13 @bw40 (FLOPPY) @ws  9 @bw ( and)
  185. X @ws @bw40 ( FLOW User Guide) @ws 64.8 636 @m 10 @f11 176.796 @bw ( ) @ws
  186. X 18 @f13 @bw40 (VERSION) @ws  9 @bw ( 6) @ws 64.8 540 @m 9 @f1 48.6 @bw ( FFFFF)
  187. X @ws @bw40 (FF) @ws  10.8 @bw ( LL) @ws  43.2 @bw ( OOOOOO) @ws  27 @bw ( PPPPP)
  188. X @ws @bw40 (P) @ws  21.6 @bw ( PPPPPP YY YY) @ws 64.8 528 @m 43.2 @bw ( FFFFFFF)
  189. X @ws @bw40 (F) @ws  10.8 @bw ( LL) @ws  37.8 @bw ( OOOOOOOO) @ws  16.2 @bw ( PP)
  190. X @ws @bw40 (PPPPPP) @ws  10.8 @bw ( PPPPPPPP) @ws  16.2 @bw ( YY) @ws
  191. X 21.6 @bw ( YY) @ws 64.8 516 @m 43.2 @bw ( FF LL) @ws  37.8 @bw ( OO) @ws
  192. X 21.6 @bw ( OO) @ws  16.2 @bw ( PP) @ws  21.6 @bw ( PP) @ws  10.8 @bw ( PP) @ws
  193. X 21.6 @bw ( PP) @ws  16.2 @bw ( YY) @ws  21.6 @bw ( YY) @ws 64.8 504 @m
  194. X 43.2 @bw ( FFFFFF) @ws  21.6 @bw ( LL) @ws  37.8 @bw ( OO) @ws  21.6 @bw ( OO)
  195. X @ws  16.2 @bw ( PP) @ws  21.6 @bw ( PP) @ws  10.8 @bw ( PP) @ws  21.6 @bw ( PP)
  196. X @ws @bw40 ( YY) @ws  10.8 @bw ( YY) @ws 64.8 492 @m 43.2 @bw ( FFFFFF) @ws
  197. X 21.6 @bw ( LL) @ws  37.8 @bw ( OO) @ws  21.6 @bw ( OO) @ws  16.2 @bw ( PPPPPPP)
  198. X @ws @bw40 (P) @ws  10.8 @bw ( PPPPPPPP) @ws  27 @bw ( YYYY) @ws 64.8 480 @m
  199. X 43.2 @bw ( FF LL) @ws  37.8 @bw ( OO) @ws  21.6 @bw ( OO) @ws  16.2 @bw ( PPPP)
  200. X @ws @bw40 (PPP PPPPPPP) @ws  37.8 @bw ( YY) @ws 64.8 468 @m 43.2 @bw ( FF LL)
  201. X @ws  37.8 @bw ( OO) @ws  21.6 @bw ( OO) @ws  16.2 @bw ( PP) @ws  43.2 @bw ( PP)
  202. X @ws  64.8 @bw ( YY) @ws 64.8 456 @m 43.2 @bw ( FF LL) @ws  37.8 @bw ( OO) @ws
  203. X 21.6 @bw ( OO) @ws  16.2 @bw ( PP) @ws  43.2 @bw ( PP) @ws  64.8 @bw ( YY) @ws
  204. X 64.8 444 @m 43.2 @bw ( FF LLLLLL) @ws  16.2 @bw ( OOOOOOOO PP) @ws
  205. X 43.2 @bw ( PP) @ws  64.8 @bw ( YY) @ws 64.8 432 @m 43.2 @bw ( FF) @ws
  206. X 48.6 @bw ( LLLLLL) @ws  16.2 @bw ( OOOOOO) @ws  21.6 @bw ( PP) @ws
  207. X 43.2 @bw ( PP) @ws  64.8 @bw ( YY) @ws 64.8 396 @m 10 @f11 90.14 @bw ( F) @ws
  208. X 10 @bw ( L O P P Y \261 CODING) @ws  5 @bw ( CONVENTION CHECKER) @ws
  209. X 64.8 360 @m 124.02 @bw ( F) @ws  10 @bw ( L O W \261 STRUCTURE) @ws  5 @bw ( A)
  210. X @ws @bw40 (NALYSERS) @ws 64.8 336 @m 9 @f1 67.5 @bw ( !!!) @ws  5.4 @bw ( WARN)
  211. X @ws @bw40 (ING ... CODING CONVENTIONS MAY IMPROVE YOUR FORTRAN) @ws 64.8 312 @m
  212. X 10 @f11 118.62 @bw ( VERSION) @ws  5 @bw ( 6.00 \(May 1990\) \(Unix support ad)
  213. X @ws @bw40 (ded\)) @ws 64.8 276 @m 199.715 @bw ( July) @ws  5 @bw ( 28, 1992)
  214. X @ws 64.8 240 @m 139.015 @bw ( ********) @ws  20 @bw ( Sixth) @ws  5 @bw ( Edit)
  215. X @ws @bw40 (ion) @ws  20 @bw ( ********) @ws 64.8 216 @m 132.075 @bw ( ********)
  216. X @ws  35 @bw ( J.J.) @ws  5 @bw ( Bunn) @ws  35 @bw ( ********) @ws 64.8 180 @m
  217. X 188.185 @bw ( CERN/DD/US/112) @ws 67.9 606.5 @m 447.4 1 @hr 67.9 606.5 @m
  218. X 457 1 @vr 514.3 606.5 @m 457 1 @vr 82.3 582.5 @m 418.6 1 @hr 82.3 582.5 @m
  219. X 409 1 @vr 499.9 582.5 @m 409 1 @vr 82.3 174.5 @m 418.6 1 @hr 67.9 150.5 @m
  220. X 447.4 1 @hr
  221. X showpage pageobj restore
  222. X %%Page: ? 2       
  223. X
  224. X /pageobj save def() pop
  225. X 64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws  5 @bw ( and FLOW User Guide) @ws
  226. X 280.84 @bw ( page) @ws  5 @bw ( ii) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276)
  227. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276)
  228. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276)
  229. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11
  230. X 3.6 @bw ( ) @ws 64.8 696 @m 12 @f11 206.802 @bw ( ) @ws 12 @f13 @bw40 (Content)
  231. X @ws @bw40 (s) @ws 64.8 648 @m 10 @f13 @bw40 (Chapter) @ws  5 @bw ( 1:) @ws
  232. X 10 @f11 8.72 @bw ( ) @ws 10 @f13 @bw40 (Introduction) @ws 10 @f11 7.95 @bw ( .)
  233. X @ws  5 @bw ( . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .)
  234. X @ws @bw40 ( . . . . . . . . .) @ws  11.1 @bw ( ) @ws 10 @f13 @bw40 (1) @ws
  235. X 64.8 612 @m @bw40 (Chapter) @ws  5 @bw ( 2:) @ws 10 @f11 8.72 @bw ( ) @ws
  236. X 10 @f13 @bw40 (FLOPPY) @ws 10 @f11 7.4 @bw ( .) @ws  5 @bw ( . . . . . . . . .)
  237. X @ws @bw40 ( . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . )
  238. X @ws @bw40 (. .) @ws  11.1 @bw ( ) @ws 10 @f13 @bw40 (1) @ws 64.8 588 @m 10 @f11
  239. X 21.6 @bw ( 2.1) @ws  10 @bw ( Warnings) @ws  5 @bw ( from FLOPPY) @ws
  240. X 7.85 @bw ( .) @ws  5 @bw ( . . . . . . . . . . . . . . . . . . . . . . . . . .)
  241. X @ws @bw40 ( . . . . . . . . . . .) @ws  11.1 @bw ( 2) @ws 64.8 576 @m
  242. X 21.6 @bw ( 2.2) @ws  10 @bw ( Conventions) @ws  5 @bw ( that may be checked by)
  243. X @ws @bw40 ( FLOPPY) @ws  8.69 @bw ( .) @ws  5 @bw ( . . . . . . . . . . . . . )
  244. X @ws @bw40 (. . . . . . . . . . .) @ws  11.1 @bw ( 2) @ws 64.8 564 @m
  245. X 21.6 @bw ( 2.3) @ws  10 @bw ( Names) @ws  5 @bw ( to Ignore) @ws  11.75 @bw ( )
  246. X @ws @bw40 (.) @ws  5 @bw ( . . . . . . . . . . . . . . . . . . . . . . . . . .)
  247. X @ws @bw40 ( . . . . . . . . . . . . . . .) @ws  11.1 @bw ( 3) @ws 64.8 552 @m
  248. X 21.6 @bw ( 2.4) @ws  10 @bw ( Special) @ws  5 @bw ( Processes) @ws
  249. X 10.08 @bw ( .) @ws  5 @bw ( . . . . . . . . . . . . . . . . . . . . . . . . . )
  250. X @ws @bw40 (. . . . . . . . . . . . . . . .) @ws  11.1 @bw ( 4) @ws 64.8 540 @m
  251. X 21.6 @bw ( 2.5) @ws  10 @bw ( Tidying) @ws  5 @bw ( your FORTRAN) @ws
  252. X 6.73 @bw ( .) @ws  5 @bw ( . . . . . . . . . . . . . . . . . . . . . . . . . .)
  253. X @ws @bw40 ( . . . . . . . . . . .) @ws  11.1 @bw ( 4) @ws 64.8 528 @m
  254. X 21.6 @bw ( 2.6) @ws  10 @bw ( FLOPPY) @ws  5 @bw ( on VAX/VMS) @ws
  255. X 10.06 @bw ( .) @ws  5 @bw ( . . . . . . . . . . . . . . . . . . . . . . . . . )
  256. X @ws @bw40 (. . . . . . . . . . . .) @ws  11.1 @bw ( 5) @ws 64.8 516 @m
  257. X 43.2 @bw ( 2.6.1) @ws  10 @bw ( VAX/VMS) @ws  5 @bw ( FLOPPY examples) @ws
  258. X 5.69 @bw ( .) @ws  5 @bw ( . . . . . . . . . . . . . . . . . . . . . . . . . .)
  259. X @ws @bw40 ( . . . .) @ws  11.1 @bw ( 5) @ws 64.8 504 @m 21.6 @bw ( 2.7) @ws
  260. X 10 @bw ( FLOPPY) @ws  5 @bw ( on IBM/CMS) @ws  5.88 @bw ( .) @ws  5 @bw ( . . )
  261. X @ws @bw40 (. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .)
  262. X @ws @bw40 ( . .) @ws  11.1 @bw ( 6) @ws 64.8 492 @m 21.6 @bw ( 2.8) @ws
  263. X 10 @bw ( FLOPPY) @ws  5 @bw ( on Unix) @ws  6.17 @bw ( .) @ws  5 @bw ( . . . .)
  264. X @ws @bw40 ( . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . )
  265. X @ws @bw40 (. . . .) @ws  11.1 @bw ( 7) @ws 64.8 480 @m 21.6 @bw ( 2.9) @ws
  266. X 10 @bw ( The) @ws  5 @bw ( meaning of the FLOPPY Qualifiers/Options) @ws
  267. X 11.19 @bw ( .) @ws  5 @bw ( . . . . . . . . . . . . . . . . . . . . . . .) @ws
  268. X 11.1 @bw ( 8) @ws 64.8 444 @m 10 @f13 @bw40 (Chapter) @ws  5 @bw ( 3:) @ws
  269. X 10 @f11 8.72 @bw ( ) @ws 10 @f13 @bw40 (Summary) @ws  5 @bw ( of Files produce)
  270. X @ws @bw40 (d by a FLOPPY run) @ws 10 @f11 10.17 @bw ( .) @ws  5 @bw ( . . . . )
  271. X @ws @bw40 (. . . . . . . . . . . . . . . .) @ws  6.1 @bw ( ) @ws 10 @f13
  272. X @bw40 (10) @ws 64.8 408 @m @bw40 (Chapter) @ws  5 @bw ( 4:) @ws 10 @f11
  273. X 8.72 @bw ( ) @ws 10 @f13 @bw40 (FLOW) @ws  5 @bw ( output) @ws 10 @f11
  274. X 6 @bw ( .) @ws  5 @bw ( . . . . . . . . . . . . . . . . . . . . . . . . . . . )
  275. X @ws @bw40 (. . . . . . . . . . . . . .) @ws  6.1 @bw ( ) @ws 10 @f13
  276. X @bw40 (10) @ws 64.8 384 @m 10 @f11 21.6 @bw ( 4.1) @ws  10 @bw ( FLOW) @ws
  277. X 5 @bw ( on VAX/VMS) @ws  11.46 @bw ( .) @ws  5 @bw ( . . . . . . . . . . . . .)
  278. X @ws @bw40 ( . . . . . . . . . . . . . . . . . . . . . . . . .) @ws  6.1 @bw ( )
  279. X @ws @bw40 (13) @ws 64.8 372 @m 21.6 @bw ( 4.2) @ws  10 @bw ( Examples) @ws
  280. X 5 @bw ( of VAX/VMS FLOW commands) @ws  10.36 @bw ( .) @ws  5 @bw ( . . . . . .)
  281. X @ws @bw40 ( . . . . . . . . . . . . . . . . . . . .) @ws  6.1 @bw ( 13) @ws
  282. X 64.8 360 @m 21.6 @bw ( 4.3) @ws  10 @bw ( FLOW) @ws  5 @bw ( on CERNVM) @ws
  283. X 7.29 @bw ( .) @ws  5 @bw ( . . . . . . . . . . . . . . . . . . . . . . . . . .)
  284. X @ws @bw40 ( . . . . . . . . . . . . .) @ws  6.1 @bw ( 14) @ws 64.8 324 @m
  285. X 10 @f13 @bw40 (Chapter) @ws  5 @bw ( 5:) @ws 10 @f11 8.72 @bw ( ) @ws 10 @f13
  286. X @bw40 (The) @ws  5 @bw ( meaning of the FLOW Qualifiers/Options) @ws 10 @f11
  287. X 9.88 @bw ( .) @ws  5 @bw ( . . . . . . . . . . . . . . . . . . . . .) @ws
  288. X 6.1 @bw ( ) @ws 10 @f13 @bw40 (15) @ws 64.8 288 @m @bw40 (Chapter) @ws
  289. X 5 @bw ( 6:) @ws 10 @f11 8.72 @bw ( ) @ws 10 @f13 @bw40 (Problems) @ws
  290. X 5 @bw ( and Installation) @ws 10 @f11 6.83 @bw ( .) @ws  5 @bw ( . . . . . . .)
  291. X @ws @bw40 ( . . . . . . . . . . . . . . . . . . . . . . . . . . .) @ws
  292. X 6.1 @bw ( ) @ws 10 @f13 @bw40 (16) @ws 64.8 252 @m 5 @bw ( Acknowledgments) @ws
  293. X 10 @f11 6.67 @bw ( .) @ws  5 @bw ( . . . . . . . . . . . . . . . . . . . . . .)
  294. X @ws @bw40 ( . . . . . . . . . . . . . . . . . . . . . . . .) @ws  6.1 @bw ( )
  295. X @ws 10 @f13 @bw40 (17) @ws 64.8 228 @m 5 @bw ( Index) @ws 10 @f11 8.05 @bw ( .)
  296. X @ws  5 @bw ( . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .)
  297. X @ws @bw40 ( . . . . . . . . . . . . . . . . . . . .) @ws  6.1 @bw ( ) @ws
  298. X 10 @f13 @bw40 (18) @ws
  299. X showpage pageobj restore
  300. X %%Page: ? 3       
  301. X
  302. X /pageobj save def() pop
  303. X 64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws  5 @bw ( and FLOW User Guide) @ws
  304. X 281.4 @bw ( page) @ws  5 @bw ( 1) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276)
  305. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276)
  306. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276)
  307. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( )
  308. X @ws 64.8 696 @m 12 @f11 199.47 @bw ( ) @ws 12 @f13 @bw40 (Chapter) @ws
  309. X 6 @bw ( 1) @ws 64.8 672 @m 10 @f11 194.13 @bw ( ) @ws 12 @f13 @bw40 (Introduct)
  310. X @ws @bw40 (ion) @ws 64.8 636 @m 10 @f11 @bw40 (This) @ws  9.017 @bw ( document)
  311. X @ws @bw40 ( describes the use) @ws  9.018 @bw ( of FLOPPY and FLOW on the VAX/)
  312. X @ws @bw40 (VMS, IBM/CMS and) @ws 64.8 624 @m @bw40 (MIPS/Ultrix) @ws
  313. X 5.481 @bw ( machines in the CERN Computer Centre.) @ws  10.481 @bw ( FLOPPY)
  314. X @ws  5.481 @bw ( is a software) @ws  5.482 @bw ( tool that takes as input) @ws
  315. X 64.8 612 @m @bw40 (a) @ws  5.275 @bw ( file of FORTRAN code and then checks it)
  316. X @ws @bw40 ( according to various "coding conventions" that have been) @ws
  317. X 64.8 600 @m @bw40 (defined.) @ws  5.384 @bw ( It can also "tidy" the) @ws
  318. X 5.385 @bw ( source FORTRAN, producing a new file with indented DO\261loops, bl)
  319. X @ws @bw40 (ock) @ws 64.8 588 @m @bw40 (IF\261s,) @ws  5.394 @bw ( and so on.)
  320. X @ws  10.394 @bw ( In) @ws  5.394 @bw ( addition,) @ws  5.395 @bw ( FLOPPY can )
  321. X @ws @bw40 (be asked to write a binary summary file \(which describes) @ws
  322. X 64.8 576 @m @bw40 (the) @ws  5.035 @bw ( structure of the source FORTRAN\) tha)
  323. X @ws @bw40 (t may then be used as input) @ws  5.036 @bw ( to the FLOW program.)
  324. X @ws  10.036 @bw ( FLOW) @ws 64.8 564 @m @bw40 (is) @ws  5 @bw ( now also avail)
  325. X @ws @bw40 (able for Unix.) @ws 64.8 540 @m @bw40 (The) @ws  5.096 @bw ( FLOW p)
  326. X @ws @bw40 (rogram takes the binary summary file produced by FLOPPY, and, accor)
  327. X @ws @bw40 (ding to the wishes) @ws 64.8 528 @m @bw40 (of) @ws  5 @bw ( the use)
  328. X @ws @bw40 (r, produces various reports on the structure of the original FORTRA)
  329. X @ws @bw40 (N program.) @ws 64.8 504 @m @bw40 (In summary, FLOPPY) @ws
  330. X 64.8 480 @m 10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( checks) @ws
  331. X 5 @bw ( FORTRAN coding conventions,) @ws 64.8 468 @m 10 @f111 @bw40 (\247) @ws
  332. X 10 @f11 21.27 @bw ( "tidies") @ws  5 @bw ( FORTRAN source,) @ws 64.8 456 @m
  333. X 10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( produces) @ws  5 @bw ( a summary)
  334. X @ws @bw40 ( file for FLOW.) @ws 64.8 432 @m @bw40 (And the FLOW program) @ws
  335. X 64.8 408 @m 10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( produces) @ws
  336. X 5 @bw ( various reports on the structure of FORTRAN code,) @ws 64.8 396 @m
  337. X 10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( allows) @ws  5 @bw ( an interact)
  338. X @ws @bw40 (ive exploration of the structure,) @ws 64.8 384 @m 10 @f111
  339. X @bw40 (\247) @ws 10 @f11 21.27 @bw ( shows) @ws  5 @bw ( COMMON block variable)
  340. X @ws @bw40 ( usage.) @ws 64.8 360 @m @bw40 (Please note that FLOPPY is based on)
  341. X @ws @bw40 ( FLOP) @ws 0 3 @rm  8 @f11 @bw40 (1) @ws 0 -3 @rm  10 @f11
  342. X @bw40 ( \(FORTRAN Language Orientated Parser\).) @ws 64.8 312 @m 12 @f11
  343. X 199.47 @bw ( ) @ws 12 @f13 @bw40 (Chapter) @ws  6 @bw ( 2) @ws 64.8 288 @m
  344. X 10 @f11 202.8 @bw ( ) @ws 12 @f13 @bw40 (FLOPPY) @ws 64.8 252 @m 10 @f11
  345. X @bw40 (Have) @ws  5.502 @bw ( you ever wondered whether the FORTRAN77 code you)
  346. X @ws @bw40 ( are writing conforms to) @ws  5.503 @bw ( accepted coding) @ws
  347. X 64.8 240 @m @bw40 (conventions) @ws  5.911 @bw ( ?) @ws  10.911 @bw ( Even) @ws
  348. X  5.911 @bw ( if not, you may still be interested in using FLOPPY to see if it)
  349. X @ws  5.912 @bw ( does.) @ws  10.912 @bw ( Before) @ws 64.8 228 @m @bw40 (using)
  350. X @ws  6.43 @bw ( FLOPPY to check your) @ws  6.431 @bw ( FORTRAN, you should com)
  351. X @ws @bw40 (pile the source form \(preferably with the) @ws 64.8 216 @m
  352. X @bw40 (ANSI) @ws  6.012 @bw ( switch enabled\), and verify that there are no)
  353. X @ws  6.013 @bw ( compilation errors.) @ws  11.013 @bw ( If) @ws  6.013 @bw ( t)
  354. X @ws @bw40 (here are, then the results) @ws 64.8 204 @m @bw40 (from) @ws
  355. X 8.333 @bw ( using FLOPPY will be unreliable.) @ws  13.333 @bw ( FLOPPY) @ws
  356. X 8.333 @bw ( treats illegal) @ws  8.334 @bw ( FORTRAN statements \(such as) @ws
  357. X 64.8 192 @m @bw40 ('INCLUDE') @ws  6.897 @bw ( and HISTORIAN directives\) as c)
  358. X @ws @bw40 (omments, and will ignore) @ws  6.898 @bw ( them completely.) @ws
  359. X 11.898 @bw ( FLOPPY) @ws 64.8 180 @m @bw40 (processes) @ws  5.519 @bw ( the FO)
  360. X @ws @bw40 (RTRAN routine by routine and statement by statement.) @ws
  361. X 10.519 @bw ( When) @ws  5.52 @bw ( all routines have been) @ws 64.8 168 @m
  362. X @bw40 (processed,) @ws  5.384 @bw ( various global checks are made \(e.g. for )
  363. X @ws @bw40 (EXTERNAL functions that) @ws  5.385 @bw ( are not declared\).) @ws
  364. X 10.385 @bw ( One) @ws 64.8 156 @m @bw40 (useful) @ws  5.921 @bw ( by\261produc)
  365. X @ws @bw40 (t of this treatment is the) @ws  5.922 @bw ( identification of COMM)
  366. X @ws @bw40 (ON blocks declared in subprograms) @ws 64.8 144 @m @bw40 (where) @ws
  367. X  5.09 @bw ( they are not used.) @ws  10.09 @bw ( FLOPPY) @ws  5.09 @bw ( is)
  368. X @ws  5.091 @bw ( quite quick, particularly for short programs where the number)
  369. X @ws @bw40 ( of) @ws 64.8 132 @m @bw40 (checks) @ws  5.299 @bw ( is disproporti)
  370. X @ws @bw40 (onately smaller than for larger ones.) @ws  10.299 @bw ( It) @ws
  371. X 5.299 @bw ( is recommended) @ws  5.3 @bw ( to use FLOPPY for short) @ws
  372. X 64.8 120 @m @bw40 (programs,) @ws  5.004 @bw ( early on in the development cyc)
  373. X @ws @bw40 (le, rather than submit very) @ws  5.005 @bw ( large programs later.)
  374. X @ws  10.005 @bw ( In) @ws  5.005 @bw ( this way) @ws 64.8 108 @m @bw40 (the)
  375. X @ws  5.85 @bw ( number of corrections that will need to be made) @ws
  376. X 5.851 @bw ( at any time will be smaller, and thus easier to) @ws 64.8 96 @m
  377. X @bw40 (come) @ws  5 @bw ( to terms with!) @ws 64.8 36 @m 10 @f111 @bw40 (\276)
  378. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276)
  379. X @ws @bw40 (\276\276\276\276) @ws 64.8 12 @m 0 3 @rm  8 @f11 @bw40 (1) @ws
  380. X 0 -3 @rm  10.4 @bw ( H.Grote) @ws  4 @bw ( "FLOP User's Guide and Reference Ma)
  381. X @ws @bw40 (nual", DD/US/13 \(1985\)) @ws
  382. X showpage pageobj restore
  383. X %%Page: ? 4       
  384. X
  385. X /pageobj save def() pop
  386. X 64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws  5 @bw ( and FLOW User Guide) @ws
  387. X 281.4 @bw ( page) @ws  5 @bw ( 2) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276)
  388. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276)
  389. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276)
  390. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( )
  391. X @ws 64.8 696 @m 12 @f13 @bw40 (2.1) @ws  6 @bw ( Warnings from FLOPPY) @ws
  392. X 64.8 672 @m 10 @f11 @bw40 (When) @ws  5.556 @bw ( a FORTRAN statement which do)
  393. X @ws @bw40 (es) @ws  5.557 @bw ( not conform to the conventions is identified b)
  394. X @ws @bw40 (y FLOPPY, a) @ws 64.8 660 @m @bw40 (warning) @ws  5.182 @bw ( messa)
  395. X @ws @bw40 (ge is printed describing the error, together with the offending sta)
  396. X @ws @bw40 (tement.) @ws  10.182 @bw ( Figure) @ws  5.183 @bw ( 1 shows) @ws
  397. X 64.8 648 @m @bw40 (some) @ws  5 @bw ( warnings generated by FLOPPY.) @ws
  398. X 64.8 576 @m 9 @f1 27 @bw ( !!!) @ws  5.4 @bw ( WARNING ... NOT ENOUGH \(<3\) C)
  399. X @ws @bw40 (OMMENT LINES AT START OF MODULE) @ws 64.8 552 @m 54 @bw ( 8.) @ws
  400. X 37.8 @bw ( IF\(IF\(L\).EQ.1\)) @ws  5.4 @bw ( GOTO66) @ws 64.8 540 @m
  401. X 27 @bw ( !!!) @ws  5.4 @bw ( STATEMENT HAS NO BLANK AFTER "GOTO") @ws
  402. X 64.8 516 @m 48.6 @bw ( 16.) @ws  37.8 @bw ( WRITE\(*,21\)) @ws  5.4 @bw ( J)
  403. X @ws 64.8 504 @m 27 @bw ( !!!) @ws  5.4 @bw ( STATEMENT SHOULD NOT HAVE LUN=*)
  404. X @ws 64.8 480 @m 48.6 @bw ( 21.) @ws  37.8 @bw ( STOP) @ws 64.8 468 @m
  405. X 27 @bw ( !!!) @ws  5.4 @bw ( STATEMENT SHOULD BE PRECEDED BY A "WRITE") @ws
  406. X 64.8 444 @m 48.6 @bw ( 22.) @ws  10.8 @bw ( 999 END) @ws 64.8 432 @m 27 @bw ( )
  407. X @ws @bw40 (!!!) @ws  5.4 @bw ( STATEMENT SHOULD NOT HAVE LABEL) @ws 64.8 408 @m
  408. X 27 @bw ( !!!) @ws  16.2 @bw ( 5) @ws  5.4 @bw ( STATEMENT WARNING\(S\) IN THIS)
  409. X @ws @bw40 ( MODULE) @ws 64.8 384 @m 27 @bw ( BEGIN) @ws  5.4 @bw ( GLOBAL CHEC)
  410. X @ws @bw40 (KS WITHIN THIS MODULE) @ws 64.8 360 @m 27 @bw ( !!!) @ws
  411. X 5.4 @bw ( MIXED MODE EXPRESSION \(BAD OPERATOR IS MARKED\)) @ws 64.8 348 @m
  412. X 27 @bw ( IF\(I*2.0\)) @ws  5.4 @bw ( = 3) @ws 64.8 336 @m 48.6 @bw ( ) @ws
  413. X 9 @f111 @bw40 (\264) @ws 64.8 324 @m 9 @f1 27 @bw ( !!!) @ws  5.4 @bw ( WARNIN)
  414. X @ws @bw40 (G ... VARIABLE IF) @ws  37.8 @bw ( CLASHES) @ws  5.4 @bw ( WITH FOR)
  415. X @ws @bw40 (TRAN KEY\261WORD IF) @ws 64.8 300 @m 27 @bw ( !!!) @ws  16.2 @bw ( )
  416. X @ws @bw40 (2) @ws  5.4 @bw ( GLOBAL WARNING\(S\) IN THIS MODULE) @ws
  417. X 64.8 276 @m 10 @f11 21.6 @bw ( ) @ws 10 @f12 @bw40 (Figure) @ws  5 @bw ( 1) @ws
  418. X 10 @f11 @bw40 (:) @ws  24.8 @bw ( Warnings) @ws  5 @bw ( produced by FLOPPY)
  419. X @ws 64.8 216 @m @bw40 (By) @ws  5.296 @bw ( default, only the statements at fa)
  420. X @ws @bw40 (ult are printed, but optionally you may) @ws  5.297 @bw ( specify t)
  421. X @ws @bw40 (hat all FORTRAN) @ws 64.8 204 @m @bw40 (statements) @ws
  422. X 5.715 @bw ( are printed out \(this is useful) @ws  5.716 @bw ( for programs wh)
  423. X @ws @bw40 (ere the context of the statement may clarify) @ws 64.8 192 @m
  424. X @bw40 (the) @ws  6.035 @bw ( error\).) @ws  11.035 @bw ( FLOPPY) @ws
  425. X 6.035 @bw ( will only) @ws  6.036 @bw ( print subprogram headers for those sub)
  426. X @ws @bw40 (programs in which errors have) @ws 64.8 180 @m @bw40 (occured.) @ws
  427. X 10.001 @bw ( All) @ws  5.001 @bw ( output) @ws  5.002 @bw ( from FLOPPY may ei)
  428. X @ws @bw40 (ther be viewed directly at the terminal or, optionally, sent to) @ws
  429. X 64.8 168 @m @bw40 (a) @ws  5 @bw ( disk file for inspection at a later time.)
  430. X @ws 64.8 132 @m 12 @f13 @bw40 (2.2) @ws  6 @bw ( Conventions that may be check)
  431. X @ws @bw40 (ed by FLOPPY) @ws 64.8 108 @m 10 @f11 @bw40 (Here) @ws
  432. X 7.373 @bw ( follows the list of coding conventions which may at present) @ws
  433. X 7.374 @bw ( be checked by FLOPPY. The) @ws 64.8 96 @m @bw40 (conventions) @ws
  434. X 5 @bw ( in the STANDARD set are marked by an asterisk \(*\).) @ws 64.8 72 @m
  435. X 9 @f1 @bw40 (*) @ws  10.8 @bw ( 1) @ws  16.2 @bw ( Avoid) @ws  5.4 @bw ( comme)
  436. X @ws @bw40 (nt lines after end of module) @ws 64.8 60 @m @bw40 (*) @ws
  437. X 10.8 @bw ( 2) @ws  16.2 @bw ( End) @ws  5.4 @bw ( all program modules with the)
  438. X @ws @bw40 ( END statement) @ws 64.8 48 @m @bw40 (*) @ws  10.8 @bw ( 3) @ws
  439. X 16.2 @bw ( Declared) @ws  5.4 @bw ( COMMON blocks must be used in the module)
  440. X @ws 64.8 36 @m @bw40 (*) @ws  10.8 @bw ( 4) @ws  16.2 @bw ( COMPLEX) @ws
  441. X 5.4 @bw ( and DOUBLEPRECISION vars at end of COMMON) @ws 64.8 24 @m
  442. X @bw40 (*) @ws  10.8 @bw ( 5) @ws  16.2 @bw ( COMMON) @ws  5.4 @bw ( block defi)
  443. X @ws @bw40 (nitions should not change) @ws 64.8 12 @m @bw40 (*) @ws
  444. X 10.8 @bw ( 6) @ws  16.2 @bw ( Variable) @ws  5.4 @bw ( names should be 6 or fe)
  445. X @ws @bw40 (wer characters long) @ws 67.9 618.5 @m 447.4 1 @hr 67.9 618.5 @m
  446. X 361 1 @vr 514.3 618.5 @m 361 1 @vr 67.9 258.5 @m 447.4 1 @hr
  447. X showpage pageobj restore
  448. X %%Page: ? 5       
  449. X
  450. X /pageobj save def() pop
  451. X 64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws  5 @bw ( and FLOW User Guide) @ws
  452. X 281.4 @bw ( page) @ws  5 @bw ( 3) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276)
  453. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276)
  454. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276)
  455. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( )
  456. X @ws 64.8 696 @m 9 @f1 16.2 @bw ( 7 Variables) @ws  5.4 @bw ( in COMMON should )
  457. X @ws @bw40 (be 6 characters long) @ws 64.8 684 @m 16.2 @bw ( 8 Variables) @ws
  458. X 5.4 @bw ( not in COMMON should be <6 characters) @ws 64.8 672 @m @bw40 (*) @ws
  459. X 10.8 @bw ( 9) @ws  16.2 @bw ( Integer) @ws  5.4 @bw ( variables should begin w)
  460. X @ws @bw40 (ith I to N) @ws 64.8 660 @m @bw40 (*) @ws  10.8 @bw ( 10 Variable)
  461. X @ws  5.4 @bw ( names should not equal FORTRAN keywords) @ws 64.8 648 @m
  462. X @bw40 (*) @ws  10.8 @bw ( 11 Avoid) @ws  5.4 @bw ( comment lines before module)
  463. X @ws @bw40 ( declaration) @ws 64.8 636 @m @bw40 (*) @ws  10.8 @bw ( 12 Module)
  464. X @ws  5.4 @bw ( names should not equal intrinsic functions) @ws 64.8 624 @m
  465. X @bw40 (*) @ws  10.8 @bw ( 13 First) @ws  5.4 @bw ( statement in a module shoul)
  466. X @ws @bw40 (d be declaration) @ws 64.8 612 @m @bw40 (*) @ws  10.8 @bw ( 14 Modu)
  467. X @ws @bw40 (le) @ws  5.4 @bw ( should begin with at least 3 comment lines) @ws
  468. X 64.8 600 @m 16.2 @bw ( 15) @ws  10.8 @bw ( Comment) @ws  5.4 @bw ( lines shoul)
  469. X @ws @bw40 (d begin with a C) @ws 64.8 588 @m @bw40 (*) @ws  10.8 @bw ( 16 No)
  470. X @ws  5.4 @bw ( comment lines between continuations) @ws 64.8 576 @m
  471. X @bw40 (*) @ws  10.8 @bw ( 17 Avoid) @ws  5.4 @bw ( non\261standard variable ty)
  472. X @ws @bw40 (pes eg INTEGER*2) @ws 64.8 564 @m @bw40 (*) @ws  10.8 @bw ( 18 Avoi)
  473. X @ws @bw40 (d) @ws  5.4 @bw ( multiple COMMON definitions per line) @ws
  474. X 64.8 552 @m @bw40 (*) @ws  10.8 @bw ( 19 Do) @ws  5.4 @bw ( not dimension COMM)
  475. X @ws @bw40 (ON variables outside COMMON) @ws 64.8 540 @m @bw40 (*) @ws
  476. X 10.8 @bw ( 20 Avoid) @ws  5.4 @bw ( embedded blanks in variable names) @ws
  477. X 64.8 528 @m @bw40 (*) @ws  10.8 @bw ( 21 Avoid) @ws  5.4 @bw ( embedded blanks)
  478. X @ws @bw40 ( in syntactic entities) @ws 64.8 516 @m @bw40 (*) @ws  10.8 @bw ( 2)
  479. X @ws @bw40 (2 Avoid) @ws  5.4 @bw ( the use of PRINT statements \(use WRITE\))
  480. X @ws 64.8 504 @m 16.2 @bw ( 23) @ws  10.8 @bw ( Do) @ws  5.4 @bw ( not give the)
  481. X @ws @bw40 ( END statement a label) @ws 64.8 492 @m @bw40 (*) @ws  10.8 @bw ( 2)
  482. X @ws @bw40 (4 Avoid) @ws  5.4 @bw ( WRITE\(* construction) @ws 64.8 480 @m
  483. X 16.2 @bw ( 25) @ws  10.8 @bw ( Avoid) @ws  5.4 @bw ( WRITE statement in a FUNC)
  484. X @ws @bw40 (TION) @ws 64.8 468 @m @bw40 (*) @ws  10.8 @bw ( 26 Avoid) @ws
  485. X 5.4 @bw ( the use of PAUSE statements) @ws 64.8 456 @m @bw40 (*) @ws
  486. X 10.8 @bw ( 27 Statement) @ws  5.4 @bw ( labels should not begin in column 1)
  487. X @ws 64.8 444 @m @bw40 (*) @ws  10.8 @bw ( 28 Always) @ws  5.4 @bw ( preceede S)
  488. X @ws @bw40 (TOP by a descriptive WRITE) @ws 64.8 432 @m @bw40 (*) @ws
  489. X 10.8 @bw ( 29 Avoid) @ws  5.4 @bw ( the use of ENTRY in FUNCTIONS) @ws
  490. X 64.8 420 @m @bw40 (*) @ws  10.8 @bw ( 30 Avoid) @ws  5.4 @bw ( using I/O in FU)
  491. X @ws @bw40 (NCTIONs) @ws 64.8 408 @m 16.2 @bw ( 31) @ws  10.8 @bw ( Avoid) @ws
  492. X 5.4 @bw ( the use of the alternate RETURN statement) @ws 64.8 396 @m
  493. X @bw40 (*) @ws  10.8 @bw ( 32 COMMON) @ws  5.4 @bw ( block names should not equ)
  494. X @ws @bw40 (al variable names) @ws 64.8 384 @m @bw40 (*) @ws  10.8 @bw ( 33 Avo)
  495. X @ws @bw40 (id) @ws  5.4 @bw ( use of obsolete CERN library routines) @ws
  496. X 64.8 372 @m 16.2 @bw ( 34) @ws  10.8 @bw ( Avoid) @ws  5.4 @bw ( FUNCTION name)
  497. X @ws @bw40 (s the same as intrinsics) @ws 64.8 360 @m @bw40 (*) @ws
  498. X 10.8 @bw ( 35 Local) @ws  5.4 @bw ( functions should be declared EXTERNAL) @ws
  499. X 64.8 348 @m @bw40 (*) @ws  10.8 @bw ( 36 Module) @ws  5.4 @bw ( names should a)
  500. X @ws @bw40 (ll be different) @ws 64.8 336 @m @bw40 (*) @ws  10.8 @bw ( 37 Avoid)
  501. X @ws  5.4 @bw ( expressions of mixed mode eg A=B/I) @ws 64.8 324 @m @bw40 (*)
  502. X @ws  10.8 @bw ( 38 Length) @ws  5.4 @bw ( of passed CHARACTER variables should)
  503. X @ws @bw40 ( be *) @ws 64.8 312 @m @bw40 (*) @ws  10.8 @bw ( 39 Order) @ws
  504. X 5.4 @bw ( of statements should conform !) @ws 64.8 300 @m @bw40 (*) @ws
  505. X 10.8 @bw ( 40 Separate) @ws  5.4 @bw ( Statement Functions by comment lines)
  506. X @ws 64.8 288 @m @bw40 (*) @ws  10.8 @bw ( 41 No) @ws  5.4 @bw ( names in State)
  507. X @ws @bw40 (ment Function definitions elsewhere) @ws 64.8 276 @m 16.2 @bw ( 42)
  508. X @ws  10.8 @bw ( Use) @ws  5.4 @bw ( LLT,LGT etc to compare CHARACTER vars. in )
  509. X @ws @bw40 (IFs) @ws 64.8 264 @m 16.2 @bw ( 43) @ws  10.8 @bw ( Variables) @ws
  510. X 5.4 @bw ( \(not COMMON, not PARAMs\) <6 characters) @ws 64.8 252 @m
  511. X @bw40 (*) @ws  10.8 @bw ( 44 Passed) @ws  5.4 @bw ( arguments should be dimens)
  512. X @ws @bw40 (ioned * in module) @ws 64.8 216 @m 12 @f13 @bw40 (2.3) @ws
  513. X 6 @bw ( Names to Ignore) @ws 64.8 192 @m 10 @f11 @bw40 (Occasionally) @ws
  514. X 5.71 @bw ( your FORTRAN may) @ws  5.711 @bw ( contain references to subroutine)
  515. X @ws @bw40 (s or variables over which you have) @ws 64.8 180 @m @bw40 (no) @ws
  516. X 6.33 @bw ( control \(e.g. GEANT) @ws  6.331 @bw ( variables\).) @ws
  517. X 11.331 @bw ( The) @ws  6.331 @bw ( warnings associated with these variables or)
  518. X @ws @bw40 ( subroutines are) @ws 64.8 168 @m @bw40 (therefore) @ws
  519. X 6.243 @bw ( rather academic.) @ws  11.244 @bw ( FLOPPY) @ws  6.244 @bw ( thus )
  520. X @ws @bw40 (allows you to suppress the warnings associated with either) @ws
  521. X 64.8 156 @m @bw40 (particular) @ws  5.192 @bw ( variables, or whole subroutine)
  522. X @ws @bw40 (s.) @ws  10.192 @bw ( This) @ws  5.192 @bw ( is done by) @ws
  523. X 5.193 @bw ( giving FLOPPY a list of 'names to ignore') @ws 64.8 144 @m
  524. X @bw40 (\(you) @ws  5.662 @bw ( may specify up to fifty variable names and) @ws
  525. X 5.663 @bw ( fifty subroutine names\).) @ws  10.663 @bw ( The) @ws
  526. X 5.663 @bw ( file containing the list) @ws 64.8 132 @m @bw40 (of) @ws
  527. X 6.946 @bw ( names to ignore is saved on disk, and may be used again in) @ws
  528. X 6.947 @bw ( a future FLOPPY run.) @ws  11.947 @bw ( As) @ws  6.947 @bw ( an)
  529. X @ws 64.8 120 @m @bw40 (example,) @ws  6.711 @bw ( you may have a VMS file) @ws
  530. X 6.712 @bw ( called TEST.FOR which contains various subroutines, amongst) @ws
  531. X 64.8 108 @m @bw40 (them) @ws  5.631 @bw ( SUBROUTINE OPAL, and references) @ws
  532. X 5.632 @bw ( to the 6\261character variables RINPAN and DRIDER, which) @ws
  533. X 64.8 96 @m @bw40 (do) @ws  5.05 @bw ( not appear in a COMMON block and therefo)
  534. X @ws @bw40 (re should be less than 6 characters long \(if you follow) @ws
  535. X 64.8 84 @m @bw40 (this) @ws  6.486 @bw ( particular convention\).) @ws
  536. X 11.486 @bw ( You) @ws  6.486 @bw ( are aware of this error and wish to suppres)
  537. X @ws @bw40 (s those warnings from) @ws 64.8 72 @m @bw40 (FLOPPY.) @ws
  538. X 10.101 @bw ( You) @ws  5.101 @bw ( also want to suppress all warnings from) @ws
  539. X  5.102 @bw ( SUBROUTINE OPAL for other reasons.) @ws  10.102 @bw ( You) @ws
  540. X 64.8 60 @m @bw40 (type) @ws  5 @bw ( the following FLOPPY command:) @ws
  541. X 64.8 36 @m 9 @f1 @bw40 (FLOPPY) @ws  5.4 @bw ( TEST.FOR /IGNORE=\(#OPAL,RINPAN)
  542. X @ws @bw40 (,DRIDER\)) @ws
  543. X showpage pageobj restore
  544. X %%Page: ? 6       
  545. X
  546. X /pageobj save def() pop
  547. X 64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws  5 @bw ( and FLOW User Guide) @ws
  548. X 281.4 @bw ( page) @ws  5 @bw ( 4) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276)
  549. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276)
  550. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276)
  551. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( )
  552. X @ws 64.8 696 @m @bw40 (The) @ws  7.141 @bw ( process on CERN VM/CMS) @ws
  553. X 7.142 @bw ( is similar; the names may be specified in the panel or on the) @ws
  554. X 64.8 684 @m @bw40 (command) @ws  5 @bw ( line.) @ws 64.8 648 @m 12 @f13
  555. X @bw40 (2.4) @ws  6 @bw ( Special Processes) @ws 64.8 624 @m 10 @f11
  556. X @bw40 (At) @ws  5 @bw ( present there are two 'special processes' available in)
  557. X @ws @bw40 ( FLOPPY.) @ws 64.8 600 @m 10 @f111 @bw40 (\247) @ws 10 @f11
  558. X 21.27 @bw ( The) @ws  5.704 @bw ( process ALEPH will cause the set of coding c)
  559. X @ws @bw40 (onventions to) @ws  5.705 @bw ( change from the STANDARD) @ws
  560. X 64.8 588 @m 28.8 @bw ( set) @ws  5 @bw ( to the ALEPH set.) @ws 64.8 576 @m
  561. X 10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( The) @ws  5.244 @bw ( process GA)
  562. X @ws @bw40 (LEPH \(the ALEPH Monte) @ws  5.245 @bw ( Carlo program\) is intende)
  563. X @ws @bw40 (d for people using FLOPPY) @ws 64.8 564 @m 28.8 @bw ( to) @ws
  564. X 6.795 @bw ( check programs that reference GEANT3 variables; it essentially cau)
  565. X @ws @bw40 (ses FLOPPY to ignore) @ws 64.8 552 @m 28.8 @bw ( variable) @ws
  566. X 5 @bw ( names beginning 'G.....' or 'IG....'.) @ws 64.8 516 @m 12 @f13
  567. X @bw40 (2.5) @ws  6 @bw ( Tidying your FORTRAN) @ws 64.8 492 @m 10 @f11
  568. X @bw40 (FLOPPY) @ws  5 @bw ( allows you to 'tidy' your FORTRAN in the following)
  569. X @ws @bw40 ( ways:) @ws 64.8 468 @m @bw40 (1.) @ws  35.7 @bw ( ) @ws 10 @f12
  570. X @bw40 (GROUPF) @ws  5 @bw ( \(IBM/CMS,VAX/VMS\) \261F \(UNIX\)) @ws 64.8 456 @m
  571. X 10 @f11 43.2 @bw ( Group) @ws  5 @bw ( all FORMAT statements at the end of eac)
  572. X @ws @bw40 (h subprogram.) @ws 64.8 444 @m @bw40 (2.) @ws  35.7 @bw ( ) @ws
  573. X 10 @f12 @bw40 (INDENT) @ws  5 @bw ( \(IBM/CMS,VAX/VMS\) \261J \(UNIX\)) @ws
  574. X 64.8 432 @m 10 @f11 43.2 @bw ( Indent) @ws  5 @bw ( DO\261loops and IF\261clau)
  575. X @ws @bw40 (ses.) @ws 64.8 420 @m @bw40 (3.) @ws  35.7 @bw ( ) @ws 10 @f12
  576. X @bw40 (GOTOS) @ws  10 @bw ( \(IBM/CMS,VAX/VMS\)) @ws  5 @bw ( \261G \(UNIX\))
  577. X @ws 64.8 408 @m 10 @f11 43.2 @bw ( Tabulate) @ws  5 @bw ( GOTOs to the right h)
  578. X @ws @bw40 (and side of the source form.) @ws 64.8 396 @m @bw40 (4.) @ws
  579. X 35.7 @bw ( ) @ws 10 @f12 @bw40 (STMNTS) @ws  5 @bw ( \(IBM/CMS\) RENUMS \(VAX/)
  580. X @ws @bw40 (VMS\) \261S \(UNIX\)) @ws 64.8 384 @m 10 @f11 43.2 @bw ( Renumber)
  581. X @ws  5 @bw ( all statement labels.) @ws 64.8 372 @m @bw40 (5.) @ws
  582. X 35.7 @bw ( ) @ws 10 @f12 @bw40 (RENUMF) @ws  5 @bw ( \(IBM/CMS\) FORMAT VAX/VM)
  583. X @ws @bw40 (S\) \261R \(UNIX\)) @ws 64.8 360 @m 10 @f11 43.2 @bw ( Renumber) @ws
  584. X  5 @bw ( all FORMAT labels.) @ws 64.8 336 @m @bw40 (In) @ws  6.546 @bw ( the c)
  585. X @ws @bw40 (ase where you choose to use any of these options, a new FORTRAN fil)
  586. X @ws @bw40 (e will) @ws  6.547 @bw ( be written) @ws 64.8 324 @m @bw40 (contain)
  587. X @ws @bw40 (ing) @ws  5 @bw ( the changes.) @ws  10 @bw ( Figure) @ws  5 @bw ( )
  588. X @ws @bw40 (2 shows the result of tidying a small subroutine using FLOP.) @ws
  589. X 64.8 262 @m 7 @f1 46.8 @bw ( Before) @ws  4.2 @bw ( tidying) @ws  109.2 @bw ( )
  590. X @ws @bw40 (After) @ws  4.2 @bw ( tidying) @ws 64.8 255 @m 46.8 @bw ( \261\261)
  591. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261) @ws  109.2 @bw ( )
  592. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261) @ws
  593. X 64.8 241 @m 46.8 @bw ( PROGRAM) @ws  4.2 @bw ( BAD) @ws  121.8 @bw ( PROGRAM)
  594. X @ws  4.2 @bw ( BAD) @ws 64.8 234 @m 46.8 @bw ( DIMENSION) @ws  4.2 @bw ( IF\(1)
  595. X @ws @bw40 (0\)) @ws  100.8 @bw ( DIMENSION) @ws  4.2 @bw ( IF\(10\)) @ws
  596. X 64.8 227 @m 46.8 @bw ( I=5) @ws  155.4 @bw ( I=5) @ws 64.8 220 @m 25.8 @bw ( 6)
  597. X @ws @bw40 (6) @ws  12.6 @bw ( J=7) @ws  142.8 @bw ( 10) @ws  4.2 @bw ( J=7) @ws
  598. X 64.8 213 @m 46.8 @bw ( DO) @ws  4.2 @bw ( 43 K=1,I) @ws  121.8 @bw ( DO) @ws
  599. X 4.2 @bw ( 30 K=1,I) @ws 64.8 206 @m 46.8 @bw ( IF\(K\261J.EQ.2\)) @ws
  600. X 4.2 @bw ( THEN) @ws  109.2 @bw ( IF\(K\261J.EQ.2\)) @ws  4.2 @bw ( THEN) @ws
  601. X 64.8 199 @m 46.8 @bw ( DO) @ws  4.2 @bw ( 11 L=1,2) @ws  147 @bw ( DO) @ws
  602. X 4.2 @bw ( 20 L=1,2) @ws 64.8 192 @m 46.8 @bw ( IF\(IF\(L\).EQ.1\)) @ws
  603. X 4.2 @bw ( GOTO66) @ws  117.6 @bw ( IF\(IF\(L\).EQ.1\)) @ws  67.2 @bw ( GOTO)
  604. X @ws  4.2 @bw ( 10) @ws 64.8 185 @m 30 @bw ( 21) @ws  8.4 @bw ( FORMAT\(1X,I2\))
  605. X @ws  100.8 @bw ( 20) @ws  29.4 @bw ( CONTINUE) @ws 64.8 178 @m 30 @bw ( 11) @ws
  606. X  8.4 @bw ( CONTINUE) @ws  298.2 @bw ( GOTO) @ws  4.2 @bw ( 10) @ws 64.8 171 @m
  607. X 46.8 @bw ( GOTO) @ws  4.2 @bw ( 66) @ws  151.2 @bw ( ELSE) @ws 64.8 164 @m
  608. X 46.8 @bw ( ELSE) @ws  176.4 @bw ( IF\(IF\(K\).EQ.IF\(J\)\)) @ws  4.2 @bw ( THE)
  609. X @ws @bw40 (N) @ws 64.8 157 @m 46.8 @bw ( IF\(IF\(K\).EQ.IF\(J\)\)) @ws
  610. X 4.2 @bw ( THEN) @ws  109.2 @bw ( IF\(K\)=1) @ws 64.8 150 @m 46.8 @bw ( IF\(K\))
  611. X @ws @bw40 (=1) @ws  176.4 @bw ( WRITE\(6,500\)) @ws  4.2 @bw ( J) @ws
  612. X 64.8 143 @m 46.8 @bw ( WRITE\(6,21\)) @ws  4.2 @bw ( J) @ws  151.2 @bw ( J=5)
  613. X @ws 64.8 136 @m 46.8 @bw ( J=5) @ws  180.6 @bw ( ENDIF) @ws 64.8 129 @m
  614. X 46.8 @bw ( ENDIF) @ws  159.6 @bw ( ENDIF) @ws 64.8 122 @m 46.8 @bw ( ENDIF) @ws
  615. X  134.4 @bw ( 30) @ws  4.2 @bw ( CONTINUE) @ws 64.8 115 @m 34.2 @bw ( 43) @ws
  616. X 4.2 @bw ( CONTINUE) @ws  134.4 @bw ( STOP) @ws 64.8 108 @m 46.8 @bw ( STOP) @ws
  617. X  134.4 @bw ( 500) @ws  4.2 @bw ( FORMAT\(1X,I2\)) @ws 64.8 101 @m 46.8 @bw ( E)
  618. X @ws @bw40 (ND) @ws  155.4 @bw ( END) @ws 64.8 77 @m 10 @f11 21.6 @bw ( ) @ws
  619. X 10 @f12 @bw40 (Figure) @ws  5 @bw ( 2) @ws 10 @f11 @bw40 (:) @ws  24.8 @bw ( A)
  620. X @ws  5 @bw ( Subroutine 'tidied' by FLOPPY) @ws 67.9 294.5 @m 447.4 1 @hr
  621. X 67.9 294.5 @m 236 1 @vr 514.3 294.5 @m 236 1 @vr 67.9 59.5 @m 447.4 1 @hr
  622. X showpage pageobj restore
  623. X %%Page: ? 7       
  624. X
  625. X /pageobj save def() pop
  626. X 64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws  5 @bw ( and FLOW User Guide) @ws
  627. X 281.4 @bw ( page) @ws  5 @bw ( 5) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276)
  628. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276)
  629. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276)
  630. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( )
  631. X @ws 64.8 696 @m 12 @f13 @bw40 (2.6) @ws  6 @bw ( FLOPPY on VAX/VMS) @ws
  632. X 64.8 672 @m 10 @f11 @bw40 (The) @ws  5 @bw ( format of the FLOPPY command on V)
  633. X @ws @bw40 (MS is:) @ws 64.8 648 @m 9 @f1 10.8 @bw ( FLOPPY filename [/qualifie)
  634. X @ws @bw40 (rs]) @ws 64.8 624 @m 10 @f11 @bw40 (Where) @ws  5.244 @bw ( 'filena)
  635. X @ws @bw40 (me' specifies the name of) @ws  5.245 @bw ( the input file of FORTR)
  636. X @ws @bw40 (AN upon which the coding convention) @ws 64.8 612 @m @bw40 (checks)
  637. X @ws  6.485 @bw ( are to be made.) @ws  11.485 @bw ( You) @ws  6.485 @bw ( may )
  638. X @ws @bw40 (use wild\261cards in the filename; if more than one file is found)
  639. X @ws 64.8 600 @m @bw40 (matching) @ws  7.712 @bw ( the specification, then the )
  640. X @ws @bw40 (files will) @ws  7.713 @bw ( be internally concatenated.) @ws
  641. X 12.713 @bw ( Note) @ws  7.713 @bw ( that non\261standard) @ws 64.8 588 @m
  642. X @bw40 (constructs) @ws  5.379 @bw ( such as INCLUDE statements will be treated)
  643. X @ws @bw40 ( as illegal statements) @ws  5.38 @bw ( by FLOPPY, and ignored.) @ws
  644. X 64.8 576 @m @bw40 (If) @ws  5.035 @bw ( you are) @ws  5.036 @bw ( using FLOPPY)
  645. X @ws @bw40 ( to tidy your Fortran \(see /TIDY option\), then 'filename' may be )
  646. X @ws @bw40 (for instance) @ws 64.8 564 @m @bw40 (an) @ws  5.466 @bw ( EDITF.DAT)
  647. X @ws @bw40 ( extracted with HISTORIAN option) @ws  5.467 @bw ( S, or likewise m)
  648. X @ws @bw40 (ay be a file where the COMMON) @ws 64.8 552 @m @bw40 (block) @ws
  649. X 5.677 @bw ( declarations are) @ws  5.678 @bw ( hidden in INCLUDE statements. T)
  650. X @ws @bw40 (his will not jeopardize the indentation of DO) @ws 64.8 540 @m
  651. X @bw40 (loops) @ws  5 @bw ( and IF clauses, nor the re\261numbering of statemen)
  652. X @ws @bw40 (t labels.) @ws 64.8 504 @m 12 @f13 @bw40 (2.6.1) @ws  6 @bw ( VAX/V)
  653. X @ws @bw40 (MS FLOPPY examples) @ws 64.8 480 @m 9 @f1 10.8 @bw ( $) @ws
  654. X 5.4 @bw ( FLOPPY myfile.for) @ws 64.8 456 @m 10 @f11 @bw40 (Make) @ws
  655. X 5 @bw ( all the standard coding convention checks on the FORTRAN file myfile.f)
  656. X @ws @bw40 (or.) @ws 64.8 432 @m 9 @f1 10.8 @bw ( $) @ws  5.4 @bw ( FLOPPY/TREE)
  657. X @ws @bw40 (/NOCHECKS myfile.for) @ws 64.8 408 @m 10 @f11 @bw40 (Produce) @ws
  658. X 5 @bw ( an output file for FLOW, and make no checks.) @ws 64.8 384 @m 9 @f1
  659. X 10.8 @bw ( $) @ws  5.4 @bw ( FLOPPY/IGNORE=\(FRED,#MICHEL\) myfile.for) @ws
  660. X 64.8 360 @m 10 @f11 @bw40 (Make) @ws  5 @bw ( all the available checks, but ig)
  661. X @ws @bw40 (nore the variable called FRED and the subroutine called MICHEL.) @ws
  662. X 64.8 336 @m 9 @f1 10.8 @bw ( $) @ws  5.4 @bw ( FLOPPY/CHECKS=\(1,5,25,3\)/FULL)
  663. X @ws @bw40 ( myfile.for) @ws 64.8 312 @m 10 @f11 @bw40 (Check) @ws  5 @bw ( con)
  664. X @ws @bw40 (ventions 1,3,5 and 25, and list all lines from the source FORTRAN.)
  665. X @ws 64.8 288 @m 9 @f1 10.8 @bw ( $) @ws  5.4 @bw ( FLOPPY/CHECKS=\(99,\2611,)
  666. X @ws @bw40 (\2612,\26120\) my*.for) @ws 64.8 264 @m 10 @f11 @bw40 (Check) @ws
  667. X 6.762 @bw ( all conventions except numbers 1,2 and 20. Use all files beginning)
  668. X @ws @bw40 ( 'MY' and with filetype) @ws 64.8 252 @m @bw40 (.FOR.) @ws
  669. X 64.8 228 @m 9 @f1 10.8 @bw ( $) @ws  5.4 @bw ( FLOPPY/NOLOG/OUT=output.lis) @ws
  670. X  10.8 @bw ( myfile.for) @ws 64.8 204 @m 10 @f11 @bw40 (Send) @ws  5 @bw ( the )
  671. X @ws @bw40 (FLOPPY output to a listing file, and disable the command parsing in)
  672. X @ws @bw40 (formation.) @ws 64.8 180 @m 9 @f1 10.8 @bw ( $) @ws  5.4 @bw ( FLOP)
  673. X @ws @bw40 (PY/NOCHECKS/TIDY/INDENT=2 myfile.for) @ws 64.8 156 @m 10 @f11
  674. X @bw40 (Produce) @ws  7.363 @bw ( a new FORTRAN file) @ws  7.364 @bw ( with all)
  675. X @ws @bw40 ( DO and IF clauses indented by two spaces. No coding) @ws
  676. X 64.8 144 @m @bw40 (convention) @ws  5 @bw ( checking is done. The new Fortran )
  677. X @ws @bw40 (will be called FORTRAN.FOR.) @ws 64.8 120 @m 9 @f1 10.8 @bw ( $) @ws
  678. X  5.4 @bw ( FLOPPY/TIDY/STMNTS=\(START=10,STEP=5\)/FORTRAN=out.for myfile.for)
  679. X @ws 64.8 96 @m 10 @f11 @bw40 (Renumber) @ws  7.675 @bw ( statements starting a)
  680. X @ws @bw40 (t 10 \(10, 15,) @ws  7.676 @bw ( 20 etc.\) and write the new FORTRA)
  681. X @ws @bw40 (N to the file) @ws 64.8 84 @m @bw40 (OUT.FOR.) @ws
  682. X showpage pageobj restore
  683. X %%Page: ? 8       
  684. X
  685. X /pageobj save def() pop
  686. X 64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws  5 @bw ( and FLOW User Guide) @ws
  687. X 281.4 @bw ( page) @ws  5 @bw ( 6) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276)
  688. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276)
  689. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276)
  690. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( )
  691. X @ws 64.8 696 @m 12 @f13 @bw40 (2.7) @ws  6 @bw ( FLOPPY on IBM/CMS) @ws
  692. X 64.8 672 @m 10 @f11 @bw40 (Type) @ws  5.94 @bw ( "FLOPPY" to activate the prog)
  693. X @ws @bw40 (ram in full screen ) @ws 0 3 @rm  8 @f11 @bw40 (2) @ws 0 -3 @rm
  694. X 10 @f11 @bw40 ( mode, or "FLOPPY fn ft fm \( options" to) @ws 64.8 660 @m
  695. X @bw40 (activate) @ws  6.234 @bw ( the program in line mode.) @ws
  696. X 11.234 @bw ( The) @ws  6.234 @bw ( FLOPPY panel obtained by typing "FLOPPY" is)
  697. X @ws @bw40 ( shown in) @ws 64.8 648 @m @bw40 (figure) @ws  5 @bw ( 3.) @ws
  698. X 64.8 564 @m 9 @f1 21.6 @bw ( <=>) @ws  5.4 @bw ( FLOPPY VERSION 6.00 <=======>)
  699. X @ws @bw40 ( CODING CONVENTION CHECKER <====>) @ws 64.8 540 @m 32.4 @bw ( Name)
  700. X @ws  5.4 @bw ( of source Fortran file not yet given) @ws 64.8 528 @m
  701. X 248.4 @bw ( FN) @ws  43.2 @bw ( FT) @ws  32.4 @bw ( FM) @ws 64.8 516 @m
  702. X 118.8 @bw ( Source) @ws  10.8 @bw ( FORTRAN ==>) @ws  64.8 @bw ( FORTRAN) @ws
  703. X 16.2 @bw ( A) @ws 64.8 504 @m 21.6 @bw ( \261\261\261\261\261\261\261\261\261)
  704. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  705. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  706. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  707. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261) @ws
  708. X 64.8 492 @m @bw40 ( a\)) @ws  5.4 @bw ( Existing FLOPPY parameter file) @ws
  709. X 10.8 @bw ( ==>) @ws  64.8 @bw ( FLOPIGN) @ws  16.2 @bw ( A) @ws 64.8 480 @m
  710. X 21.6 @bw ( b\)) @ws  5.4 @bw ( Checks to be made) @ws  59.4 @bw ( ==>) @ws
  711. X 10.8 @bw ( STANDARD) @ws 64.8 468 @m 37.8 @bw ( Specify) @ws  5.4 @bw ( names )
  712. X @ws @bw40 (to ignore) @ws  27 @bw ( ==>) @ws  10.8 @bw ( NO) @ws 64.8 456 @m
  713. X 21.6 @bw ( \261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  714. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  715. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  716. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  717. X @ws @bw40 (\261\261\261\261\261\261) @ws 64.8 444 @m @bw40 ( Generate) @ws
  718. X 5.4 @bw ( a file for FLOW) @ws  37.8 @bw ( ==>) @ws  10.8 @bw ( NO) @ws
  719. X 64.8 432 @m 21.6 @bw ( \261\261\261\261\261\261\261\261\261\261\261\261\261)
  720. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  721. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  722. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  723. X @ws @bw40 (\261\261\261\261\261\261\261\261\261) @ws 64.8 420 @m @bw40 ( Send)
  724. X @ws  5.4 @bw ( FLOPPY Output to disk) @ws  27 @bw ( ==>) @ws  10.8 @bw ( YES)
  725. X @ws 64.8 408 @m 21.6 @bw ( List) @ws  5.4 @bw ( all source FORTRAN lines) @ws
  726. X 10.8 @bw ( ==> NO) @ws 64.8 396 @m 21.6 @bw ( \261\261\261\261\261\261\261\261)
  727. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  728. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  729. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  730. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261) @ws
  731. X 64.8 384 @m @bw40 ( Tidy) @ws  5.4 @bw ( Fortran?) @ws  10.8 @bw ( ==>) @ws
  732. X 5.4 @bw ( NO) @ws  32.4 @bw ( Output) @ws  10.8 @bw ( ==> OUTPUT) @ws
  733. X 16.2 @bw ( FORTRAN A) @ws 64.8 372 @m 27 @bw ( a\)) @ws  5.4 @bw ( Adjust GOTO)
  734. X @ws @bw40 (s to right of page) @ws  10.8 @bw ( ==> NO) @ws 64.8 360 @m
  735. X 27 @bw ( b\)) @ws  5.4 @bw ( Indent DO/IF clauses) @ws  59.4 @bw ( ==>) @ws
  736. X 10.8 @bw ( NO) @ws  37.8 @bw ( Spaces) @ws  10.8 @bw ( ==> 3) @ws 64.8 348 @m
  737. X 27 @bw ( c\)) @ws  5.4 @bw ( Group FORMATs at routine ends) @ws  10.8 @bw ( ==)
  738. X @ws @bw40 (> NO) @ws 64.8 336 @m 27 @bw ( d\)) @ws  5.4 @bw ( Renumber FORMAT )
  739. X @ws @bw40 (statements) @ws  27 @bw ( ==>) @ws  10.8 @bw ( NO) @ws  37.8 @bw ( )
  740. X @ws @bw40 (Start) @ws  16.2 @bw ( ==>) @ws  10.8 @bw ( 500) @ws 64.8 324 @m
  741. X 286.2 @bw ( Step) @ws  21.6 @bw ( ==>) @ws  10.8 @bw ( 10) @ws 64.8 312 @m
  742. X 27 @bw ( e\)) @ws  5.4 @bw ( Renumber all other statements) @ws  10.8 @bw ( ==)
  743. X @ws @bw40 (> NO) @ws  37.8 @bw ( Start) @ws  16.2 @bw ( ==>) @ws  10.8 @bw ( 1)
  744. X @ws @bw40 (0) @ws 64.8 300 @m 286.2 @bw ( Step) @ws  21.6 @bw ( ==>) @ws
  745. X 10.8 @bw ( 10) @ws 64.8 276 @m 21.6 @bw ( PF1:) @ws  5.4 @bw ( Help) @ws
  746. X 10.8 @bw ( \(on cursor\)) @ws  16.2 @bw ( PF2:) @ws  5.4 @bw ( Enter) @ws
  747. X 10.8 @bw ( a CMS Command) @ws  27 @bw ( PF3:) @ws  5.4 @bw ( Exit) @ws
  748. X 64.8 252 @m 10 @f11 21.6 @bw ( ) @ws 10 @f12 @bw40 (Figure) @ws  5 @bw ( 3) @ws
  749. X 10 @f11 @bw40 (:) @ws  24.8 @bw ( The) @ws  5 @bw ( FLOPPY panel) @ws
  750. X 64.8 192 @m @bw40 (The) @ws  5.037 @bw ( default FLOPPY options are highlighte)
  751. X @ws @bw40 (d in the panel,) @ws  5.038 @bw ( and you may change these accordin)
  752. X @ws @bw40 (g to your) @ws 64.8 180 @m @bw40 (requirements.) @ws  10.469 @bw ( )
  753. X @ws @bw40 (By) @ws  5.469 @bw ( positioning the cursor on the item with which )
  754. X @ws @bw40 (you) @ws  5.47 @bw ( want help, and pressing the PF1) @ws
  755. X 64.8 168 @m @bw40 (key,) @ws  6.57 @bw ( FLOPPY will access the HELP file at)
  756. X @ws  6.571 @bw ( the correct line. In addition, you may enter any CMS) @ws
  757. X 64.8 156 @m @bw40 (command) @ws  5.294 @bw ( whilst in the FLOPPY panel) @ws
  758. X 5.295 @bw ( by first pressing the PF2 key. This is useful for example when) @ws
  759. X 64.8 144 @m @bw40 (you) @ws  5.453 @bw ( forget the whereabouts of your source)
  760. X @ws @bw40 ( Fortran file; press PF2) @ws  5.454 @bw ( then enter "FILELIST * F)
  761. X @ws @bw40 (ORTRAN) @ws 64.8 132 @m @bw40 (*".) @ws  5 @bw ( After execution of)
  762. X @ws @bw40 ( the command you will be asked if you want to return to the FLOPPY )
  763. X @ws @bw40 (panel.) @ws 64.8 108 @m @bw40 (Alternatively,) @ws  5.401 @bw ( FLO)
  764. X @ws @bw40 (PPY may be invoked in line\261mode, in which case the format of) @ws
  765. X  5.402 @bw ( the command is as) @ws 64.8 96 @m @bw40 (shown) @ws  5 @bw ( in F)
  766. X @ws @bw40 (igure 4.) @ws 64.8 48 @m 9 @f111 @bw40 (\276\276\276\276\276\276)
  767. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) @ws
  768. X 64.8 24 @m 0 3 @rm  8 @f11 @bw40 (2) @ws 0 -3 @rm  10.4 @bw ( FLOPPY) @ws
  769. X 4.375 @bw ( in full screen mode uses the IBM package) @ws  4.376 @bw ( IOS3270)
  770. X @ws @bw40 (, a screen management facility for full\261screen terminals, which)
  771. X @ws 64.8 12 @m 14.4 @bw ( is) @ws  4 @bw ( not standard REXX.) @ws
  772. X 67.9 618.5 @m 447.4 1 @hr 67.9 618.5 @m 385 1 @vr 514.3 618.5 @m 385 1 @vr
  773. X 67.9 234.5 @m 447.4 1 @hr
  774. X showpage pageobj restore
  775. X %%Page: ? 9       
  776. X
  777. X /pageobj save def() pop
  778. X 64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws  5 @bw ( and FLOW User Guide) @ws
  779. X 281.4 @bw ( page) @ws  5 @bw ( 7) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276)
  780. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276)
  781. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276)
  782. X @ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( )
  783. X @ws 64.8 696 @m 9 @f1 @bw40 (+\261\261\261\261\261\261\261\261+\261\261\261)
  784. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  785. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  786. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  787. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261+) @ws 64.8 684 @m
  788. X @bw40 (|) @ws  43.2 @bw ( |) @ws  334.8 @bw ( |) @ws 64.8 672 @m @bw40 (|) @ws
  789. X 5.4 @bw ( FLOPPY | [ ? | fn [ft [fm]] [\( Options ]]) @ws  156.6 @bw ( |) @ws
  790. X 64.8 660 @m @bw40 (|) @ws  43.2 @bw ( |) @ws  334.8 @bw ( |) @ws 64.8 648 @m
  791. X @bw40 (|) @ws  43.2 @bw ( |) @ws  5.4 @bw ( Options:) @ws  286.2 @bw ( |) @ws
  792. X 64.8 636 @m @bw40 (|) @ws  43.2 @bw ( |) @ws  334.8 @bw ( |) @ws 64.8 624 @m
  793. X @bw40 (|) @ws  43.2 @bw ( |) @ws  5.4 @bw ( [CHECKS [STANDARD|NONE|ALEPH|GALEP)
  794. X @ws @bw40 (H|ONLINE|LIST|number_list]]|) @ws 64.8 612 @m @bw40 (|) @ws
  795. X 43.2 @bw ( |) @ws  5.4 @bw ( [DISK]) @ws  297 @bw ( |) @ws 64.8 600 @m
  796. X @bw40 (|) @ws  43.2 @bw ( |) @ws  5.4 @bw ( [FULL]) @ws  297 @bw ( |) @ws
  797. X 64.8 588 @m @bw40 (|) @ws  43.2 @bw ( |) @ws  5.4 @bw ( [GOTOS]) @ws
  798. X 291.6 @bw ( |) @ws 64.8 576 @m @bw40 (|) @ws  43.2 @bw ( |) @ws  5.4 @bw ( [GR)
  799. X @ws @bw40 (OUPF]) @ws  286.2 @bw ( |) @ws 64.8 564 @m @bw40 (|) @ws
  800. X 43.2 @bw ( |) @ws  5.4 @bw ( [IGNORE]) @ws  286.2 @bw ( |) @ws 64.8 552 @m
  801. X @bw40 (|) @ws  43.2 @bw ( |) @ws  5.4 @bw ( [INDENT) @ws  21.6 @bw ( spaces])
  802. X @ws  232.2 @bw ( |) @ws 64.8 540 @m @bw40 (|) @ws  43.2 @bw ( |) @ws
  803. X 5.4 @bw ( [OLD) @ws  37.8 @bw ( fn) @ws  5.4 @bw ( ft fm]) @ws  221.4 @bw ( |)
  804. X @ws 64.8 528 @m @bw40 (|) @ws  43.2 @bw ( |) @ws  5.4 @bw ( [OUTPUT) @ws
  805. X 21.6 @bw ( fn) @ws  5.4 @bw ( ft fm]) @ws  221.4 @bw ( |) @ws 64.8 516 @m
  806. X @bw40 (|) @ws  43.2 @bw ( |) @ws  5.4 @bw ( [RENUMF) @ws  21.6 @bw ( start_val)
  807. X @ws @bw40 (ue[,step_value]]) @ws  135 @bw ( |) @ws 64.8 504 @m @bw40 (|) @ws
  808. X 43.2 @bw ( |) @ws  5.4 @bw ( [RENUMS) @ws  21.6 @bw ( start_value[,step_value])
  809. X @ws @bw40 (]) @ws  135 @bw ( |) @ws 64.8 492 @m @bw40 (|) @ws  43.2 @bw ( |)
  810. X @ws  5.4 @bw ( [TIDY]) @ws  297 @bw ( |) @ws 64.8 480 @m @bw40 (|) @ws
  811. X 43.2 @bw ( |) @ws  5.4 @bw ( [TREE]) @ws  297 @bw ( |) @ws 64.8 468 @m
  812. X @bw40 (+\261\261\261\261\261\261\261\261+\261\261\261\261\261\261\261\261\261)
  813. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  814. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  815. X @ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261)
  816. X @ws @bw40 (\261\261\261\261\261+) @ws 64.8 444 @m 10 @f12 @bw40 (Figure) @ws
  817. X 5 @bw ( 4) @ws 10 @f11 @bw40 (:) @ws  24.8 @bw ( FLOPPY) @ws  5 @bw ( \(IBM/CM)
  818. X @ws @bw40 (S\) command format) @ws 64.8 408 @m 12 @f13 @bw40 (2.8) @ws
  819. END_OF_FILE
  820.   if test 50105 -ne `wc -c <'floppy.ps.a'`; then
  821.     echo shar: \"'floppy.ps.a'\" unpacked with wrong size!
  822.   else
  823.     if test -f floppy.ps.b; then
  824.       echo shar: Rebuilding \"'floppy.ps'\" \(104017 characters\)
  825.       cat floppy.ps.a floppy.ps.b > floppy.ps
  826.       if test 104017 -ne `wc -c <'floppy.ps'`; then
  827.         echo shar: \"'floppy.ps'\" rebuilt with the wrong size!
  828.       else 
  829.         rm floppy.ps.a floppy.ps.b
  830.       fi
  831.     fi
  832.   fi
  833.   # end of 'floppy.ps.a'
  834. fi
  835. if test -f 'makefile' -a "${1}" != "-c" ; then 
  836.   echo shar: Will not clobber existing file \"'makefile'\"
  837. else
  838.   echo shar: Extracting \"'makefile'\" \(1370 characters\)
  839.   sed "s/^X//" >'makefile' <<'END_OF_FILE'
  840. X# makefile for Flow
  841. X# Companion to Floppy - J.J.Bunn/CERN
  842. X
  843. X.SUFFIXES    :     .for
  844. X
  845. XF77 = f77
  846. XFFLAGS = -c
  847. XFFLAGSO = -w
  848. X
  849. XOBJECTS = unixflow.o caschg.o chtbox.o chtlin.o extern.o grinit.o \
  850. X          iniarr.o procht.o procom.o prodes.o proqry.o protre.o \
  851. X          rdflop.o search.o tabent.o lenocc.o gtx.o
  852. XINCLUDES = *.h
  853. X
  854. X.for.o:    
  855. X    $(F77) $(FFLAGS) $<
  856. X
  857. X
  858. X# If the compiler only accepts .f files, use the following three lines
  859. X# instead of the suffix rule above
  860. X#.for.o:
  861. X#       cp $< $*.f
  862. X#       $(F77) $(FFLAGS) $*.f
  863. X
  864. Xflow:    $(OBJECTS) $(INCLUDES)
  865. X    $(F77) -o $@ $(FFLAGSO) $(OBJECTS)
  866. X
  867. X 
  868. Xcaschg.o:    caschg.for params.h
  869. Xchtbox.o:    chtbox.for lunits.h
  870. Xchtlin.o:    chtlin.for lunits.h
  871. Xextern.o:    extern.for params.h tables.h lunits.h
  872. Xgrinit.o:    grinit.for jobcom.h lunits.h
  873. Xgtx.o:        gtx.for lunits.h
  874. Xiniarr.o:    iniarr.for params.h tables.h
  875. Xprocht.o:    procht.for jobcom.h lunits.h trecom.h tables.h hashnm.h
  876. Xprocom.o:    procom.for jobcom.h lunits.h trecom.h tables.h hashnm.h
  877. Xprodes.o:    prodes.for jobcom.h lunits.h
  878. Xproqry.o:    proqry.for params.h tables.h floppy.h lunits.h trecom.h
  879. Xprotre.o:    protre.for params.h tables.h ignore.h lunits.h trecom.h
  880. Xrdflop.o:    rdflop.for params.h lunits.h jobcom.h floppy.h
  881. Xsearch.o:    search.for params.h tables.h
  882. Xtabent.o:    tabent.for params.h floppy.h lunits.h tables.h
  883. Xlenocc.o:    lenocc.for
  884. Xunixflow.o:    unixflow.for lunits.h params.h jobcom.h ignore.h trecom.h
  885. X
  886. END_OF_FILE
  887.   if test 1370 -ne `wc -c <'makefile'`; then
  888.     echo shar: \"'makefile'\" unpacked with wrong size!
  889.   fi
  890.   # end of 'makefile'
  891. fi
  892. echo shar: End of archive 1 \(of 5\).
  893. cp /dev/null ark1isdone
  894. MISSING=""
  895. for I in 1 2 3 4 5 ; do
  896.     if test ! -f ark${I}isdone ; then
  897.     MISSING="${MISSING} ${I}"
  898.     fi
  899. done
  900. if test "${MISSING}" = "" ; then
  901.     echo You have unpacked all 5 archives.
  902.     rm -f ark[1-9]isdone
  903. else
  904.     echo You still must unpack the following archives:
  905.     echo "        " ${MISSING}
  906. fi
  907. exit 0
  908. exit 0 # Just in case...
  909.