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