From decwrl!wyse!mips!apple!bridge2!jarthur!uunet!allbery Wed May 16 10:14:34 PDT 1990 Article 1566 of comp.sources.misc: Path: decwrl!wyse!mips!apple!bridge2!jarthur!uunet!allbery From: julian@cernvax.cern.ch (julian bunn) Newsgroups: comp.sources.misc Subject: v12i087: Floppy - Fortran Coding Convention Checker Part 01/11 Keywords: fortran Message-ID: <88877@uunet.UU.NET> Date: 14 May 90 23:07:33 GMT Sender: allbery@uunet.UU.NET Organization: CERN, Geneva, Switzerland Lines: 1514 Approved: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc) Posting-number: Volume 12, Issue 87 Submitted-by: julian@cernvax.cern.ch (julian bunn) Archive-name: ffccc/part01 #!/bin/sh echo 'Start of Floppy, part 01 of 11:' echo 'x - floppy.ps' sed 's/^X//' > floppy.ps << '/' X%!PS-Adobe-1.0 X X%%Creator: ***** POSTS VERSION 86.1 ***** X X%%Title: POSTS: Waterloo SCRIPT 86.1 (87FEB11) 12:04:04 May 9, 1990 X X%%CreationDate: 12:06:37 May 9, 1990 X X%%Pages: (atend) X X%%BoundingBox: (atend) X X%%DocumentFonts: Courier Times-Bold Times-Italic Symbol Times-Roman X X%%EndComments X X/jobobj save def() pop X/#copies 1 def X/$blnkadj 0 def X/$blnkwid 0 def X/@bwset { $blnkwid (\040) stringwidth pop sub /$blnkadj exch def } bind def X/@bw { /$blnkwid exch def @bwset $blnkadj 0 8#40 } bind def X/@bw40 {$blnkadj 0 8#40} bind def X/@ws {widthshow} bind def X/@m {moveto} bind def X/reencsmalldict 24 dict def X/ReEncodeSmall X { reencsmalldict begin X /newcodesandnames exch def X /newfontname exch def X /basefontname exch def X /basefontdict basefontname findfont def X /newfont basefontdict maxlength dict def X basefontdict X { exch dup /FID ne X { dup /Encoding eq X { exch dup length array copy X newfont 3 1 roll put } X { exch newfont 3 1 roll put } X ifelse } X { pop pop } X ifelse X } forall X newfont /FontName newfontname put X newcodesandnames aload pop X newcodesandnames length 2 idiv X { newfont /Encoding get 3 1 roll put } X repeat X newfontname newfont definefont pop X end X } def X/accvec [ X 176 /aacute X 181 /Aacute X 190 /Agrave X 192 /Acircumflex X 201 /Adieresis X 204 /Atilde X 209 /aring X 210 /Aring X 211 /ccedilla X 212 /Ccedilla X 213 /eacute X 214 /Eacute X 215 /Egrave X 216 /Ecircumflex X 217 /Edieresis X 218 /iacute X 219 /Iacute X 220 /igrave X 221 /Igrave X 222 /icircumflex X 223 /Icircumflex X 224 /idieresis X 226 /Idieresis X 228 /ntilde X 229 /Ntilde X 230 /oacute X 231 /Oacute X 236 /Ograve X 237 /Ocircumflex X 238 /Odieresis X 239 /Otilde X 240 /uacute X 242 /Uacute X 243 /Ugrave X 244 /Ucircumflex X 246 /Udieresis X 247 /Ydieresis X ] def X/@rm {rmoveto} bind def X/@hr {/$hw exch def /$hl exch def currentpoint 2 copy $hw 2.0 div sub 2 Xcopy newpath moveto exch $hl add exch lineto $hw setlinewidth Xstroke moveto} bind def X/@vr {/$vw exch def /$vl exch def currentpoint 2 copy exch $vw 2.0 div add Xexch 2 copy newpath moveto $vl sub lineto $vw setlinewidth Xstroke moveto} bind def X/Courier /Courier-Acc accvec ReEncodeSmall X/@f1 {/Courier-Acc findfont exch scalefont setfont @bwset } bind def X/Times-Bold /Times-Bold-Acc accvec ReEncodeSmall X/@f13 {/Times-Bold-Acc findfont exch scalefont setfont @bwset } bind def X/Times-Italic /Times-Italic-Acc accvec ReEncodeSmall X/@f12 {/Times-Italic-Acc findfont exch scalefont setfont @bwset } bind def X/@f111 {/Symbol findfont exch scalefont setfont @bwset } bind def X/Times-Roman /Times-Roman-Acc accvec ReEncodeSmall X/@f11 {/Times-Roman-Acc findfont exch scalefont setfont @bwset } bind def X0 rotate X7.2 0 translate X%% statusdict /manualfeed true put X X%%EndProlog X X%%Page: ? 1 X X/pageobj save def() pop X64.8 660 @m 10 @f11 140.301 @bw ( ) @ws 18 @f13 @bw40 (FLOPPY) @ws 9 @bw ( Us) X@ws @bw40 (er Guide) @ws 64.8 636 @m 10 @f11 176.796 @bw ( ) @ws 18 @f13 X@bw40 (VERSION) @ws 9 @bw ( 6) @ws 64.8 540 @m 9 @f1 48.6 @bw ( FFFFFFF) @ws X10.8 @bw ( LL) @ws 43.2 @bw ( OOOOOO) @ws 27 @bw ( PPPPPP) @ws 21.6 @bw ( P) X@ws @bw40 (PPPPP YY YY) @ws 64.8 528 @m 43.2 @bw ( FFFFFFFF) @ws 10.8 @bw ( L) X@ws @bw40 (L) @ws 37.8 @bw ( OOOOOOOO) @ws 16.2 @bw ( PPPPPPPP) @ws X10.8 @bw ( PPPPPPPP) @ws 16.2 @bw ( YY) @ws 21.6 @bw ( YY) @ws 64.8 516 @m X43.2 @bw ( FF LL) @ws 37.8 @bw ( OO) @ws 21.6 @bw ( OO) @ws 16.2 @bw ( PP) X@ws 21.6 @bw ( PP) @ws 10.8 @bw ( PP) @ws 21.6 @bw ( PP) @ws 16.2 @bw ( YY) X@ws 21.6 @bw ( YY) @ws 64.8 504 @m 43.2 @bw ( FFFFFF) @ws 21.6 @bw ( LL) @ws X37.8 @bw ( OO) @ws 21.6 @bw ( OO) @ws 16.2 @bw ( PP) @ws 21.6 @bw ( PP) @ws X10.8 @bw ( PP) @ws 21.6 @bw ( PP YY) @ws 10.8 @bw ( YY) @ws 64.8 492 @m X43.2 @bw ( FFFFFF) @ws 21.6 @bw ( LL) @ws 37.8 @bw ( OO) @ws 21.6 @bw ( OO) X@ws 16.2 @bw ( PPPPPPPP) @ws 10.8 @bw ( PPPPPPPP) @ws 27 @bw ( YYYY) @ws X64.8 480 @m 43.2 @bw ( FF LL) @ws 37.8 @bw ( OO) @ws 21.6 @bw ( OO) @ws X16.2 @bw ( PPPPPPP PPPPPPP) @ws 37.8 @bw ( YY) @ws 64.8 468 @m 43.2 @bw ( FF ) X@ws @bw40 (LL) @ws 37.8 @bw ( OO) @ws 21.6 @bw ( OO) @ws 16.2 @bw ( PP) @ws X43.2 @bw ( PP) @ws 64.8 @bw ( YY) @ws 64.8 456 @m 43.2 @bw ( FF LL) @ws X37.8 @bw ( OO) @ws 21.6 @bw ( OO) @ws 16.2 @bw ( PP) @ws 43.2 @bw ( PP) @ws X64.8 @bw ( YY) @ws 64.8 444 @m 43.2 @bw ( FF LLLLLL) @ws 16.2 @bw ( OOOOOOOO ) X@ws @bw40 (PP) @ws 43.2 @bw ( PP) @ws 64.8 @bw ( YY) @ws 64.8 432 @m X43.2 @bw ( FF) @ws 48.6 @bw ( LLLLLL) @ws 16.2 @bw ( OOOOOO) @ws X21.6 @bw ( PP) @ws 43.2 @bw ( PP) @ws 64.8 @bw ( YY) @ws 64.8 396 @m 10 @f11 X90.14 @bw ( F) @ws 10 @bw ( L O P P Y \261 CODING) @ws 5 @bw ( CONVENTION CH) X@ws @bw40 (ECKER) @ws 64.8 360 @m 124.02 @bw ( F) @ws 10 @bw ( L O W \261 STR) X@ws @bw40 (UCTURE) @ws 5 @bw ( ANALYSERS) @ws 64.8 336 @m 9 @f1 67.5 @bw ( !!) X@ws @bw40 (!) @ws 5.4 @bw ( WARNING ... CODING CONVENTIONS MAY IMPROVE YOUR F) X@ws @bw40 (ORTRAN) @ws 64.8 312 @m 10 @f11 118.62 @bw ( VERSION) @ws 5 @bw ( ) X@ws @bw40 (6.00 \(May 1990\) \(Unix support added\)) @ws 64.8 276 @m X201.385 @bw ( May) @ws 5 @bw ( 9, 1990) @ws 64.8 240 @m 139.85 @bw ( ********) X@ws 20 @bw ( Fifth) @ws 5 @bw ( Edition) @ws 20 @bw ( ********) @ws X64.8 216 @m 132.075 @bw ( ********) @ws 35 @bw ( J.J.) @ws 5 @bw ( Bunn) @ws X35 @bw ( ********) @ws 64.8 180 @m 188.185 @bw ( CERN/DD/US/112) @ws X67.9 606.5 @m 447.4 1 @hr 67.9 606.5 @m 457 1 @vr 514.3 606.5 @m 457 1 @vr X82.3 582.5 @m 418.6 1 @hr 82.3 582.5 @m 409 1 @vr 499.9 582.5 @m 409 1 @vr X82.3 174.5 @m 418.6 1 @hr 67.9 150.5 @m 447.4 1 @hr Xshowpage pageobj restore X%%Page: ? 2 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 333.61 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( ii) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 696 @m 12 @f11 206.802 @bw ( ) @ws 12 @f13 @bw40 (Contents) @ws X64.8 648 @m 10 @f13 @bw40 (Chapter) @ws 5 @bw ( 1:) @ws 10 @f11 8.72 @bw ( ) X@ws 10 @f13 @bw40 (Introduction) @ws 10 @f11 7.95 @bw ( .) @ws 5 @bw ( . . . ) X@ws @bw40 (. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .) X@ws @bw40 ( . . . . .) @ws 11.1 @bw ( ) @ws 10 @f13 @bw40 (1) @ws 64.8 612 @m X@bw40 (Chapter) @ws 5 @bw ( 2:) @ws 10 @f11 8.72 @bw ( ) @ws 10 @f13 X@bw40 (FLOPPY) @ws 10 @f11 7.4 @bw ( .) @ws 5 @bw ( . . . . . . . . . . . . .) X@ws @bw40 ( . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .) @ws X11.1 @bw ( ) @ws 10 @f13 @bw40 (1) @ws 64.8 588 @m 10 @f11 21.6 @bw ( 2.1) @ws X10 @bw ( Warnings) @ws 5 @bw ( from FLOPPY) @ws 7.85 @bw ( .) @ws 5 @bw ( .) X@ws @bw40 ( . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ) X@ws @bw40 (. . .) @ws 11.1 @bw ( 2) @ws 64.8 576 @m 21.6 @bw ( 2.2) @ws X10 @bw ( Conventions) @ws 5 @bw ( that may be checked by FLOPPY) @ws X8.69 @bw ( .) @ws 5 @bw ( . . . . . . . . . . . . . . . . . . . . . . . .) @ws X 11.1 @bw ( 2) @ws 64.8 564 @m 21.6 @bw ( 2.3) @ws 10 @bw ( Names) @ws X5 @bw ( to Ignore) @ws 11.75 @bw ( .) @ws 5 @bw ( . . . . . . . . . . . . . ) X@ws @bw40 (. . . . . . . . . . . . . . . . . . . . . . . . . . . .) @ws X11.1 @bw ( 3) @ws 64.8 552 @m 21.6 @bw ( 2.4) @ws 10 @bw ( Special) @ws X5 @bw ( Processes) @ws 10.08 @bw ( .) @ws 5 @bw ( . . . . . . . . . . . . . ) X@ws @bw40 (. . . . . . . . . . . . . . . . . . . . . . . . . . . .) @ws X11.1 @bw ( 4) @ws 64.8 540 @m 21.6 @bw ( 2.5) @ws 10 @bw ( Tidying) @ws X5 @bw ( your FORTRAN) @ws 6.73 @bw ( .) @ws 5 @bw ( . . . . . . . . . . . . ) X@ws @bw40 (. . . . . . . . . . . . . . . . . . . . . . . . .) @ws 11.1 @bw ( ) X@ws @bw40 (4) @ws 64.8 528 @m 21.6 @bw ( 2.6) @ws 10 @bw ( FLOPPY) @ws X5 @bw ( on the VAX) @ws 9.79 @bw ( .) @ws 5 @bw ( . . . . . . . . . . . . . ) X@ws @bw40 (. . . . . . . . . . . . . . . . . . . . . . . . .) @ws 11.1 @bw ( ) X@ws @bw40 (5) @ws 64.8 516 @m 43.2 @bw ( 2.6.1) @ws 10 @bw ( VAX) @ws X5 @bw ( FLOPPY examples) @ws 7.64 @bw ( .) @ws 5 @bw ( . . . . . . . . . . .) X@ws @bw40 ( . . . . . . . . . . . . . . . . . . . . . .) @ws 11.1 @bw ( 5) @ws X64.8 504 @m 21.6 @bw ( 2.7) @ws 10 @bw ( FLOPPY) @ws 5 @bw ( on the IBM) @ws X5.06 @bw ( .) @ws 5 @bw ( . . . . . . . . . . . . . . . . . . . . . . . . . .) X@ws @bw40 ( . . . . . . . . . . . . .) @ws 11.1 @bw ( 6) @ws 64.8 492 @m X21.6 @bw ( 2.8) @ws 10 @bw ( FLOPPY) @ws 5 @bw ( on ULTRIX) @ws X12.01 @bw ( .) @ws 5 @bw ( . . . . . . . . . . . . . . . . . . . . . . . . . ) X@ws @bw40 (. . . . . . . . . . . . .) @ws 11.1 @bw ( 7) @ws 64.8 480 @m X21.6 @bw ( 2.9) @ws 10 @bw ( The) @ws 5 @bw ( meaning of the FLOPPY Qualifie) X@ws @bw40 (rs/Options) @ws 11.19 @bw ( .) @ws 5 @bw ( . . . . . . . . . . . ) X@ws @bw40 (. . . . . . . . . . . .) @ws 11.1 @bw ( 8) @ws 64.8 444 @m 10 @f13 X@bw40 (Chapter) @ws 5 @bw ( 3:) @ws 10 @f11 8.72 @bw ( ) @ws 10 @f13 X@bw40 (Summary) @ws 5 @bw ( of Files produced by a FLOPPY run) @ws 10 @f11 X10.17 @bw ( .) @ws 5 @bw ( . . . . . . . . . . . . . . . . . . . .) @ws X6.1 @bw ( ) @ws 10 @f13 @bw40 (10) @ws 64.8 408 @m @bw40 (Chapter) @ws X5 @bw ( 4:) @ws 10 @f11 8.72 @bw ( ) @ws 10 @f13 @bw40 (FLOW) @ws 5 @bw ( out) X@ws @bw40 (put) @ws 10 @f11 6 @bw ( .) @ws 5 @bw ( . . . . . . . . . . . . . ) X@ws @bw40 (. . . . . . . . . . . . . . . . . . . . . . . . . . . .) @ws X6.1 @bw ( ) @ws 10 @f13 @bw40 (10) @ws 64.8 384 @m 10 @f11 21.6 @bw ( 4.1) @ws X10 @bw ( FLOW) @ws 5 @bw ( on CERNVM) @ws 7.29 @bw ( .) @ws 5 @bw ( . . . .) X@ws @bw40 ( . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ) X@ws @bw40 (. .) @ws 6.1 @bw ( 13) @ws 64.8 372 @m 21.6 @bw ( 4.2) @ws X10 @bw ( FLOW) @ws 5 @bw ( on VXCERN) @ws 8.96 @bw ( .) @ws 5 @bw ( . . . .) X@ws @bw40 ( . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ) X@ws @bw40 (. .) @ws 6.1 @bw ( 15) @ws 64.8 360 @m 21.6 @bw ( 4.3) @ws X10 @bw ( Examples) @ws 5 @bw ( of FLOW commands on VXCERN) @ws 7.86 @bw ( .) X@ws 5 @bw ( . . . . . . . . . . . . . . . . . . . . . . . . .) @ws X6.1 @bw ( 15) @ws 64.8 324 @m 10 @f13 @bw40 (Chapter) @ws 5 @bw ( 5:) @ws X10 @f11 8.72 @bw ( ) @ws 10 @f13 @bw40 (The) @ws 5 @bw ( meaning of the FLOW ) X@ws @bw40 (Qualifiers/Options) @ws 10 @f11 9.88 @bw ( .) @ws 5 @bw ( . . . . ) X@ws @bw40 (. . . . . . . . . . . . . . . . .) @ws 6.1 @bw ( ) @ws 10 @f13 X@bw40 (15) @ws 64.8 288 @m @bw40 (Chapter) @ws 5 @bw ( 6:) @ws 10 @f11 X8.72 @bw ( ) @ws 10 @f13 @bw40 (Problems) @ws 5 @bw ( and Installation) @ws X10 @f11 6.83 @bw ( .) @ws 5 @bw ( . . . . . . . . . . . . . . . . . . . . . .) X@ws @bw40 ( . . . . . . . . . . . .) @ws 6.1 @bw ( ) @ws 10 @f13 @bw40 (16) X@ws 64.8 252 @m 5 @bw ( Acknowledgments) @ws 10 @f11 6.67 @bw ( .) @ws X5 @bw ( . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ) X@ws @bw40 (. . . . . . . . . . .) @ws 6.1 @bw ( ) @ws 10 @f13 @bw40 (18) @ws X64.8 228 @m 5 @bw ( Index) @ws 10 @f11 8.05 @bw ( .) @ws 5 @bw ( . . . . . . ) X@ws @bw40 (. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .) X@ws @bw40 ( . . . . . . . . . . . . .) @ws 6.1 @bw ( ) @ws 10 @f13 X@bw40 (19) @ws Xshowpage pageobj restore X%%Page: ? 3 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 334.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 1) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 696 @m 12 @f11 199.47 @bw ( ) @ws 12 @f13 @bw40 (Chapter) @ws X6 @bw ( 1) @ws 64.8 672 @m 10 @f11 194.13 @bw ( ) @ws 12 @f13 @bw40 (Introduct) X@ws @bw40 (ion) @ws 64.8 636 @m 10 @f11 @bw40 (This) @ws 5.21 @bw ( document ) X@ws @bw40 (describes the use of FLOPPY) @ws 5.211 @bw ( and FLOW on the IBM, ) X@ws @bw40 (VAX and ULTRIX machines in) @ws 64.8 624 @m @bw40 (the) @ws X5.066 @bw ( CERN Computer Centre.) @ws 10.066 @bw ( FLOPPY) @ws 5.066 @bw ( ) X@ws @bw40 (is a software tool that) @ws 5.067 @bw ( takes as input a file of ) X@ws @bw40 (FORTRAN code) @ws 64.8 612 @m @bw40 (and) @ws 5.233 @bw ( then che) X@ws @bw40 (cks it according) @ws 5.234 @bw ( to various "coding conventions" ) X@ws @bw40 (that have been defined. It can also "tidy") @ws 64.8 600 @m X@bw40 (the) @ws 6.909 @bw ( source FORTRAN, producing a new file with indente) X@ws @bw40 (d DO\261loops, block) @ws 6.91 @bw ( IF\261s, and so on.) @ws X11.91 @bw ( In) @ws 64.8 588 @m @bw40 (addition,) @ws 5.836 @bw ( FLOPPY can) X@ws 5.837 @bw ( be asked to write a binary summary file \(which describes the) X@ws @bw40 ( structure of the) @ws 64.8 576 @m @bw40 (source) @ws 7.397 @bw ( ) X@ws @bw40 (FORTRAN\) that may then be used as input) @ws 7.398 @bw ( to the F) X@ws @bw40 (LOW program.) @ws 12.398 @bw ( \(FLOW) @ws 7.398 @bw ( is not yet) X@ws 64.8 564 @m @bw40 (available) @ws 5 @bw ( on ULTRIX.\)) @ws 64.8 540 @m X@bw40 (The) @ws 5.096 @bw ( FLOW program takes the binary summary file produc) X@ws @bw40 (ed by FLOPPY, and, according to the wishes) @ws 64.8 528 @m X@bw40 (of) @ws 5.652 @bw ( the user, produces various reports on the structur) X@ws @bw40 (e of the original FORTRAN program. The FLOW) @ws 64.8 516 @m X@bw40 (program) @ws 5 @bw ( was referred to as TREE \(Syntax2\) in previous v) X@ws @bw40 (ersions of this document.) @ws 0 3 @rm 8 @f11 @bw40 (1) @ws X0 -3 @rm 64.8 492 @m 10 @f11 @bw40 (In summary, FLOPPY) @ws 64.8 468 @m X10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( checks) @ws 5 @bw ( FORTRAN cod) X@ws @bw40 (ing conventions,) @ws 64.8 456 @m 10 @f111 @bw40 (\247) @ws 10 @f11 X21.27 @bw ( "tidies") @ws 5 @bw ( FORTRAN source,) @ws 64.8 444 @m 10 @f111 X@bw40 (\247) @ws 10 @f11 21.27 @bw ( produces) @ws 5 @bw ( a summary file for) X@ws @bw40 ( FLOW.) @ws 64.8 420 @m @bw40 (And the FLOW program) @ws 64.8 396 @m X10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( produces) @ws 5 @bw ( various r) X@ws @bw40 (eports on the structure of FORTRAN code,) @ws 64.8 384 @m 10 @f111 X@bw40 (\247) @ws 10 @f11 21.27 @bw ( allows) @ws 5 @bw ( an interactive explo) X@ws @bw40 (ration of the structure,) @ws 64.8 372 @m 10 @f111 @bw40 (\247) @ws X10 @f11 21.27 @bw ( shows) @ws 5 @bw ( COMMON block variable usage.) @ws X64.8 348 @m @bw40 (Please note that FLOPPY is based on FLOP) @ws 0 3 @rm X8 @f11 @bw40 (2) @ws 0 -3 @rm 10 @f11 @bw40 ( \(FORTRAN Language Orientated P) X@ws @bw40 (arser\).) @ws 64.8 300 @m 12 @f11 199.47 @bw ( ) @ws 12 @f13 X@bw40 (Chapter) @ws 6 @bw ( 2) @ws 64.8 276 @m 10 @f11 202.8 @bw ( ) @ws X12 @f13 @bw40 (FLOPPY) @ws 64.8 240 @m 10 @f11 @bw40 (Have) @ws 5.502 @bw ( y) X@ws @bw40 (ou ever wondered whether the FORTRAN77 code you are writing conform) X@ws @bw40 (s to) @ws 5.503 @bw ( accepted coding) @ws 64.8 228 @m @bw40 (conv) X@ws @bw40 (entions) @ws 5.911 @bw ( ?) @ws 10.911 @bw ( Even) @ws X5.911 @bw ( if not, you may still be interested in using FLOPPY to see if it) X@ws 5.912 @bw ( does.) @ws 10.912 @bw ( Before) @ws 64.8 216 @m @bw40 (using) X@ws 6.43 @bw ( FLOPPY to check your) @ws 6.431 @bw ( FORTRAN, you should com) X@ws @bw40 (pile the source form \(preferably with the) @ws 64.8 204 @m X@bw40 (ANSI) @ws 6.012 @bw ( switch enabled\), and verify that there are no) X@ws 6.013 @bw ( compilation errors.) @ws 11.013 @bw ( If) @ws 6.013 @bw ( t) X@ws @bw40 (here are, then the results) @ws 64.8 192 @m @bw40 (from) @ws X8.333 @bw ( using FLOPPY will be unreliable.) @ws 13.333 @bw ( FLOPPY) @ws X8.333 @bw ( treats illegal) @ws 8.334 @bw ( FORTRAN statements \(such as) @ws X64.8 180 @m @bw40 ('INCLUDE') @ws 6.897 @bw ( and HISTORIAN directives\) as c) X@ws @bw40 (omments, and will ignore) @ws 6.898 @bw ( them completely.) @ws X11.898 @bw ( FLOPPY) @ws 64.8 168 @m @bw40 (processes) @ws 5.519 @bw ( the FO) X@ws @bw40 (RTRAN routine by routine and statement by statement.) @ws X10.519 @bw ( When) @ws 5.52 @bw ( all routines have been) @ws 64.8 156 @m X@bw40 (processed,) @ws 5.384 @bw ( various global checks are made \(e.g. for ) X@ws @bw40 (EXTERNAL functions that) @ws 5.385 @bw ( are not declared\).) @ws X10.385 @bw ( One) @ws 64.8 144 @m @bw40 (useful) @ws 5.921 @bw ( by\261produc) X@ws @bw40 (t of this treatment is the) @ws 5.922 @bw ( identification of COMM) X@ws @bw40 (ON blocks declared in subprograms) @ws 64.8 132 @m @bw40 (where) @ws X 5.09 @bw ( they are not used.) @ws 10.09 @bw ( FLOPPY) @ws 5.09 @bw ( is) X@ws 5.091 @bw ( quite quick, particularly for short programs where the number) X@ws @bw40 ( of) @ws 64.8 120 @m @bw40 (checks) @ws 5.299 @bw ( is disproporti) X@ws @bw40 (onately smaller than for larger ones.) @ws 10.299 @bw ( It) @ws X5.299 @bw ( is recommended) @ws 5.3 @bw ( to use FLOPPY for short) @ws X64.8 108 @m @bw40 (programs,) @ws 5.004 @bw ( early on in the development cyc) X@ws @bw40 (le, rather than submit very) @ws 5.005 @bw ( large programs later.) X@ws 10.005 @bw ( In) @ws 5.005 @bw ( this way) @ws 64.8 96 @m @bw40 (the) @ws X 5.85 @bw ( number of corrections that will need to be made) @ws 5.851 @bw ( ) X@ws @bw40 (at any time will be smaller, and thus easier to) @ws 64.8 84 @m X@bw40 (come) @ws 5 @bw ( to terms with!) @ws 64.8 72 @m 10 @f111 @bw40 (\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276) @ws 64.8 48 @m 0 3 @rm 8 @f11 @bw40 (1) @ws X0 -3 @rm 10.4 @bw ( Please) @ws 5.758 @bw ( note that this document no longe) X@ws @bw40 (r describes the TREE program, CERN Program Library item Q902, previ) X@ws @bw40 (ously) @ws 64.8 36 @m 14.4 @bw ( referred) @ws 4 @bw ( to as TREE ) X@ws @bw40 (\(Syntax1\).) @ws 64.8 12 @m 0 3 @rm @bw40 (2) @ws 0 -3 @rm X10.4 @bw ( H.Grote) @ws 4 @bw ( "FLOP User's Guide and Reference Manual", DD/) X@ws @bw40 (US/13 \(1985\)) @ws Xshowpage pageobj restore X%%Page: ? 4 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 334.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 2) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 696 @m 12 @f13 @bw40 (2.1) @ws 6 @bw ( Warnings from FLOPPY) @ws X64.8 672 @m 10 @f11 @bw40 (When) @ws 5.556 @bw ( a FORTRAN statement which do) X@ws @bw40 (es) @ws 5.557 @bw ( not conform to the conventions is identified b) X@ws @bw40 (y FLOPPY, a) @ws 64.8 660 @m @bw40 (warning) @ws 5.182 @bw ( messa) X@ws @bw40 (ge is printed describing the error, together with the offending sta) X@ws @bw40 (tement.) @ws 10.182 @bw ( Figure) @ws 5.183 @bw ( 1 shows) @ws X64.8 648 @m @bw40 (some) @ws 5 @bw ( warnings generated by FLOPPY.) @ws X64.8 576 @m 9 @f1 27 @bw ( !!!) @ws 5.4 @bw ( WARNING ... NOT ENOUGH \(<3\) C) X@ws @bw40 (OMMENT LINES AT START OF MODULE) @ws 64.8 552 @m 54 @bw ( 8.) @ws X37.8 @bw ( IF\(IF\(L\).EQ.1\)) @ws 5.4 @bw ( GOTO66) @ws 64.8 540 @m X27 @bw ( !!!) @ws 5.4 @bw ( STATEMENT HAS NO BLANK AFTER "GOTO") @ws X64.8 516 @m 48.6 @bw ( 16.) @ws 37.8 @bw ( WRITE\(*,21\)) @ws 5.4 @bw ( J) X@ws 64.8 504 @m 27 @bw ( !!!) @ws 5.4 @bw ( STATEMENT SHOULD NOT HAVE LUN=*) X@ws 64.8 480 @m 48.6 @bw ( 21.) @ws 37.8 @bw ( STOP) @ws 64.8 468 @m X27 @bw ( !!!) @ws 5.4 @bw ( STATEMENT SHOULD BE PRECEDED BY A "WRITE") @ws X64.8 444 @m 48.6 @bw ( 22.) @ws 10.8 @bw ( 999 END) @ws 64.8 432 @m 27 @bw ( ) X@ws @bw40 (!!!) @ws 5.4 @bw ( STATEMENT SHOULD NOT HAVE LABEL) @ws 64.8 408 @m X27 @bw ( !!!) @ws 16.2 @bw ( 5) @ws 5.4 @bw ( STATEMENT WARNING\(S\) IN THIS) X@ws @bw40 ( MODULE) @ws 64.8 384 @m 27 @bw ( BEGIN) @ws 5.4 @bw ( GLOBAL CHEC) X@ws @bw40 (KS WITHIN THIS MODULE) @ws 64.8 360 @m 27 @bw ( !!!) @ws X5.4 @bw ( MIXED MODE EXPRESSION \(BAD OPERATOR IS MARKED\)) @ws 64.8 348 @m X27 @bw ( IF\(I*2.0\)) @ws 5.4 @bw ( = 3) @ws 64.8 336 @m 48.6 @bw ( ) @ws X9 @f111 @bw40 (\264) @ws 64.8 324 @m 9 @f1 27 @bw ( !!!) @ws 5.4 @bw ( WARNIN) X@ws @bw40 (G ... VARIABLE IF) @ws 37.8 @bw ( CLASHES) @ws 5.4 @bw ( WITH FOR) X@ws @bw40 (TRAN KEY\261WORD IF) @ws 64.8 300 @m 27 @bw ( !!!) @ws 16.2 @bw ( ) X@ws @bw40 (2) @ws 5.4 @bw ( GLOBAL WARNING\(S\) IN THIS MODULE) @ws X64.8 276 @m 10 @f11 21.6 @bw ( ) @ws 10 @f12 @bw40 (Figure) @ws 5 @bw ( 1) @ws X10 @f11 @bw40 (:) @ws 24.8 @bw ( Warnings) @ws 5 @bw ( produced by FLOPPY) X@ws 64.8 216 @m @bw40 (By) @ws 5.296 @bw ( default, only the statements at fa) X@ws @bw40 (ult are printed, but optionally you may) @ws 5.297 @bw ( specify t) X@ws @bw40 (hat all FORTRAN) @ws 64.8 204 @m @bw40 (statements) @ws X5.715 @bw ( are printed out \(this is useful) @ws 5.716 @bw ( for programs wh) X@ws @bw40 (ere the context of the statement may clarify) @ws 64.8 192 @m X@bw40 (the) @ws 6.035 @bw ( error\).) @ws 11.035 @bw ( FLOPPY) @ws X6.035 @bw ( will only) @ws 6.036 @bw ( print subprogram headers for those sub) X@ws @bw40 (programs in which errors have) @ws 64.8 180 @m @bw40 (occured.) @ws X10.001 @bw ( All) @ws 5.001 @bw ( output) @ws 5.002 @bw ( from FLOPPY may ei) X@ws @bw40 (ther be viewed directly at the terminal or, optionally, sent to) @ws X64.8 168 @m @bw40 (a) @ws 5 @bw ( disk file for inspection at a later time.) X@ws 64.8 132 @m 12 @f13 @bw40 (2.2) @ws 6 @bw ( Conventions that may be check) X@ws @bw40 (ed by FLOPPY) @ws 64.8 108 @m 10 @f11 @bw40 (Here) @ws X7.373 @bw ( follows the list of coding conventions which may at present) @ws X7.374 @bw ( be checked by FLOPPY. The) @ws 64.8 96 @m @bw40 (conventions) @ws X5 @bw ( in the STANDARD set are marked by an asterisk \(*\).) @ws 64.8 72 @m X9 @f1 @bw40 (*) @ws 10.8 @bw ( 1) @ws 16.2 @bw ( Avoid) @ws 5.4 @bw ( comme) X@ws @bw40 (nt lines after end of module) @ws 64.8 60 @m @bw40 (*) @ws X10.8 @bw ( 2) @ws 16.2 @bw ( End) @ws 5.4 @bw ( all program modules with the) X@ws @bw40 ( END statement) @ws 64.8 48 @m @bw40 (*) @ws 10.8 @bw ( 3) @ws X16.2 @bw ( Declared) @ws 5.4 @bw ( COMMON blocks must be used in the module) X@ws 64.8 36 @m @bw40 (*) @ws 10.8 @bw ( 4) @ws 16.2 @bw ( COMPLEX) @ws X5.4 @bw ( and DOUBLEPRECISION vars at end of COMMON) @ws 64.8 24 @m X@bw40 (*) @ws 10.8 @bw ( 5) @ws 16.2 @bw ( COMMON) @ws 5.4 @bw ( block defi) X@ws @bw40 (nitions should not change) @ws 64.8 12 @m @bw40 (*) @ws X10.8 @bw ( 6) @ws 16.2 @bw ( Variable) @ws 5.4 @bw ( names should be 6 or fe) X@ws @bw40 (wer characters long) @ws 67.9 618.5 @m 447.4 1 @hr 67.9 618.5 @m X361 1 @vr 514.3 618.5 @m 361 1 @vr 67.9 258.5 @m 447.4 1 @hr Xshowpage pageobj restore X%%Page: ? 5 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 334.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 3) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 696 @m 9 @f1 16.2 @bw ( 7 Variables) @ws 5.4 @bw ( in COMMON should ) X@ws @bw40 (be 6 characters long) @ws 64.8 684 @m 16.2 @bw ( 8 Variables) @ws X5.4 @bw ( not in COMMON should be <6 characters) @ws 64.8 672 @m @bw40 (*) @ws X10.8 @bw ( 9) @ws 16.2 @bw ( Integer) @ws 5.4 @bw ( variables should begin w) X@ws @bw40 (ith I to N) @ws 64.8 660 @m @bw40 (*) @ws 10.8 @bw ( 10 Variable) X@ws 5.4 @bw ( names should not equal FORTRAN keywords) @ws 64.8 648 @m X@bw40 (*) @ws 10.8 @bw ( 11 Avoid) @ws 5.4 @bw ( comment lines before module) X@ws @bw40 ( declaration) @ws 64.8 636 @m @bw40 (*) @ws 10.8 @bw ( 12 Module) X@ws 5.4 @bw ( names should not equal intrinsic functions) @ws 64.8 624 @m X@bw40 (*) @ws 10.8 @bw ( 13 First) @ws 5.4 @bw ( statement in a module shoul) X@ws @bw40 (d be declaration) @ws 64.8 612 @m @bw40 (*) @ws 10.8 @bw ( 14 Modu) X@ws @bw40 (le) @ws 5.4 @bw ( should begin with at least 3 comment lines) @ws X64.8 600 @m 16.2 @bw ( 15) @ws 10.8 @bw ( Comment) @ws 5.4 @bw ( lines shoul) X@ws @bw40 (d begin with a C) @ws 64.8 588 @m @bw40 (*) @ws 10.8 @bw ( 16 No) X@ws 5.4 @bw ( comment lines between continuations) @ws 64.8 576 @m X@bw40 (*) @ws 10.8 @bw ( 17 Avoid) @ws 5.4 @bw ( non\261standard variable ty) X@ws @bw40 (pes eg INTEGER*2) @ws 64.8 564 @m @bw40 (*) @ws 10.8 @bw ( 18 Avoi) X@ws @bw40 (d) @ws 5.4 @bw ( multiple COMMON definitions per line) @ws X64.8 552 @m @bw40 (*) @ws 10.8 @bw ( 19 Do) @ws 5.4 @bw ( not dimension COMM) X@ws @bw40 (ON variables outside COMMON) @ws 64.8 540 @m @bw40 (*) @ws X10.8 @bw ( 20 Avoid) @ws 5.4 @bw ( embedded blanks in variable names) @ws X64.8 528 @m @bw40 (*) @ws 10.8 @bw ( 21 Avoid) @ws 5.4 @bw ( embedded blanks) X@ws @bw40 ( in syntactic entities) @ws 64.8 516 @m @bw40 (*) @ws 10.8 @bw ( 2) X@ws @bw40 (2 Avoid) @ws 5.4 @bw ( the use of PRINT statements \(use WRITE\)) X@ws 64.8 504 @m 16.2 @bw ( 23) @ws 10.8 @bw ( Do) @ws 5.4 @bw ( not give the) X@ws @bw40 ( END statement a label) @ws 64.8 492 @m @bw40 (*) @ws 10.8 @bw ( 2) X@ws @bw40 (4 Avoid) @ws 5.4 @bw ( WRITE\(* construction) @ws 64.8 480 @m X16.2 @bw ( 25) @ws 10.8 @bw ( Avoid) @ws 5.4 @bw ( WRITE statement in a FUNC) X@ws @bw40 (TION) @ws 64.8 468 @m @bw40 (*) @ws 10.8 @bw ( 26 Avoid) @ws X5.4 @bw ( the use of PAUSE statements) @ws 64.8 456 @m @bw40 (*) @ws X10.8 @bw ( 27 Statement) @ws 5.4 @bw ( labels should not begin in column 1) X@ws 64.8 444 @m @bw40 (*) @ws 10.8 @bw ( 28 Always) @ws 5.4 @bw ( preceede S) X@ws @bw40 (TOP by a descriptive WRITE) @ws 64.8 432 @m @bw40 (*) @ws X10.8 @bw ( 29 Avoid) @ws 5.4 @bw ( the use of ENTRY in FUNCTIONS) @ws X64.8 420 @m @bw40 (*) @ws 10.8 @bw ( 30 Avoid) @ws 5.4 @bw ( using I/O in FU) X@ws @bw40 (NCTIONs) @ws 64.8 408 @m 16.2 @bw ( 31) @ws 10.8 @bw ( Avoid) @ws X5.4 @bw ( the use of the alternate RETURN statement) @ws 64.8 396 @m X@bw40 (*) @ws 10.8 @bw ( 32 COMMON) @ws 5.4 @bw ( block names should not equ) X@ws @bw40 (al variable names) @ws 64.8 384 @m @bw40 (*) @ws 10.8 @bw ( 33 Avo) X@ws @bw40 (id) @ws 5.4 @bw ( use of obsolete CERN library routines) @ws X64.8 372 @m 16.2 @bw ( 34) @ws 10.8 @bw ( Avoid) @ws 5.4 @bw ( FUNCTION name) X@ws @bw40 (s the same as intrinsics) @ws 64.8 360 @m @bw40 (*) @ws X10.8 @bw ( 35 Local) @ws 5.4 @bw ( functions should be declared EXTERNAL) @ws X64.8 348 @m @bw40 (*) @ws 10.8 @bw ( 36 Module) @ws 5.4 @bw ( names should a) X@ws @bw40 (ll be different) @ws 64.8 336 @m @bw40 (*) @ws 10.8 @bw ( 37 Avoid) X@ws 5.4 @bw ( expressions of mixed mode eg A=B/I) @ws 64.8 324 @m @bw40 (*) X@ws 10.8 @bw ( 38 Length) @ws 5.4 @bw ( of passed CHARACTER variables should) X@ws @bw40 ( be *) @ws 64.8 312 @m @bw40 (*) @ws 10.8 @bw ( 39 Order) @ws X5.4 @bw ( of statements should conform !) @ws 64.8 300 @m @bw40 (*) @ws X10.8 @bw ( 40 Separate) @ws 5.4 @bw ( Statement Functions by comment lines) X@ws 64.8 288 @m @bw40 (*) @ws 10.8 @bw ( 41 No) @ws 5.4 @bw ( names in State) X@ws @bw40 (ment Function definitions elsewhere) @ws 64.8 276 @m 16.2 @bw ( 42) X@ws 10.8 @bw ( Use) @ws 5.4 @bw ( LLT,LGT etc to compare CHARACTER vars. in ) X@ws @bw40 (IFs) @ws 64.8 264 @m 16.2 @bw ( 43) @ws 10.8 @bw ( Variables) @ws X5.4 @bw ( \(not COMMON, not PARAMs\) <6 characters) @ws 64.8 252 @m X@bw40 (*) @ws 10.8 @bw ( 44 Passed) @ws 5.4 @bw ( arguments should be dimens) X@ws @bw40 (ioned * in module) @ws 64.8 216 @m 12 @f13 @bw40 (2.3) @ws X6 @bw ( Names to Ignore) @ws 64.8 192 @m 10 @f11 @bw40 (Occasionally) @ws X5.71 @bw ( your FORTRAN may) @ws 5.711 @bw ( contain references to subroutine) X@ws @bw40 (s or variables over which you have) @ws 64.8 180 @m @bw40 (no) @ws X6.33 @bw ( control \(e.g. GEANT) @ws 6.331 @bw ( variables\).) @ws X11.331 @bw ( The) @ws 6.331 @bw ( warnings associated with these variables or) X@ws @bw40 ( subroutines are) @ws 64.8 168 @m @bw40 (therefore) @ws X6.243 @bw ( rather academic.) @ws 11.244 @bw ( FLOPPY) @ws 6.244 @bw ( thus ) X@ws @bw40 (allows you to suppress the warnings associated with either) @ws X64.8 156 @m @bw40 (particular) @ws 5.192 @bw ( variables, or whole subroutine) X@ws @bw40 (s.) @ws 10.192 @bw ( This) @ws 5.192 @bw ( is done by) @ws X5.193 @bw ( giving FLOPPY a list of 'names to ignore') @ws 64.8 144 @m X@bw40 (\(you) @ws 5.662 @bw ( may specify up to fifty variable names and) @ws X5.663 @bw ( fifty subroutine names\).) @ws 10.663 @bw ( The) @ws X5.663 @bw ( file containing the list) @ws 64.8 132 @m @bw40 (of) @ws X6.946 @bw ( names to ignore is saved on disk, and may be used again in) @ws X6.947 @bw ( a future FLOPPY run.) @ws 11.947 @bw ( As) @ws 6.947 @bw ( an) X@ws 64.8 120 @m @bw40 (example,) @ws 6.712 @bw ( you may have a VAX file call) X@ws @bw40 (ed TEST.FOR which) @ws 6.713 @bw ( contains various subroutines, a) X@ws @bw40 (mongst) @ws 64.8 108 @m @bw40 (them) @ws 5.631 @bw ( SUBROUTINE OP) X@ws @bw40 (AL, and references) @ws 5.632 @bw ( to the 6\261character variable) X@ws @bw40 (s RINPAN and DRIDER, which) @ws 64.8 96 @m @bw40 (do) @ws X5.05 @bw ( not appear in a COMMON block and therefore should be less than 6 ch) X@ws @bw40 (aracters long \(if you follow) @ws 64.8 84 @m @bw40 (this) @ws X6.486 @bw ( particular convention\).) @ws 11.486 @bw ( You) @ws 6.486 @bw ( ) X@ws @bw40 (are aware of this error and wish to suppress those warnings from) X@ws 64.8 72 @m @bw40 (FLOPPY.) @ws 10.101 @bw ( You) @ws 5.101 @bw ( also wa) X@ws @bw40 (nt to suppress all warnings from) @ws 5.102 @bw ( SUBROUTINE OPAL ) X@ws @bw40 (for other reasons.) @ws 10.102 @bw ( You) @ws 64.8 60 @m X@bw40 (type) @ws 5 @bw ( the following FLOPPY command:) @ws 64.8 36 @m 9 @f1 X@bw40 (FLOPPY) @ws 5.4 @bw ( TEST.FOR /IGNORE=\(#OPAL,RINPAN,DRIDER\)) @ws Xshowpage pageobj restore X%%Page: ? 6 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 334.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 4) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 696 @m @bw40 (The) @ws 7.141 @bw ( process on CERN VM/CMS) @ws X7.142 @bw ( is similar; the names may be specified in the panel or on the) @ws X64.8 684 @m @bw40 (command) @ws 5 @bw ( line.) @ws 64.8 648 @m 12 @f13 X@bw40 (2.4) @ws 6 @bw ( Special Processes) @ws 64.8 624 @m 10 @f11 X@bw40 (At) @ws 5 @bw ( present there are two 'special processes' available in) X@ws @bw40 ( FLOPPY.) @ws 64.8 600 @m 10 @f111 @bw40 (\247) @ws 10 @f11 X21.27 @bw ( The) @ws 5.704 @bw ( process ALEPH will cause the set of coding c) X@ws @bw40 (onventions to) @ws 5.705 @bw ( change from the STANDARD) @ws X64.8 588 @m 28.8 @bw ( set) @ws 5 @bw ( to the ALEPH set.) @ws 64.8 576 @m X10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( The) @ws 5.244 @bw ( process GA) X@ws @bw40 (LEPH \(the ALEPH Monte) @ws 5.245 @bw ( Carlo program\) is intende) X@ws @bw40 (d for people using FLOPPY) @ws 64.8 564 @m 28.8 @bw ( to) @ws X6.795 @bw ( check programs that reference GEANT3 variables; it essentially cau) X@ws @bw40 (ses FLOPPY to ignore) @ws 64.8 552 @m 28.8 @bw ( variable) @ws X5 @bw ( names beginning 'G.....' or 'IG....'.) @ws 64.8 516 @m 12 @f13 X@bw40 (2.5) @ws 6 @bw ( Tidying your FORTRAN) @ws 64.8 492 @m 10 @f11 X@bw40 (FLOPPY) @ws 5 @bw ( allows you to 'tidy' your FORTRAN in the following) X@ws @bw40 ( ways:) @ws 64.8 468 @m @bw40 (1.) @ws 35.7 @bw ( ) @ws 10 @f12 X@bw40 (GROUPF) @ws 64.8 456 @m 10 @f11 43.2 @bw ( Group) @ws 5 @bw ( all FORM) X@ws @bw40 (AT statements at the end of each subprogram.) @ws 64.8 444 @m X@bw40 (2.) @ws 35.7 @bw ( ) @ws 10 @f12 @bw40 (INDENT) @ws 64.8 432 @m 10 @f11 X43.2 @bw ( Indent) @ws 5 @bw ( DO\261loops and IF\261clauses.) @ws 64.8 420 @m X@bw40 (3.) @ws 35.7 @bw ( ) @ws 10 @f12 @bw40 (GOTOS) @ws 64.8 408 @m 10 @f11 X43.2 @bw ( Tabulate) @ws 5 @bw ( GOTOs to the right hand side of the source f) X@ws @bw40 (orm.) @ws 64.8 396 @m @bw40 (4.) @ws 35.7 @bw ( ) @ws 10 @f12 X@bw40 (STMNTS) @ws 5 @bw ( \(IBM\) RENUMS \(VAX\)) @ws 64.8 384 @m 10 @f11 X43.2 @bw ( Renumber) @ws 5 @bw ( all statement labels.) @ws 64.8 372 @m X@bw40 (5.) @ws 35.7 @bw ( ) @ws 10 @f12 @bw40 (RENUMF) @ws 64.8 360 @m 10 @f11 X43.2 @bw ( Renumber) @ws 5 @bw ( all FORMAT labels.) @ws 64.8 336 @m X@bw40 (In) @ws 6.546 @bw ( the case where you choose to use any of these opti) X@ws @bw40 (ons, a new FORTRAN file will) @ws 6.547 @bw ( be written) @ws X64.8 324 @m @bw40 (containing) @ws 5 @bw ( the changes.) @ws 10 @bw ( Figure) X@ws 5 @bw ( 2 shows the result of tidying a small subroutine using FLOP.) @ws X64.8 262 @m 7 @f1 46.8 @bw ( Before) @ws 4.2 @bw ( tidying) @ws 109.2 @bw ( ) X@ws @bw40 (After) @ws 4.2 @bw ( tidying) @ws 64.8 255 @m 46.8 @bw ( \261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261) @ws 109.2 @bw ( ) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261) @ws X64.8 241 @m 46.8 @bw ( PROGRAM) @ws 4.2 @bw ( BAD) @ws 121.8 @bw ( PROGRAM) X@ws 4.2 @bw ( BAD) @ws 64.8 234 @m 46.8 @bw ( DIMENSION) @ws 4.2 @bw ( IF\(1) X@ws @bw40 (0\)) @ws 100.8 @bw ( DIMENSION) @ws 4.2 @bw ( IF\(10\)) @ws X64.8 227 @m 46.8 @bw ( I=5) @ws 155.4 @bw ( I=5) @ws 64.8 220 @m 25.8 @bw ( 6) X@ws @bw40 (6) @ws 12.6 @bw ( J=7) @ws 142.8 @bw ( 10) @ws 4.2 @bw ( J=7) @ws X64.8 213 @m 46.8 @bw ( DO) @ws 4.2 @bw ( 43 K=1,I) @ws 121.8 @bw ( DO) @ws X4.2 @bw ( 30 K=1,I) @ws 64.8 206 @m 46.8 @bw ( IF\(K\261J.EQ.2\)) @ws X4.2 @bw ( THEN) @ws 109.2 @bw ( IF\(K\261J.EQ.2\)) @ws 4.2 @bw ( THEN) @ws X64.8 199 @m 46.8 @bw ( DO) @ws 4.2 @bw ( 11 L=1,2) @ws 147 @bw ( DO) @ws X4.2 @bw ( 20 L=1,2) @ws 64.8 192 @m 46.8 @bw ( IF\(IF\(L\).EQ.1\)) @ws X4.2 @bw ( GOTO66) @ws 117.6 @bw ( IF\(IF\(L\).EQ.1\)) @ws 67.2 @bw ( GOTO) X@ws 4.2 @bw ( 10) @ws 64.8 185 @m 30 @bw ( 21) @ws 8.4 @bw ( FORMAT\(1X,I2\)) X@ws 100.8 @bw ( 20) @ws 29.4 @bw ( CONTINUE) @ws 64.8 178 @m 30 @bw ( 11) @ws X 8.4 @bw ( CONTINUE) @ws 298.2 @bw ( GOTO) @ws 4.2 @bw ( 10) @ws 64.8 171 @m X46.8 @bw ( GOTO) @ws 4.2 @bw ( 66) @ws 151.2 @bw ( ELSE) @ws 64.8 164 @m X46.8 @bw ( ELSE) @ws 176.4 @bw ( IF\(IF\(K\).EQ.IF\(J\)\)) @ws 4.2 @bw ( THE) X@ws @bw40 (N) @ws 64.8 157 @m 46.8 @bw ( IF\(IF\(K\).EQ.IF\(J\)\)) @ws X4.2 @bw ( THEN) @ws 109.2 @bw ( IF\(K\)=1) @ws 64.8 150 @m 46.8 @bw ( IF\(K\)) X@ws @bw40 (=1) @ws 176.4 @bw ( WRITE\(6,500\)) @ws 4.2 @bw ( J) @ws X64.8 143 @m 46.8 @bw ( WRITE\(6,21\)) @ws 4.2 @bw ( J) @ws 151.2 @bw ( J=5) X@ws 64.8 136 @m 46.8 @bw ( J=5) @ws 180.6 @bw ( ENDIF) @ws 64.8 129 @m X46.8 @bw ( ENDIF) @ws 159.6 @bw ( ENDIF) @ws 64.8 122 @m 46.8 @bw ( ENDIF) @ws X 134.4 @bw ( 30) @ws 4.2 @bw ( CONTINUE) @ws 64.8 115 @m 34.2 @bw ( 43) @ws X4.2 @bw ( CONTINUE) @ws 134.4 @bw ( STOP) @ws 64.8 108 @m 46.8 @bw ( STOP) @ws X 134.4 @bw ( 500) @ws 4.2 @bw ( FORMAT\(1X,I2\)) @ws 64.8 101 @m 46.8 @bw ( E) X@ws @bw40 (ND) @ws 155.4 @bw ( END) @ws 64.8 77 @m 10 @f11 21.6 @bw ( ) @ws X10 @f12 @bw40 (Figure) @ws 5 @bw ( 2) @ws 10 @f11 @bw40 (:) @ws 24.8 @bw ( A) X@ws 5 @bw ( Subroutine 'tidied' by FLOPPY) @ws 67.9 294.5 @m 447.4 1 @hr X67.9 294.5 @m 236 1 @vr 514.3 294.5 @m 236 1 @vr 67.9 59.5 @m 447.4 1 @hr Xshowpage pageobj restore X%%Page: ? 7 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 334.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 5) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 696 @m 12 @f13 @bw40 (2.6) @ws 6 @bw ( FLOPPY on the VAX) @ws X64.8 672 @m 10 @f11 @bw40 (The) @ws 5 @bw ( format of the FLOPPY command on t) X@ws @bw40 (he VAX is:) @ws 64.8 648 @m 9 @f1 10.8 @bw ( FLOPPY filename [/qual) X@ws @bw40 (ifiers]) @ws 64.8 624 @m 10 @f11 @bw40 (Where) @ws 5.244 @bw ( 'fi) X@ws @bw40 (lename' specifies the name of) @ws 5.245 @bw ( the input file of F) X@ws @bw40 (ORTRAN upon which the coding convention) @ws 64.8 612 @m X@bw40 (checks) @ws 6.485 @bw ( are to be made.) @ws 11.485 @bw ( You) @ws X6.485 @bw ( may use wild\261cards in the filename; if more than one file is fo) X@ws @bw40 (und) @ws 64.8 600 @m @bw40 (matching) @ws 7.712 @bw ( the specific) X@ws @bw40 (ation, then the files will) @ws 7.713 @bw ( be internally concaten) X@ws @bw40 (ated.) @ws 12.713 @bw ( Note) @ws 7.713 @bw ( that non\261standar) X@ws @bw40 (d) @ws 64.8 588 @m @bw40 (constructs) @ws 5.379 @bw ( such as INCL) X@ws @bw40 (UDE statements will be treated as illegal statements) @ws X5.38 @bw ( by FLOPPY, and ignored.) @ws 64.8 576 @m @bw40 (If) @ws X5.035 @bw ( you are) @ws 5.036 @bw ( using FLOPPY to tidy your Fortran \(see ) X@ws @bw40 (/TIDY option\), then 'filename' may be for instance) @ws 64.8 564 @m X@bw40 (an) @ws 5.466 @bw ( EDITF.DAT extracted with HISTORIAN option) @ws X5.467 @bw ( S, or likewise may be a file where the COMMON) @ws 64.8 552 @m X@bw40 (block) @ws 5.677 @bw ( declarations are) @ws 5.678 @bw ( hidden in IN) X@ws @bw40 (CLUDE statements. This will not jeopardize the indentation of DO) X@ws 64.8 540 @m @bw40 (loops) @ws 5 @bw ( and IF clauses, nor the re\261numbe) X@ws @bw40 (ring of statement labels.) @ws 64.8 504 @m 12 @f13 @bw40 (2.6.1) @ws X 6 @bw ( VAX FLOPPY examples) @ws 64.8 480 @m 9 @f1 10.8 @bw ( $) @ws X5.4 @bw ( FLOPPY myfile.for) @ws 64.8 456 @m 10 @f11 @bw40 (Make) @ws X5 @bw ( all the standard coding convention checks on the FORTRAN file myfile.f) X@ws @bw40 (or.) @ws 64.8 432 @m 9 @f1 10.8 @bw ( $) @ws 5.4 @bw ( FLOPPY/TREE) X@ws @bw40 (/NOCHECKS myfile.for) @ws 64.8 408 @m 10 @f11 @bw40 (Produce) @ws X5 @bw ( an output file for FLOW, and make no checks.) @ws 64.8 384 @m 9 @f1 X10.8 @bw ( $) @ws 5.4 @bw ( FLOPPY/IGNORE=\(FRED,#MICHEL\) myfile.for) @ws X64.8 360 @m 10 @f11 @bw40 (Make) @ws 5 @bw ( all the available checks, but ig) X@ws @bw40 (nore the variable called FRED and the subroutine called MICHEL.) @ws X64.8 336 @m 9 @f1 10.8 @bw ( $) @ws 5.4 @bw ( FLOPPY/CHECKS=\(1,5,25,3\)/FULL) X@ws @bw40 ( myfile.for) @ws 64.8 312 @m 10 @f11 @bw40 (Check) @ws 5 @bw ( con) X@ws @bw40 (ventions 1,3,5 and 25, and list all lines from the source FORTRAN.) X@ws 64.8 288 @m 9 @f1 10.8 @bw ( $) @ws 5.4 @bw ( FLOPPY/CHECKS=\(99,\2611,) X@ws @bw40 (\2612,\26120\) my*.for) @ws 64.8 264 @m 10 @f11 @bw40 (Check) @ws X6.762 @bw ( all conventions except numbers 1,2 and 20. Use all files beginning) X@ws @bw40 ( 'MY' and with filetype) @ws 64.8 252 @m @bw40 (.FOR.) @ws X64.8 228 @m 9 @f1 10.8 @bw ( $) @ws 5.4 @bw ( FLOPPY/NOLOG/OUT=output.lis) @ws X 10.8 @bw ( myfile.for) @ws 64.8 204 @m 10 @f11 @bw40 (Send) @ws 5 @bw ( the ) X@ws @bw40 (FLOPPY output to a listing file, and disable the command parsing in) X@ws @bw40 (formation.) @ws 64.8 180 @m 9 @f1 10.8 @bw ( $) @ws 5.4 @bw ( FLOP) X@ws @bw40 (PY/NOCHECKS/TIDY/INDENT=2 myfile.for) @ws 64.8 156 @m 10 @f11 X@bw40 (Produce) @ws 7.363 @bw ( a new FORTRAN file) @ws 7.364 @bw ( with all) X@ws @bw40 ( DO and IF clauses indented by two spaces. No coding) @ws X64.8 144 @m @bw40 (convention) @ws 5 @bw ( checking is done. The new Fortran ) X@ws @bw40 (will be called FORTRAN.FOR.) @ws 64.8 120 @m 9 @f1 10.8 @bw ( $) @ws X 5.4 @bw ( FLOPPY/TIDY/STMNTS=\(START=10,STEP=5\)/FORTRAN=out.for myfile.for) X@ws 64.8 96 @m 10 @f11 @bw40 (Renumber) @ws 7.675 @bw ( statements starting a) X@ws @bw40 (t 10 \(10, 15,) @ws 7.676 @bw ( 20 etc.\) and write the new FORTRA) X@ws @bw40 (N to the file) @ws 64.8 84 @m @bw40 (OUT.FOR.) @ws Xshowpage pageobj restore X%%Page: ? 8 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 334.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 6) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 696 @m 12 @f13 @bw40 (2.7) @ws 6 @bw ( FLOPPY on the IBM) @ws X64.8 672 @m 10 @f11 @bw40 (Type) @ws 5.94 @bw ( "FLOPPY" to activate the prog) X@ws @bw40 (ram in full screen ) @ws 0 3 @rm 8 @f11 @bw40 (3) @ws 0 -3 @rm X10 @f11 @bw40 ( mode, or "FLOPPY fn ft fm \( options" to) @ws 64.8 660 @m X@bw40 (activate) @ws 6.234 @bw ( the program in line mode.) @ws X11.234 @bw ( The) @ws 6.234 @bw ( FLOPPY panel obtained by typing "FLOPPY" is) X@ws @bw40 ( shown in) @ws 64.8 648 @m @bw40 (figure) @ws 5 @bw ( 3.) @ws X64.8 564 @m 9 @f1 21.6 @bw ( <=>) @ws 5.4 @bw ( FLOPPY VERSION 6.00 <=======>) X@ws @bw40 ( CODING CONVENTION CHECKER <====>) @ws 64.8 540 @m 32.4 @bw ( Name) X@ws 5.4 @bw ( of source Fortran file not yet given) @ws 64.8 528 @m X248.4 @bw ( FN) @ws 43.2 @bw ( FT) @ws 32.4 @bw ( FM) @ws 64.8 516 @m X118.8 @bw ( Source) @ws 10.8 @bw ( FORTRAN ==>) @ws 64.8 @bw ( FORTRAN) @ws X16.2 @bw ( A) @ws 64.8 504 @m 21.6 @bw ( \261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261) @ws X64.8 492 @m @bw40 ( a\)) @ws 5.4 @bw ( Existing FLOPPY parameter file) @ws X10.8 @bw ( ==>) @ws 64.8 @bw ( FLOPIGN) @ws 16.2 @bw ( A) @ws 64.8 480 @m X21.6 @bw ( b\)) @ws 5.4 @bw ( Checks to be made) @ws 59.4 @bw ( ==>) @ws X10.8 @bw ( STANDARD) @ws 64.8 468 @m 37.8 @bw ( Specify) @ws 5.4 @bw ( names ) X@ws @bw40 (to ignore) @ws 27 @bw ( ==>) @ws 10.8 @bw ( NO) @ws 64.8 456 @m X21.6 @bw ( \261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261) @ws 64.8 444 @m @bw40 ( Generate) @ws X5.4 @bw ( a file for FLOW) @ws 37.8 @bw ( ==>) @ws 10.8 @bw ( NO) @ws X64.8 432 @m 21.6 @bw ( \261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261) @ws 64.8 420 @m @bw40 ( Send) X@ws 5.4 @bw ( FLOPPY Output to disk) @ws 27 @bw ( ==>) @ws 10.8 @bw ( YES) X@ws 64.8 408 @m 21.6 @bw ( List) @ws 5.4 @bw ( all source FORTRAN lines) @ws X10.8 @bw ( ==> NO) @ws 64.8 396 @m 21.6 @bw ( \261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261) @ws X64.8 384 @m @bw40 ( Tidy) @ws 5.4 @bw ( Fortran?) @ws 10.8 @bw ( ==>) @ws X5.4 @bw ( NO) @ws 32.4 @bw ( Output) @ws 10.8 @bw ( ==> OUTPUT) @ws X16.2 @bw ( FORTRAN A) @ws 64.8 372 @m 27 @bw ( a\)) @ws 5.4 @bw ( Adjust GOTO) X@ws @bw40 (s to right of page) @ws 10.8 @bw ( ==> NO) @ws 64.8 360 @m X27 @bw ( b\)) @ws 5.4 @bw ( Indent DO/IF clauses) @ws 59.4 @bw ( ==>) @ws X10.8 @bw ( NO) @ws 37.8 @bw ( Spaces) @ws 10.8 @bw ( ==> 3) @ws 64.8 348 @m X27 @bw ( c\)) @ws 5.4 @bw ( Group FORMATs at routine ends) @ws 10.8 @bw ( ==) X@ws @bw40 (> NO) @ws 64.8 336 @m 27 @bw ( d\)) @ws 5.4 @bw ( Renumber FORMAT ) X@ws @bw40 (statements) @ws 27 @bw ( ==>) @ws 10.8 @bw ( NO) @ws 37.8 @bw ( ) X@ws @bw40 (Start) @ws 16.2 @bw ( ==>) @ws 10.8 @bw ( 500) @ws 64.8 324 @m X286.2 @bw ( Step) @ws 21.6 @bw ( ==>) @ws 10.8 @bw ( 10) @ws 64.8 312 @m X27 @bw ( e\)) @ws 5.4 @bw ( Renumber all other statements) @ws 10.8 @bw ( ==) X@ws @bw40 (> NO) @ws 37.8 @bw ( Start) @ws 16.2 @bw ( ==>) @ws 10.8 @bw ( 1) X@ws @bw40 (0) @ws 64.8 300 @m 286.2 @bw ( Step) @ws 21.6 @bw ( ==>) @ws X10.8 @bw ( 10) @ws 64.8 276 @m 21.6 @bw ( PF1:) @ws 5.4 @bw ( Help) @ws X10.8 @bw ( \(on cursor\)) @ws 16.2 @bw ( PF2:) @ws 5.4 @bw ( Enter) @ws X10.8 @bw ( a CMS Command) @ws 27 @bw ( PF3:) @ws 5.4 @bw ( Exit) @ws X64.8 252 @m 10 @f11 21.6 @bw ( ) @ws 10 @f12 @bw40 (Figure) @ws 5 @bw ( 3) @ws X10 @f11 @bw40 (:) @ws 24.8 @bw ( The) @ws 5 @bw ( FLOPPY panel) @ws X64.8 192 @m @bw40 (The) @ws 5.037 @bw ( default FLOPPY options are highlighte) X@ws @bw40 (d in the panel,) @ws 5.038 @bw ( and you may change these accordin) X@ws @bw40 (g to your) @ws 64.8 180 @m @bw40 (requirements.) @ws 10.469 @bw ( ) X@ws @bw40 (By) @ws 5.469 @bw ( positioning the cursor on the item with which ) X@ws @bw40 (you) @ws 5.47 @bw ( want help, and pressing the PF1) @ws X64.8 168 @m @bw40 (key,) @ws 6.57 @bw ( FLOPPY will access the HELP file at) X@ws 6.571 @bw ( the correct line. In addition, you may enter any CMS) @ws X64.8 156 @m @bw40 (command) @ws 5.294 @bw ( whilst in the FLOPPY panel) @ws X5.295 @bw ( by first pressing the PF2 key. This is useful for example when) @ws X64.8 144 @m @bw40 (you) @ws 5.453 @bw ( forget the whereabouts of your source) X@ws @bw40 ( Fortran file; press PF2) @ws 5.454 @bw ( then enter "FILELIST * F) X@ws @bw40 (ORTRAN) @ws 64.8 132 @m @bw40 (*".) @ws 5 @bw ( After execution of) X@ws @bw40 ( the command you will be asked if you want to return to the FLOPPY ) X@ws @bw40 (panel.) @ws 64.8 108 @m @bw40 (Alternatively,) @ws 5.401 @bw ( FLO) X@ws @bw40 (PPY may be invoked in line\261mode, in which case the format of) @ws X 5.402 @bw ( the command is as) @ws 64.8 96 @m @bw40 (shown) @ws 5 @bw ( in F) X@ws @bw40 (igure 4.) @ws 64.8 48 @m 9 @f111 @bw40 (\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) @ws X64.8 24 @m 0 3 @rm 8 @f11 @bw40 (3) @ws 0 -3 @rm 10.4 @bw ( FLOPPY) @ws X4.375 @bw ( in full screen mode uses the IBM package) @ws 4.376 @bw ( IOS3270) X@ws @bw40 (, a screen management facility for full\261screen terminals, which) X@ws 64.8 12 @m 14.4 @bw ( is) @ws 4 @bw ( not standard REXX.) @ws X67.9 618.5 @m 447.4 1 @hr 67.9 618.5 @m 385 1 @vr 514.3 618.5 @m 385 1 @vr X67.9 234.5 @m 447.4 1 @hr Xshowpage pageobj restore X%%Page: ? 9 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 334.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 7) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 696 @m 9 @f1 @bw40 (+\261\261\261\261\261\261\261\261+\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261+) @ws 64.8 684 @m X@bw40 (|) @ws 43.2 @bw ( |) @ws 334.8 @bw ( |) @ws 64.8 672 @m @bw40 (|) @ws X5.4 @bw ( FLOPPY | [ ? | fn [ft [fm]] [\( Options ]]) @ws 156.6 @bw ( |) @ws X64.8 660 @m @bw40 (|) @ws 43.2 @bw ( |) @ws 334.8 @bw ( |) @ws 64.8 648 @m X@bw40 (|) @ws 43.2 @bw ( |) @ws 5.4 @bw ( Options:) @ws 286.2 @bw ( |) @ws X64.8 636 @m @bw40 (|) @ws 43.2 @bw ( |) @ws 334.8 @bw ( |) @ws 64.8 624 @m X@bw40 (|) @ws 43.2 @bw ( |) @ws 5.4 @bw ( [CHECKS {STANDARD|NONE|ALEPH|GALEP) X@ws @bw40 (H|ONLINE|LIST|number_list}]|) @ws 64.8 612 @m @bw40 (|) @ws X43.2 @bw ( |) @ws 5.4 @bw ( [DISK]) @ws 297 @bw ( |) @ws 64.8 600 @m X@bw40 (|) @ws 43.2 @bw ( |) @ws 5.4 @bw ( [FULL]) @ws 297 @bw ( |) @ws X64.8 588 @m @bw40 (|) @ws 43.2 @bw ( |) @ws 5.4 @bw ( [GOTOS]) @ws X291.6 @bw ( |) @ws 64.8 576 @m @bw40 (|) @ws 43.2 @bw ( |) @ws 5.4 @bw ( [GR) X@ws @bw40 (OUPF]) @ws 286.2 @bw ( |) @ws 64.8 564 @m @bw40 (|) @ws X43.2 @bw ( |) @ws 5.4 @bw ( [IGNORE]) @ws 286.2 @bw ( |) @ws 64.8 552 @m X@bw40 (|) @ws 43.2 @bw ( |) @ws 5.4 @bw ( [INDENT) @ws 21.6 @bw ( spaces]) X@ws 232.2 @bw ( |) @ws 64.8 540 @m @bw40 (|) @ws 43.2 @bw ( |) @ws X5.4 @bw ( [OLD) @ws 37.8 @bw ( fn) @ws 5.4 @bw ( ft fm]) @ws 221.4 @bw ( |) X@ws 64.8 528 @m @bw40 (|) @ws 43.2 @bw ( |) @ws 5.4 @bw ( [OUTPUT) @ws X21.6 @bw ( fn) @ws 5.4 @bw ( ft fm]) @ws 221.4 @bw ( |) @ws 64.8 516 @m X@bw40 (|) @ws 43.2 @bw ( |) @ws 5.4 @bw ( [RENUMF) @ws 21.6 @bw ( start_val) X@ws @bw40 (ue[,step_value]]) @ws 135 @bw ( |) @ws 64.8 504 @m @bw40 (|) @ws X43.2 @bw ( |) @ws 5.4 @bw ( [RENUMS) @ws 21.6 @bw ( start_value[,step_value]) X@ws @bw40 (]) @ws 135 @bw ( |) @ws 64.8 492 @m @bw40 (|) @ws 43.2 @bw ( |) X@ws 5.4 @bw ( [TIDY]) @ws 297 @bw ( |) @ws 64.8 480 @m @bw40 (|) @ws X43.2 @bw ( |) @ws 5.4 @bw ( [TREE]) @ws 297 @bw ( |) @ws 64.8 468 @m X@bw40 (+\261\261\261\261\261\261\261\261+\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261+) @ws 64.8 444 @m 10 @f12 @bw40 (Figure) @ws X5 @bw ( 4) @ws 10 @f11 @bw40 (:) @ws 24.8 @bw ( FLOPPY) @ws 5 @bw ( \(IBM\) ) X@ws @bw40 (command format) @ws 64.8 408 @m 12 @f13 @bw40 (2.8) @ws 6 @bw ( FL) X@ws @bw40 (OPPY on ULTRIX) @ws 64.8 384 @m 10 @f11 @bw40 (Floppy) @ws X5.645 @bw ( operates on a single input file) @ws 5.646 @bw ( of Fortran code.) X@ws @bw40 ( The main difference between Floppy on Unix,) @ws 64.8 372 @m X@bw40 (and) @ws 5.21 @bw ( Floppy on IBM or on the VAX, is the absence) @ws X5.211 @bw ( of the qualifier for FLOW. It is hoped to provide) @ws 64.8 360 @m X@bw40 (this) @ws 5 @bw ( facility sometime in the future.) @ws 10 @bw ( The) X@ws 5 @bw ( syntax of the command is:) @ws 64.8 336 @m 8 @f11 36 @bw ( ) @ws X8 @f12 @bw40 (floppy) @ws 4 @bw ( [\261l] [\261c rules] [\261f] [\261o old] [) X@ws @bw40 (\261i names] [\261j number] [\261F] [\261G] [\261r start,step] [) X@ws @bw40 (\261s start,step] [\261n new] [file]) @ws 64.8 312 @m 10 @f11 X@bw40 (The) @ws 5 @bw ( meaning of each Unix qualifier is given in the list b) X@ws @bw40 (elow.) @ws 64.8 288 @m 10 @f111 @bw40 (\247) @ws 10 @f11 X21.27 @bw ( ) @ws 12 @f11 @bw40 (\261l) @ws 64.8 264 @m 10 @f11 28.8 @bw ( The) X@ws 5 @bw ( logging option causes Floppy to produce a verbose description of ) X@ws @bw40 (the selected options.) @ws 64.8 252 @m 10 @f111 @bw40 (\247) @ws X10 @f11 21.27 @bw ( ) @ws 12 @f11 @bw40 (\261c) @ws 64.8 228 @m 10 @f11 X28.8 @bw ( Defines) @ws 5.31 @bw ( the set of Coding Conventions to be checke) X@ws @bw40 (d. Specifying \261cstandard causes the Standard) @ws 64.8 216 @m X28.8 @bw ( set) @ws 5.124 @bw ( of checks to be made \(see Section 2.2\). Spe) X@ws @bw40 (cifying \261cn causes no checks to be) @ws 5.125 @bw ( made \(usef) X@ws @bw40 (ul) @ws 64.8 204 @m 28.8 @bw ( for) @ws 5.788 @bw ( when code tidy) X@ws @bw40 (ing options only are used\). Specifying \261ca causes all available) X@ws @bw40 ( checks to be) @ws 64.8 192 @m 28.8 @bw ( made.) @ws 6.597 @bw ( O) X@ws @bw40 (therwise, a) @ws 6.598 @bw ( list of comma\261separated numbers ma) X@ws @bw40 (y be given. The number 99 has the) @ws 64.8 180 @m 28.8 @bw ( speci) X@ws @bw40 (al) @ws 5.476 @bw ( meaning: all) @ws 5.477 @bw ( rules, the numb) X@ws @bw40 (er \26199 means: no rules.) @ws 10.477 @bw ( So) @ws 5.477 @bw ( ) X@ws @bw40 (to check all rules except 1,3,5) @ws 64.8 168 @m 28.8 @bw ( and) @ws X 5 @bw ( 31, use the qualifier \261c99,\2611,\2613,\2615,\26131.) @ws X64.8 156 @m 10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 12 @f11 X@bw40 (\261f) @ws 64.8 132 @m 10 @f11 28.8 @bw ( The) @ws 5.25 @bw ( full qua) X@ws @bw40 (lifier specifies that all source) @ws 5.251 @bw ( code lines shoul) X@ws @bw40 (d be listed by Floppy, rather than just) @ws 64.8 120 @m X28.8 @bw ( those) @ws 5 @bw ( in breach of any of the specified coding conven) X@ws @bw40 (tions.) @ws 64.8 108 @m 10 @f111 @bw40 (\247) @ws 10 @f11 X21.27 @bw ( ) @ws 12 @f11 @bw40 (\261o) @ws 64.8 84 @m 10 @f11 28.8 @bw ( Use) X@ws 5.918 @bw ( a previously generated file of rule numbers, ignore names, et) X@ws @bw40 (c..) @ws 10.918 @bw ( The) @ws 5.918 @bw ( tag value should be) X@ws 64.8 72 @m 28.8 @bw ( set) @ws 6.409 @bw ( to the name of the "old" file,) X@ws @bw40 ( normally the previous) @ws 6.41 @bw ( source Fortran name, append) X@ws @bw40 (ed with) @ws 64.8 60 @m 28.8 @bw ( ".old".) @ws 64.8 48 @m 10 @f111 X@bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 12 @f11 @bw40 (\261i) @ws Xshowpage pageobj restore X%%Page: ? 10 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 334.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 8) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 696 @m 28.8 @bw ( Specify) @ws 6.38 @bw ( a list of variable or modu) X@ws @bw40 (le names that are to be ignored by Floppy when checking) @ws X64.8 684 @m 28.8 @bw ( coding) @ws 6.423 @bw ( conventions. The names should ) X@ws @bw40 (be specified as a) @ws 6.424 @bw ( comma\261separated list. Module) X@ws @bw40 ( names) @ws 64.8 672 @m 28.8 @bw ( should) @ws 5.192 @bw ( be prec) X@ws @bw40 (eded by a "#"sign. All names should) @ws 5.193 @bw ( be in upper c) X@ws @bw40 (ase. Thus, to ignore subroutine) @ws 64.8 660 @m 28.8 @bw ( GOOBAR,) X@ws 5 @bw ( and all variables called FOOBAR, specify \261i#GOOBAR,FOOBAR.) @ws X64.8 648 @m 10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 12 @f11 X@bw40 (\261j) @ws 64.8 624 @m 10 @f11 28.8 @bw ( The) @ws 5.393 @bw ( indent ) X@ws @bw40 (option) @ws 5.394 @bw ( causes all DO loops and IF...THEN...ELSE..) X@ws @bw40 (.ENDIF clauses to be indented by) @ws 64.8 612 @m 28.8 @bw ( the) X@ws 5 @bw ( specified number of spaces. The default is 3 spaces. Values from ) X@ws @bw40 (1 to 5 may be given.) @ws 64.8 600 @m 10 @f111 @bw40 (\247) @ws X10 @f11 21.27 @bw ( ) @ws 12 @f11 @bw40 (\261F) @ws 64.8 576 @m 10 @f11 X28.8 @bw ( Causes) @ws 5 @bw ( all FORMAT statements to be grouped at the end) X@ws @bw40 ( of each module.) @ws 64.8 564 @m 10 @f111 @bw40 (\247) @ws 10 @f11 X21.27 @bw ( ) @ws 12 @f11 @bw40 (\261G) @ws 64.8 540 @m 10 @f11 28.8 @bw ( Cau) X@ws @bw40 (ses) @ws 5 @bw ( all GOTO clauses to be right\261adjusted to colum) X@ws @bw40 (n 72.) @ws 64.8 528 @m 10 @f111 @bw40 (\247) @ws 10 @f11 X21.27 @bw ( ) @ws 12 @f11 @bw40 (\261s) @ws 64.8 504 @m 10 @f11 28.8 @bw ( Spe) X@ws @bw40 (cifies) @ws 6.438 @bw ( that all statement labels are to) @ws X6.439 @bw ( be renumbered.) @ws 11.439 @bw ( The) @ws 6.439 @bw ( start valu) X@ws @bw40 (e, and optionally, the) @ws 64.8 492 @m 28.8 @bw ( step) @ws X5.055 @bw ( value \(default) @ws 5.056 @bw ( is 10\) should be given. Thus to) X@ws @bw40 ( renumber starting at 100 and stepping by 20,) @ws 64.8 480 @m X28.8 @bw ( use) @ws 5 @bw ( \261s100,20.) @ws 64.8 468 @m 10 @f111 X@bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 12 @f11 @bw40 (\261r) @ws X64.8 444 @m 10 @f11 28.8 @bw ( Specifies) @ws 6.2 @bw ( that all FORMAT label) X@ws @bw40 (s are to be renumbered.) @ws 11.2 @bw ( The) @ws 6.2 @bw ( start ) X@ws @bw40 (value, and optionally, the) @ws 64.8 432 @m 28.8 @bw ( step) @ws X5.055 @bw ( value \(default) @ws 5.056 @bw ( is 10\) should be given. Thus to) X@ws @bw40 ( renumber starting at 1000 and stepping by 1,) @ws 64.8 420 @m X28.8 @bw ( use) @ws 5 @bw ( \261r1000,1.) @ws 64.8 408 @m 10 @f111 X@bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 12 @f11 @bw40 (\261n) @ws X64.8 384 @m 10 @f11 28.8 @bw ( Causes) @ws 5 @bw ( the "tidied" Fortran to be) X@ws @bw40 ( written to the specified file.) @ws 64.8 348 @m 12 @f13 X@bw40 (2.9) @ws 6 @bw ( The meaning of the FLOPPY Qualifiers/Options) @ws X64.8 324 @m 10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 X@bw40 (CHECKS) @ws 64.8 300 @m 10 @f11 28.8 @bw ( Define) @ws 5.825 @bw ( the) X@ws @bw40 ( coding convention checks to be made.) @ws 10.825 @bw ( If) @ws X5.825 @bw ( no list is given, then the checks marked) @ws 64.8 288 @m X28.8 @bw ( by) @ws 5.429 @bw ( a '*' in Section 2.2 are made.) @ws X10.429 @bw ( If) @ws 5.429 @bw ( n=99 then) @ws 5.43 @bw ( all checks are ma) X@ws @bw40 (de.) @ws 10.43 @bw ( If) @ws 5.43 @bw ( /NOCHECKS \(VAX\)) @ws X64.8 276 @m 28.8 @bw ( or) @ws 5.617 @bw ( CHECKS NONE \(IBM\) is specified t) X@ws @bw40 (hen no checks) @ws 5.618 @bw ( are made.) @ws 10.618 @bw ( If) @ws X 5.618 @bw ( n is negative, then check) @ws 64.8 264 @m 28.8 @bw ( number) @ws X7.525 @bw ( n is not made.) @ws 12.525 @bw ( Thus) @ws 7.525 @bw ( to) @ws X7.526 @bw ( make all the checks except numbers 3 and 31, specify) @ws X64.8 252 @m 28.8 @bw ( /CHECKS=\(99,\2613,\26131\)) @ws 5 @bw ( on the VAX or) X@ws @bw40 ( CHECKS 99,\2613,\26131 on the IBM.) @ws 64.8 228 @m 10 @f111 X@bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 @bw40 (DISK) @ws 5 @bw ( ) X@ws @bw40 (\(IBM ONLY\)) @ws 64.8 204 @m 10 @f11 28.8 @bw ( Cause) @ws X5.437 @bw ( the output normally viewed) @ws 5.438 @bw ( at the terminal to be) X@ws @bw40 ( written to a file on disk. This file will) @ws 64.8 192 @m X28.8 @bw ( have) @ws 5 @bw ( type FLOPLIS.) @ws 64.8 168 @m 10 @f111 X@bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 @bw40 (TREE) @ws 64.8 144 @m X10 @f11 28.8 @bw ( Cause) @ws 6.915 @bw ( a summary output file to be produce) X@ws @bw40 (d, containing a packed description of the source) @ws 64.8 132 @m X28.8 @bw ( FORTRAN.) @ws 6.374 @bw ( The summary file contains such) @ws X6.375 @bw ( information as the list of all FORTRAN module) @ws 64.8 120 @m X28.8 @bw ( names,) @ws 6.308 @bw ( their arguments, calling list,) @ws X6.309 @bw ( and so on. The file is unformatted; it should be used as) @ws X64.8 108 @m 28.8 @bw ( input) @ws 5 @bw ( to the auxiliary tool called FLOW, ) X@ws @bw40 (and is unreadable at the terminal.) @ws 64.8 84 @m 10 @f111 X@bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 @bw40 (OUTPUT) @ws X5 @bw ( \(IBM\)) @ws 64.8 60 @m 10 @f11 28.8 @bw ( Cause) @ws 5.446 @bw ( the) X@ws @bw40 ( reformatted FORTRAN output to be written on) @ws 5.447 @bw ( the ) X@ws @bw40 (filename specified. If no filename) @ws 64.8 48 @m 28.8 @bw ( is) X@ws 5 @bw ( given, then the output Fortran is written to a file called OUTPUT) X@ws @bw40 ( FORTRAN \(IBM\).) @ws Xshowpage pageobj restore X%%Page: ? 11 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 334.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 9) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 696 @m 10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 X@bw40 (OUTPUT) @ws 5 @bw ( \(VAX\)) @ws 64.8 672 @m 10 @f11 28.8 @bw ( Cause) X@ws 5.692 @bw ( the) @ws 5.693 @bw ( output from FLOPPY \(normally viewed at) X@ws @bw40 ( the terminal\) to be sent to a disk file. If) @ws 64.8 660 @m X28.8 @bw ( filename) @ws 5.424 @bw ( is not specified the output file will ha) X@ws @bw40 (ve the stem) @ws 5.425 @bw ( name of the source FORTRAN file,) @ws X64.8 648 @m 28.8 @bw ( with) @ws 5 @bw ( a type of FLOPLIS .) @ws 64.8 624 @m X10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 @bw40 (FULL) @ws X64.8 600 @m 10 @f11 28.8 @bw ( Cause) @ws 6.753 @bw ( all source FORTRAN stat) X@ws @bw40 (ements to be) @ws 6.754 @bw ( output, as opposed to only those bre) X@ws @bw40 (aking the) @ws 64.8 588 @m 28.8 @bw ( specified) @ws 5 @bw ( codin) X@ws @bw40 (g conventions.) @ws 64.8 564 @m 10 @f111 @bw40 (\247) @ws 10 @f11 X21.27 @bw ( ) @ws 10 @f12 @bw40 (IGNORE) @ws 64.8 540 @m 10 @f11 28.8 @bw ( Sp) X@ws @bw40 (ecify) @ws 7.965 @bw ( a list of FORTRAN module and variable names) X@ws @bw40 ( to be ignored when the coding) @ws 64.8 528 @m 28.8 @bw ( conventi) X@ws @bw40 (on) @ws 5.64 @bw ( checks are made. Specify module names by precee) X@ws @bw40 (ding the name with a # sign e.g.) @ws 64.8 516 @m 28.8 @bw ( #MINUI) X@ws @bw40 (T,) @ws 5 @bw ( specify variable names normally.) @ws 64.8 492 @m X10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 @bw40 (SPECIAL) @ws X64.8 468 @m 10 @f11 28.8 @bw ( Specify) @ws 5.069 @bw ( that a special versio) X@ws @bw40 (n of FLOPPY be used. The default) @ws 5.07 @bw ( 'special' version) X@ws @bw40 ( is STANDARD,) @ws 64.8 456 @m 28.8 @bw ( which) @ws 5 @bw ( cause) X@ws @bw40 (s those checks marked by a '*' \(see CHECKS\) to be implemented.) X@ws 64.8 432 @m 9 @f1 39.6 @bw ( STANDARD) @ws 5.4 @bw ( : Use the standard c) X@ws @bw40 (hecks.) @ws 64.8 420 @m 39.6 @bw ( ALEPH) @ws 21.6 @bw ( :) @ws X5.4 @bw ( Use the ALEPH standard checks.) @ws 64.8 408 @m 39.6 @bw ( GALEPH) X@ws 16.2 @bw ( :) @ws 5.4 @bw ( Variables beginning with G..... or xG.... ar) X@ws @bw40 (e ignored.) @ws 64.8 384 @m 10 @f11 28.8 @bw ( Other) @ws 5 @bw ( ) X@ws @bw40 (special versions may be defined on request to the author.) @ws X64.8 360 @m 10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 X@bw40 (LOG) @ws 5 @bw ( \(VAX ONLY\)) @ws 64.8 336 @m 10 @f11 28.8 @bw ( Show) X@ws 5 @bw ( a summary of the FLOPPY command parsing.) @ws 64.8 312 @m 10 @f111 X@bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 @bw40 (OLD) @ws 64.8 288 @m X10 @f11 28.8 @bw ( Each) @ws 6.352 @bw ( time FLOPPY is run, an) @ws X6.353 @bw ( "IGNORE" file is written with the user specifications for that) @ws X64.8 276 @m 28.8 @bw ( particular) @ws 5.133 @bw ( run. If the OLD qualifier ) X@ws @bw40 (is used, one may specify) @ws 5.134 @bw ( an already existing "IGN) X@ws @bw40 (ORE" file.) @ws 64.8 264 @m 28.8 @bw ( If) @ws 6.883 @bw ( the fil) X@ws @bw40 (ename is omitted, then the filename used is obtained from the stem ) X@ws @bw40 (of) @ws 6.884 @bw ( the source) @ws 64.8 252 @m 28.8 @bw ( FORTRAN) X@ws 6.292 @bw ( file and the type FLOPIGN .) @ws 11.292 @bw ( Note) @ws X6.292 @bw ( that) @ws 6.293 @bw ( this qualifier does not affect the use of) X@ws 64.8 240 @m 28.8 @bw ( TIDY) @ws 5 @bw ( as the FORTRAN tidying parameter) X@ws @bw40 (s are not stored in the "IGNORE" file.) @ws 64.8 216 @m 10 @f111 X@bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 @bw40 (TIDY) @ws 64.8 192 @m X10 @f11 28.8 @bw ( Write) @ws 5.05 @bw ( a new file of) @ws 5.051 @bw ( FORT) X@ws @bw40 (RAN after re\261formatting the input according to the qualifiers sp) X@ws @bw40 (ecified.) @ws 64.8 180 @m 28.8 @bw ( The) @ws 5.53 @bw ( TIDY qual) X@ws @bw40 (ifier must be accompanied by at least one of the following qualifie) X@ws @bw40 (rs. If all you) @ws 64.8 168 @m 28.8 @bw ( want) @ws 5.97 @bw ( to) X@ws @bw40 ( do is TIDY your) @ws 5.971 @bw ( Fortran, then use the /NOCHECKS ) X@ws @bw40 (or CHECKS NONE qualifier as) @ws 64.8 156 @m 28.8 @bw ( well.) @ws X64.8 132 @m @bw40 ( ) @ws 10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws X10 @f12 @bw40 (FORTRAN) @ws 5 @bw ( \(VAX only\)) @ws 64.8 120 @m 10 @f11 X57.6 @bw ( Cause) @ws 6.341 @bw ( the reformatted FORTRAN output to be) @ws X6.342 @bw ( written on the filename specified. If no) @ws 64.8 108 @m X57.6 @bw ( filename) @ws 5 @bw ( is given, then the output Fortran is written) X@ws @bw40 ( to a file called FORTRAN.FOR.) @ws 64.8 96 @m 28.8 @bw ( ) @ws X10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 @bw40 (GOTOS) @ws X64.8 84 @m 10 @f11 57.6 @bw ( Right) @ws 5 @bw ( adjust all GOTO statements s) X@ws @bw40 (o that they finish in column 72.) @ws 64.8 72 @m 28.8 @bw ( ) @ws X10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 @bw40 (INDENT) @ws X64.8 60 @m 10 @f11 57.6 @bw ( Indent) @ws 6.247 @bw ( DO and IF clauses by th) X@ws @bw40 (e specified number) @ws 6.248 @bw ( of spaces. The default is 3, a) X@ws @bw40 (nd if) @ws 64.8 48 @m 57.6 @bw ( specified,) @ws 5 @bw ( n should ) X@ws @bw40 (be in the range 1 to 5.) @ws Xshowpage pageobj restore X%%Page: ? 12 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 329.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 10) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 696 @m 28.8 @bw ( ) @ws 10 @f111 @bw40 (\247) @ws 10 @f11 X21.27 @bw ( ) @ws 10 @f12 @bw40 (FORMAT) @ws 5 @bw ( \(VAX\) RENUMF \(IBM\)) X@ws 64.8 684 @m 10 @f11 57.6 @bw ( Re\261number) @ws 5 @bw ( FORMAT statement) X@ws @bw40 (s starting at n and stepping by m.) @ws 64.8 672 @m 28.8 @bw ( ) @ws X10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 @bw40 (GROUPF) @ws X64.8 660 @m 10 @f11 57.6 @bw ( Group) @ws 5 @bw ( all FORMAT statements at th) X@ws @bw40 (e bottom of each module in which they appear.) @ws 64.8 648 @m X28.8 @bw ( ) @ws 10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 X@bw40 (STMNTS) @ws 5 @bw ( \(VAX\) RENUMS \(IBM\)) @ws 64.8 636 @m 10 @f11 X57.6 @bw ( Re\261number) @ws 5 @bw ( all statements \(not FORMATs\) starting ) X@ws @bw40 (at n and stepping by m.) @ws 64.8 588 @m 12 @f11 199.47 @bw ( ) @ws X12 @f13 @bw40 (Chapter) @ws 6 @bw ( 3) @ws 64.8 564 @m 10 @f11 96.462 @bw ( ) X@ws 12 @f13 @bw40 (Summary) @ws 6 @bw ( of Files produced by a FLOPPY run) @ws X64.8 528 @m 10 @f11 @bw40 (Listed) @ws 6.604 @bw ( below are the files which ) X@ws @bw40 (will appear when you run FLOPPY either on the VAX) @ws X6.605 @bw ( or IBM.) @ws 64.8 516 @m @bw40 (Some) @ws 7.101 @bw ( of these) X@ws 7.102 @bw ( files will only appear if you select a particular FLOPPY opti) X@ws @bw40 (on \(shown in Status) @ws 64.8 504 @m @bw40 (column\).) @ws X64.8 444 @m 173.18 @bw ( ) @ws 10 @f12 @bw40 (Table) @ws 5 @bw ( 1) @ws X10 @f11 @bw40 (:) @ws 10 @bw ( FLOPPY) @ws 5 @bw ( Files) @ws 64.8 425 @m X7 @f1 63.6 @bw ( VMS) @ws 4.2 @bw ( filename) @ws 21 @bw ( IBM) @ws X4.2 @bw ( filename) @ws 29.4 @bw ( Unix) @ws 4.2 @bw ( Filename) @ws X16.8 @bw ( Description) @ws 54.6 @bw ( Status) @ws 64.8 418 @m 63.6 @bw ( ) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261) @ws 21 @bw ( ) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261 \261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261) @ws 16.8 @bw ( \261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261) @ws 4.2 @bw ( \261\261\261\261\261\261) X@ws @bw40 (\261\261\261) @ws 64.8 411 @m 63.6 @bw ( fn.FOR) @ws 46.2 @bw ( fn) X@ws 21 @bw ( FORTRAN yourfile.f) @ws 29.4 @bw ( The) @ws 4.2 @bw ( source F) X@ws @bw40 (ORTRAN) @ws 25.2 @bw ( Required) @ws 64.8 397 @m 63.6 @bw ( fn.FLO) X@ws @bw40 (PFOR) @ws 29.4 @bw ( OUTPUT) @ws 4.2 @bw ( FORTRAN) @ws X21 @bw ( yourfile.f.out) @ws 12.6 @bw ( The) @ws 4.2 @bw ( 'tidied' FORTRAN) X@ws 16.8 @bw ( Optional) @ws 64.8 383 @m 63.6 @bw ( fn.FLOPLIS) @ws X29.4 @bw ( fn) @ws 21 @bw ( FLOPLIS stdout) @ws 46.2 @bw ( The) @ws X4.2 @bw ( FLOPPY output,) @ws 25.2 @bw ( Optional) @ws 64.8 369 @m X63.6 @bw ( fn.FLOPIGN) @ws 29.4 @bw ( fn) @ws 21 @bw ( FLOPIGN yourfile.f.ol) X@ws @bw40 (d) @ws 12.6 @bw ( The) @ws 4.2 @bw ( list of names to) @ws X16.8 @bw ( Optional) @ws 64.8 362 @m 286.2 @bw ( ignored) @ws 4.2 @bw ( by FL) X@ws @bw40 (OPPY,) @ws 64.8 355 @m 286.2 @bw ( and) @ws 4.2 @bw ( rule list) X@ws 64.8 341 @m 63.6 @bw ( fn.FLOPTRE) @ws 29.4 @bw ( fn) @ws 21 @bw ( FLOPT) X@ws @bw40 (RE not) @ws 4.2 @bw ( available) @ws 16.8 @bw ( The) @ws X4.2 @bw ( FLOPPY output to) @ws 16.8 @bw ( Optional) @ws 64.8 334 @m X286.2 @bw ( be) @ws 4.2 @bw ( input to TREE) @ws 64.8 320 @m 63.6 @bw ( PROTR) X@ws @bw40 (E.DAT) @ws 29.4 @bw ( FILE) @ws 12.6 @bw ( PROTRE) @ws X25.2 @bw ( not) @ws 4.2 @bw ( available) @ws 16.8 @bw ( The) @ws 4.2 @bw ( ) X@ws @bw40 (tree diagram from) @ws 12.6 @bw ( Optional) @ws 64.8 313 @m X286.2 @bw ( FLOW) @ws 64.8 299 @m 63.6 @bw ( PROCOM.DAT) @ws 29.4 @bw ( FILE) X@ws 12.6 @bw ( PROCOM) @ws 25.2 @bw ( not) @ws 4.2 @bw ( available) @ws X16.8 @bw ( The) @ws 4.2 @bw ( table of COMMON) @ws 21 @bw ( Optional) @ws X64.8 292 @m 286.2 @bw ( block) @ws 4.2 @bw ( usage from FLOW) @ws 64.8 278 @m X63.6 @bw ( fn.METAFILE) @ws 25.2 @bw ( fn) @ws 21 @bw ( METAFILE) @ws X16.8 @bw ( not) @ws 4.2 @bw ( available) @ws 16.8 @bw ( GKS) @ws 4.2 @bw ( ) X@ws @bw40 (metafile of SASD) @ws 16.8 @bw ( Optional) @ws 64.8 271 @m X286.2 @bw ( Structure) @ws 4.2 @bw ( Chart) @ws 64.8 257 @m 63.6 @bw ( fn.PS) X@ws 50.4 @bw ( fn) @ws 21 @bw ( LISTPS) @ws 25.2 @bw ( not) @ws 4.2 @bw ( ) X@ws @bw40 (available) @ws 16.8 @bw ( PostScript) @ws 4.2 @bw ( file for) @ws X21 @bw ( Optional) @ws 64.8 250 @m 286.2 @bw ( Structure) @ws 4.2 @bw ( Chart) X@ws 64.8 171 @m 12 @f11 199.47 @bw ( ) @ws 12 @f13 @bw40 (Chapter) @ws X6 @bw ( 4) @ws 64.8 147 @m 10 @f11 188.46 @bw ( ) @ws 12 @f13 @bw40 (FLOW) @ws X6 @bw ( output) @ws 64.8 111 @m 10 @f11 @bw40 (FLOW) @ws 0 3 @rm 8 @f11 X@bw40 (4) @ws 0 -3 @rm 10 @f11 7.494 @bw ( uses a file produced by) @ws X7.495 @bw ( FLOPPY from your FORTRAN to analyse the flow of control) @ws X64.8 99 @m @bw40 (between) @ws 5.49 @bw ( the modules, the argument types, th) X@ws @bw40 (e number of passed arguments and so on, and produces a) @ws X64.8 87 @m @bw40 (program) @ws 5.744 @bw ( control structure file together wi) X@ws @bw40 (th a common block usage file.) @ws 10.744 @bw ( The) @ws X5.744 @bw ( output from the FLOW) @ws 64.8 75 @m @bw40 (program) @ws 5 @bw ( ) X@ws @bw40 (is suitable for inclusion in a document such as a user's guide.) @ws X64.8 48 @m 10 @f111 @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276) @ws 64.8 24 @m 0 3 @rm 8 @f11 X@bw40 (4) @ws 0 -3 @rm 10.4 @bw ( FLOW) @ws 6.352 @bw ( is based) @ws X6.353 @bw ( on an original idea by P.Palazzi, and has been implemented by J.J.) X@ws @bw40 (Bunn using the ADAMO data) @ws 64.8 12 @m 14.4 @bw ( management) @ws X 4 @bw ( system.) @ws 67.9 474.5 @m 447.4 1 @hr 67.9 474.5 @m 250 1 @vr X514.3 474.5 @m 250 1 @vr 67.9 225.5 @m 447.4 1 @hr Xshowpage pageobj restore X%%Page: ? 13 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 329.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 11) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 696 @m @bw40 (It) @ws 6.986 @bw ( is now also possible to produce a ) X@ws @bw40 (pseudo\261structure\261chart) @ws 6.987 @bw ( in GKS metafile or P) X@ws @bw40 (ostScript format,) @ws 64.8 684 @m @bw40 (although) @ws X5.096 @bw ( this option is in a preliminary status and is) @ws 5.097 @bw ( no) X@ws @bw40 (t optimally implemented. It is intended that this) @ws 64.8 672 @m X@bw40 (will) @ws 8.82 @bw ( be useful for "backward analysis", i.e. verifying) X@ws @bw40 ( that the SASD designed Structure Chart) @ws 64.8 660 @m X@bw40 (corresponds) @ws 5.263 @bw ( with the actual structure of the Fortran ) X@ws @bw40 (source. Please see) @ws 5.264 @bw ( Figure 5 and under /GRAPHICS) X@ws 64.8 648 @m @bw40 (below.) @ws 64.8 588 @m 9 @f1 21.6 @bw ( This) @ws X5.4 @bw ( figure unavailable) @ws 64.8 564 @m 10 @f11 21.6 @bw ( ) @ws 10 @f12 X@bw40 (Figure) @ws 5 @bw ( 5) @ws 10 @f11 @bw40 (:) @ws 24.8 @bw ( The) @ws X5 @bw ( FLOW Structure Chart for the FLOW program itself) @ws 67.9 618.5 @m X447.4 1 @hr 67.9 618.5 @m 73 1 @vr 514.3 618.5 @m 73 1 @vr 67.9 546.5 @m X447.4 1 @hr Xshowpage pageobj restore X%%Page: ? 14 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 329.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 12) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 670 @m 7 @f1 25.8 @bw ( ********************) @ws 58.8 @bw ( ProTre) X@ws 54.6 @bw ( ********************) @ws 64.8 663 @m 168.6 @bw ( ======) @ws X64.8 642 @m 114 @bw ( Meaning) @ws 4.2 @bw ( of Symbols:) @ws 64.8 635 @m X114 @bw ( \261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261) @ws 64.8 621 @m @bw40 ( .) @ws 12.6 @bw ( ==>) @ws X4.2 @bw ( terminal node in the tree) @ws 64.8 614 @m 114 @bw ( *) @ws X12.6 @bw ( ==>) @ws 4.2 @bw ( external procedure) @ws 64.8 607 @m 114 @bw ( >) X@ws 12.6 @bw ( ==>) @ws 4.2 @bw ( subtree node, expanded below) @ws X64.8 600 @m 114 @bw ( +) @ws 12.6 @bw ( ==>) @ws 4.2 @bw ( multiply called t) X@ws @bw40 (erminal node) @ws 64.8 593 @m 130.8 @bw ( ==>) @ws 4.2 @bw ( proce) X@ws @bw40 (dure calling externals) @ws 64.8 586 @m 25.8 @bw ( \261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261) @ws 64.8 579 @m 114 @bw ( ?) @ws 12.6 @bw ( ) X@ws @bw40 (==>) @ws 4.2 @bw ( module is in IF clause) @ws 64.8 572 @m X114 @bw ( \() @ws 12.6 @bw ( ==>) @ws 4.2 @bw ( module is in DO loop) @ws X64.8 558 @m 25.8 @bw ( *******************************************************) X@ws @bw40 (******************) @ws 64.8 537 @m @bw40 ( EXTERNAL) @ws X4.2 @bw ( procedure names will not appear) @ws 64.8 516 @m 25.8 @bw ( ========) X@ws @bw40 (=====) @ws 64.8 509 @m @bw40 ( Node) @ws 4.2 @bw ( name ==> PRODES) X@ws 64.8 502 @m 25.8 @bw ( =============) @ws 64.8 488 @m 30 @bw ( PRODES) @ws X180.6 @bw ( :) @ws 4.2 @bw ( Steer the FLOW program) @ws 64.8 481 @m X46.8 @bw ( |\261\261\261\261\261INITAP) @ws 138.6 @bw ( :) @ws 64.8 474 @m X46.8 @bw ( |) @ws 37.8 @bw ( |\261\261\261\261\261CREOBJ) @ws 96.6 @bw ( :) X@ws 64.8 467 @m 46.8 @bw ( |?\261\261\261\261READAF) @ws 138.6 @bw ( :) @ws X4.2 @bw ( Read the specified DAF) @ws 64.8 460 @m 46.8 @bw ( |?\261\261\261) X@ws @bw40 (\261DEFIND) @ws 138.6 @bw ( :) @ws 4.2 @bw ( Define indices for t) X@ws @bw40 (ables) @ws 64.8 453 @m 46.8 @bw ( |?\261\261\261\261PROCES) @ws X138.6 @bw ( :) @ws 4.2 @bw ( Set up the ADAMO tables) @ws 64.8 446 @m X46.8 @bw ( |) @ws 37.8 @bw ( |\261\261\261\261\261RDFLOP) @ws 12.6 @bw ( .) X@ws 79.8 @bw ( :) @ws 4.2 @bw ( Read the data from FLOPPY) @ws 64.8 439 @m X46.8 @bw ( |) @ws 37.8 @bw ( |?\261\261\261\261TABENT) @ws 96.6 @bw ( :) @ws X4.2 @bw ( Enter data into tables) @ws 64.8 432 @m 46.8 @bw ( |) @ws X37.8 @bw ( |?\261\261\261\261PRIOBJ) @ws 96.6 @bw ( :) @ws 4.2 @bw ( Print s) X@ws @bw40 (ome table contents) @ws 64.8 425 @m 46.8 @bw ( |?\261\261\261\261WR) X@ws @bw40 (IDAF) @ws 138.6 @bw ( :) @ws 4.2 @bw ( Write the tables to a DAF) X@ws 64.8 418 @m 46.8 @bw ( |?\261\261\261\261PROTRE) @ws 138.6 @bw ( :) @ws X4.2 @bw ( Produce the FLOW diagram) @ws 64.8 411 @m 46.8 @bw ( |) @ws X37.8 @bw ( |\261\261\261\261\261NXTNAM) @ws 12.6 @bw ( >) @ws 79.8 @bw ( :) X@ws 4.2 @bw ( Get the next name in the tree) @ws 64.8 404 @m 46.8 @bw ( |?) X@ws @bw40 (\261\261\261\261PROCHT) @ws 138.6 @bw ( :) @ws 4.2 @bw ( Produce ) X@ws @bw40 (the graphics SC) @ws 64.8 397 @m 46.8 @bw ( |) @ws 37.8 @bw ( |) X@ws @bw40 (\261\261\261\261\261IHASH) @ws 16.8 @bw ( +) @ws 79.8 @bw ( :) @ws X64.8 390 @m 46.8 @bw ( |) @ws 37.8 @bw ( |\261\261\261\261\261NXTNAM) @ws X12.6 @bw ( >) @ws 79.8 @bw ( :) @ws 4.2 @bw ( Get the next name in the tree) X@ws 64.8 383 @m 46.8 @bw ( |) @ws 37.8 @bw ( |\261\261\261\261\261IHASH) @ws X16.8 @bw ( +) @ws 79.8 @bw ( :) @ws 64.8 376 @m 46.8 @bw ( |) @ws X37.8 @bw ( |\(?\261\261\261IHASH) @ws 16.8 @bw ( +) @ws 79.8 @bw ( :) @ws X64.8 369 @m 46.8 @bw ( |) @ws 37.8 @bw ( |\261\261\261\261\261CHTBOX) @ws X96.6 @bw ( :) @ws 64.8 362 @m 46.8 @bw ( |?\261\261\261\261PROSUB) @ws X138.6 @bw ( :) @ws 4.2 @bw ( Produce the subroutine headers) @ws 64.8 355 @m X46.8 @bw ( |) @ws 37.8 @bw ( |\(\261\261\261\261NXTNAM) @ws 12.6 @bw ( >) @ws X 79.8 @bw ( :) @ws 4.2 @bw ( Get the next name in the tree) @ws 64.8 348 @m X46.8 @bw ( |?\261\261\261\261PROCOM) @ws 138.6 @bw ( :) @ws 4.2 @bw ( Produc) X@ws @bw40 (e the COMMON block table) @ws 64.8 341 @m 46.8 @bw ( |?\261\261\261) X@ws @bw40 (\261PROQRY) @ws 138.6 @bw ( :) @ws 4.2 @bw ( Interactively look a) X@ws @bw40 (t tree) @ws 64.8 334 @m 46.8 @bw ( |) @ws 37.8 @bw ( |\261\261\261) X@ws @bw40 (\261\261GETINP) @ws 12.6 @bw ( >) @ws 79.8 @bw ( :) @ws X4.2 @bw ( Get a string from the user) @ws 64.8 327 @m 46.8 @bw ( |) @ws X37.8 @bw ( |\261\261\261\261\261CASCHG) @ws 12.6 @bw ( >) @ws 79.8 @bw ( :) X@ws 4.2 @bw ( Convert any lower case to upper) @ws 64.8 320 @m 46.8 @bw ( |) X@ws 37.8 @bw ( |\261\261\261\261\261GETINP) @ws 12.6 @bw ( >) @ws X79.8 @bw ( :) @ws 4.2 @bw ( Get a string from the user) @ws 64.8 313 @m X46.8 @bw ( |) @ws 37.8 @bw ( |\261\261\261\261\261CASCHG) @ws 12.6 @bw ( >) X@ws 79.8 @bw ( :) @ws 4.2 @bw ( Convert any lower case to upper) @ws X64.8 306 @m 46.8 @bw ( |) @ws 37.8 @bw ( |\261\261\261\261\261NXTNAM) @ws X12.6 @bw ( >) @ws 79.8 @bw ( :) @ws 4.2 @bw ( Get the next name in the tree) X@ws 64.8 299 @m 46.8 @bw ( |) @ws 37.8 @bw ( |\261\261\261\261\261GETINP) @ws X12.6 @bw ( >) @ws 79.8 @bw ( :) @ws 4.2 @bw ( Get a string from the user) @ws X64.8 292 @m 46.8 @bw ( |) @ws 37.8 @bw ( |\261\261\261\261\261CASCHG) @ws X12.6 @bw ( >) @ws 79.8 @bw ( :) @ws 4.2 @bw ( Convert any lower case to uppe) X@ws @bw40 (r) @ws 64.8 278 @m 25.8 @bw ( =============) @ws 64.8 271 @m X@bw40 ( Node) @ws 4.2 @bw ( name ==> NXTNAM) @ws 64.8 264 @m 25.8 @bw ( =====) X@ws @bw40 (========) @ws 64.8 250 @m 30 @bw ( NXTNAM) @ws 180.6 @bw ( :) @ws X4.2 @bw ( Get the next name in the tree) @ws 64.8 236 @m 25.8 @bw ( ==========) X@ws @bw40 (===) @ws 64.8 229 @m @bw40 ( Node) @ws 4.2 @bw ( name ==> GETINP) X@ws 64.8 222 @m 25.8 @bw ( =============) @ws 64.8 208 @m 30 @bw ( GETINP) @ws X180.6 @bw ( :) @ws 4.2 @bw ( Get a string from the user) @ws 64.8 194 @m X25.8 @bw ( =============) @ws 64.8 187 @m @bw40 ( Node) @ws 4.2 @bw ( name ==) X@ws @bw40 (> CASCHG) @ws 64.8 180 @m 25.8 @bw ( =============) @ws 64.8 166 @m X30 @bw ( CASCHG) @ws 302.4 @bw ( :) @ws 4.2 @bw ( Convert any) @ws X64.8 159 @m 21.6 @bw ( lower) @ws 4.2 @bw ( case to upper) @ws 64.8 135 @m X10 @f11 21.6 @bw ( ) @ws 10 @f12 @bw40 (Figure) @ws 5 @bw ( 6) @ws 10 @f11 X@bw40 (:) @ws 24.8 @bw ( The) @ws 7.482 @bw ( FLOW diagram for the FLOW prog) X@ws @bw40 (ram itself.) @ws 12.482 @bw ( Subprograms) @ws 7.482 @bw ( that a) X@ws @bw40 (re) @ws 64.8 123 @m 86.4 @bw ( called) @ws 7.115 @bw ( inside DO) X@ws @bw40 (\261loops) @ws 7.116 @bw ( are prefixed by one or more \('s, and t) X@ws @bw40 (hose called) @ws 64.8 111 @m 86.4 @bw ( conditionally) @ws X7.276 @bw ( are prefixed by one) @ws 7.277 @bw ( or more ?'s.) @ws X12.277 @bw ( In) @ws 7.277 @bw ( the FLOW shown, all) @ws 64.8 99 @m X86.4 @bw ( external) @ws 5.387 @bw ( subprograms \(e.g. UCOPY or SIN etc.\)) X@ws 10.387 @bw ( have) @ws 5.387 @bw ( been) @ws 5.388 @bw ( eliminated; th) X@ws @bw40 (is is) @ws 64.8 87 @m 86.4 @bw ( an) @ws 5 @bw ( option.) @ws X67.9 702.5 @m 447.4 1 @hr 67.9 702.5 @m 634 1 @vr 514.3 702.5 @m 634 1 @vr X67.9 69.5 @m 447.4 1 @hr Xshowpage pageobj restore X%%Page: ? 15 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 329.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 13) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 670 @m 7 @f1 67.8 @bw ( F) @ws 4.2 @bw ( P R D T P P N P P H) @ws X64.8 663 @m 67.8 @bw ( L) @ws 4.2 @bw ( R D E A R R X R R I) @ws 64.8 656 @m X67.8 @bw ( O) @ws 4.2 @bw ( O F F B I O T O O S) @ws 64.8 649 @m 67.8 @bw ( W) X@ws 4.2 @bw ( C L I E O T N D C T) @ws 64.8 642 @m 76.2 @bw ( E) @ws X4.2 @bw ( O N N B R A E O G) @ws 64.8 635 @m 76.2 @bw ( S) @ws 4.2 @bw ( P D ) X@ws @bw40 (T J E M S M O) @ws 64.8 628 @m 63.6 @bw ( +\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261+) @ws X64.8 621 @m 25.8 @bw ( JOBCOM) @ws 12.6 @bw ( |Y) @ws 4.2 @bw ( Y Y) @ws X331.8 @bw ( |) @ws 64.8 614 @m 63.6 @bw ( |) @ws 352.8 @bw ( |) @ws X64.8 607 @m 25.8 @bw ( LUNIT) @ws 16.8 @bw ( |Y) @ws 4.2 @bw ( Y Y) @ws X12.6 @bw ( Y Y) @ws 21 @bw ( Y) @ws 273 @bw ( |) @ws 64.8 600 @m 63.6 @bw ( ) X@ws @bw40 (|) @ws 352.8 @bw ( |) @ws 64.8 593 @m 25.8 @bw ( TREEST) @ws X12.6 @bw ( |Y) @ws 46.2 @bw ( Y) @ws 21 @bw ( N) @ws 273 @bw ( |) @ws X64.8 586 @m 63.6 @bw ( |) @ws 352.8 @bw ( |) @ws 64.8 579 @m 25.8 @bw ( FLOP) X@ws 21 @bw ( |) @ws 8.4 @bw ( N) @ws 4.2 @bw ( Y) @ws 12.6 @bw ( Y) @ws X315 @bw ( |) @ws 64.8 572 @m 63.6 @bw ( |) @ws 352.8 @bw ( |) @ws 64.8 565 @m X25.8 @bw ( USARGS) @ws 12.6 @bw ( |) @ws 8.4 @bw ( N) @ws 4.2 @bw ( Y) @ws X12.6 @bw ( Y) @ws 315 @bw ( |) @ws 64.8 558 @m 63.6 @bw ( |) @ws X352.8 @bw ( |) @ws 64.8 551 @m 25.8 @bw ( USCALL) @ws 12.6 @bw ( |) @ws X8.4 @bw ( N) @ws 4.2 @bw ( Y) @ws 12.6 @bw ( Y) @ws 315 @bw ( |) @ws X64.8 544 @m 63.6 @bw ( |) @ws 352.8 @bw ( |) @ws 64.8 537 @m 25.8 @bw ( ACCME) X@ws @bw40 (T) @ws 12.6 @bw ( |) @ws 25.2 @bw ( Y) @ws 4.2 @bw ( Y) @ws X12.6 @bw ( Y) @ws 4.2 @bw ( Y) @ws 12.6 @bw ( Y) @ws 273 @bw ( |) @ws X64.8 530 @m 63.6 @bw ( |) @ws 352.8 @bw ( |) @ws 64.8 523 @m 25.8 @bw ( SUBTR) X@ws @bw40 (E) @ws 12.6 @bw ( |) @ws 50.4 @bw ( Y) @ws 298.2 @bw ( |) @ws X64.8 516 @m 63.6 @bw ( |) @ws 352.8 @bw ( |) @ws 64.8 509 @m 63.6 @bw ( +\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261+) @ws 64.8 485 @m 10 @f11 21.6 @bw ( ) @ws 10 @f12 X@bw40 (Figure) @ws 5 @bw ( 7) @ws 10 @f11 @bw40 (:) @ws 24.8 @bw ( The) @ws X5 @bw ( COMMON block table for the FLOW program.) @ws 64.8 461 @m 86.4 @bw ( I) X@ws @bw40 (n) @ws 5.712 @bw ( the COMMON block table, the routine names appea) X@ws @bw40 (r along) @ws 5.713 @bw ( the top of the) @ws 64.8 449 @m X86.4 @bw ( table,) @ws 7.28 @bw ( and the COMMON block names down the side.) X@ws 12.28 @bw ( If) @ws 7.28 @bw ( the COMMON) @ws 64.8 437 @m 86.4 @bw ( bl) X@ws @bw40 (ock) @ws 5.8 @bw ( is declared in a) @ws 5.801 @bw ( routine, and) X@ws @bw40 ( at least one variable used in that routine,) @ws 64.8 425 @m X86.4 @bw ( then) @ws 5.873 @bw ( a "Y" appears in the corresponding) @ws X5.874 @bw ( row and column of the table.) @ws 10.874 @bw ( If) @ws X5.874 @bw ( a) @ws 64.8 413 @m 86.4 @bw ( COMMON) @ws 5 @bw ( block is declar) X@ws @bw40 (ed but not used in a routine, then an "N" appears.) @ws 64.8 353 @m X12 @f13 @bw40 (4.1) @ws 6 @bw ( FLOW on CERNVM) @ws 64.8 329 @m 10 @f11 X@bw40 (Type) @ws 5.32 @bw ( "FLOW" to activate the program in full screen mod) X@ws @bw40 (e, or "FLOW \( options" for line\261mode.) @ws 10.32 @bw ( The) @ws X64.8 317 @m @bw40 (FLOW) @ws 5 @bw ( panel is shown overleaf.) @ws X67.9 702.5 @m 447.4 1 @hr 67.9 702.5 @m 308 1 @vr 514.3 702.5 @m 308 1 @vr X67.9 395.5 @m 447.4 1 @hr Xshowpage pageobj restore X%%Page: ? 16 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 329.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 14) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 648 @m 9 @f1 21.6 @bw ( ====>) @ws 5.4 @bw ( FLOW VERSION 1.00 <====) X@ws @bw40 (=====> Analyse Fortran Code <======>) @ws 64.8 624 @m 27 @bw ( Fill) X@ws 5.4 @bw ( in the blank field\(s\) as required.) @ws 64.8 600 @m 27 @bw ( ) X@ws @bw40 (Input) @ws 5.4 @bw ( for FLOW) @ws 64.8 588 @m 59.4 @bw ( Binary) X@ws 5.4 @bw ( file from FLOPPY) @ws 59.4 @bw ( ==>) @ws 64.8 576 @m X37.8 @bw ( or) @ws 10.8 @bw ( DAF) @ws 5.4 @bw ( from previous run of FLOW) X@ws 27 @bw ( ==>) @ws 64.8 552 @m @bw40 ( Output) @ws 5.4 @bw ( DAF file) @ws X 135 @bw ( ==>) @ws 64.8 528 @m 27 @bw ( Interactively) @ws 5.4 @bw ( explore) X@ws @bw40 ( the calling tree) @ws 10.8 @bw ( ==>) @ws 64.8 504 @m 27 @bw ( St) X@ws @bw40 (ructure) @ws 10.8 @bw ( Chart) @ws 64.8 492 @m 64.8 @bw ( Node) @ws X 5.4 @bw ( name at top of chart) @ws 43.2 @bw ( ==>) @ws 64.8 480 @m X70.2 @bw ( \(Default) @ws 5.4 @bw ( is main program\)) @ws 64.8 468 @m X64.8 @bw ( File) @ws 5.4 @bw ( for text chart) @ws 75.6 @bw ( ==>) @ws X64.8 456 @m 64.8 @bw ( File) @ws 5.4 @bw ( for graphical chart) @ws X48.6 @bw ( ==>) @ws 64.8 444 @m 113.4 @bw ( PostScript) @ws 5.4 @bw ( ?) @ws X64.8 @bw ( ==>) @ws 64.8 432 @m 113.4 @bw ( Optimize) @ws 5.4 @bw ( chart ?) X@ws 43.2 @bw ( ==>) @ws 64.8 420 @m 64.8 @bw ( Include) @ws 5.4 @bw ( EXTERN) X@ws @bw40 (ALs in chart ?) @ws 27 @bw ( ==>) @ws 64.8 396 @m @bw40 ( COMMON) X@ws 5.4 @bw ( block table file) @ws 91.8 @bw ( ==>) @ws 64.8 372 @m X21.6 @bw ( PF1:) @ws 5.4 @bw ( Help) @ws 16.2 @bw ( PF2:) @ws 5.4 @bw ( Ent) X@ws @bw40 (er) @ws 10.8 @bw ( a CMS Command) @ws 27 @bw ( PF3:) @ws X5.4 @bw ( Exit) @ws 64.8 348 @m 10 @f11 21.6 @bw ( ) @ws 10 @f12 @bw40 (Figure) X@ws 5 @bw ( 8) @ws 10 @f11 @bw40 (:) @ws 24.8 @bw ( The) @ws 5 @bw ( FLOW p) X@ws @bw40 (anel) @ws 64.8 288 @m @bw40 (The format of the line\261mode FLOW co) X@ws @bw40 (mmand is shown below:) @ws 64.8 264 @m 9 @f1 36 @bw ( +\261\261\261) X@ws @bw40 (\261\261\261\261\261+\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261+) @ws X64.8 252 @m @bw40 ( |) @ws 5.4 @bw ( FLOW) @ws 16.2 @bw ( |) @ws 5.4 @bw ( ) X@ws @bw40 ([ ? ] [\( Options ]]) @ws 199.8 @bw ( |) @ws 64.8 240 @m 36 @bw ( ) X@ws @bw40 (|) @ws 43.2 @bw ( |) @ws 5.4 @bw ( Options:) @ws 259.2 @bw ( |) X@ws 64.8 228 @m 36 @bw ( |) @ws 43.2 @bw ( |) @ws 5.4 @bw ( [INTREE) @ws X64.8 @bw ( fn) @ws 5.4 @bw ( {ft {fm}}]) @ws 129.6 @bw ( |) @ws 64.8 216 @m X36 @bw ( |) @ws 43.2 @bw ( |) @ws 5.4 @bw ( [INDAF) @ws 70.2 @bw ( fn) @ws X5.4 @bw ( {ft {fm}}]) @ws 129.6 @bw ( |) @ws 64.8 204 @m 36 @bw ( |) @ws X43.2 @bw ( |) @ws 5.4 @bw ( [OUTDAF) @ws 64.8 @bw ( fn) @ws 5.4 @bw ( {ft {) X@ws @bw40 (fm}}]) @ws 129.6 @bw ( |) @ws 64.8 192 @m 36 @bw ( |) @ws X43.2 @bw ( |) @ws 5.4 @bw ( [QUERY]) @ws 264.6 @bw ( |) @ws 64.8 180 @m X36 @bw ( |) @ws 43.2 @bw ( |) @ws 5.4 @bw ( [STRUCTURE_CHART) @ws X16.2 @bw ( fn) @ws 5.4 @bw ( {ft {fm}}]) @ws 129.6 @bw ( |) @ws 64.8 168 @m X36 @bw ( |) @ws 43.2 @bw ( |) @ws 5.4 @bw ( [GRAPHICS) @ws 54 @bw ( fn) @ws X5.4 @bw ( {ft {fm}}]) @ws 129.6 @bw ( |) @ws 64.8 156 @m 36 @bw ( |) @ws X43.2 @bw ( |) @ws 5.4 @bw ( [POSTSCRIPT]) @ws 237.6 @bw ( |) @ws 64.8 144 @m X36 @bw ( |) @ws 43.2 @bw ( |) @ws 5.4 @bw ( [OPTIMIZE]) @ws 248.4 @bw ( |) X@ws 64.8 132 @m 36 @bw ( |) @ws 43.2 @bw ( |) @ws 5.4 @bw ( [COMMON_TABLE) X@ws 32.4 @bw ( fn) @ws 5.4 @bw ( {ft {fm}}]) @ws 129.6 @bw ( |) @ws X64.8 120 @m 36 @bw ( +\261\261\261\261\261\261\261\261+\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261\261) X@ws @bw40 (\261\261\261\261+) @ws 67.9 702.5 @m 447.4 1 @hr 67.9 702.5 @m X373 1 @vr 514.3 702.5 @m 373 1 @vr 67.9 330.5 @m 447.4 1 @hr Xshowpage pageobj restore X%%Page: ? 17 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 329.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 15) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 696 @m 12 @f13 @bw40 (4.2) @ws 6 @bw ( FLOW on VXCERN) @ws X64.8 672 @m 10 @f11 @bw40 (The) @ws 5 @bw ( FLOW command is invoked by:) @ws X64.8 648 @m 9 @f1 @bw40 (FLOW) @ws 10.8 @bw ( /qualifier [/qualifiers]) @ws X64.8 624 @m 10 @f11 @bw40 (Where) @ws 5 @bw ( the 'filename' is the file prod) X@ws @bw40 (uced by FLOPPY when the /TREE qualifier is used.) @ws 64.8 588 @m X12 @f13 @bw40 (4.3) @ws 6 @bw ( Examples of FLOW commands on VXCERN) @ws X64.8 564 @m 10 @f11 @bw40 (Create) @ws 5 @bw ( a structure chart called STRUC) X@ws @bw40 (TURE.CHT showing the calling sequence in myfile.FOR:) @ws X64.8 540 @m 9 @f1 @bw40 ($) @ws 5.4 @bw ( FLOW /INTREE=myfile.FLOPTRE /STRUCT) X@ws @bw40 (URE=STRUCTURE.CHT) @ws 64.8 516 @m 10 @f11 @bw40 (Write) @ws X5 @bw ( a DAF to be used in subsequent FLOW runs:) @ws 64.8 492 @m 9 @f1 X@bw40 ($) @ws 5.4 @bw ( FLOW /INTREE=myfile.FLOPTRE /OUTDAF=myfile.DAF) @ws X64.8 468 @m 10 @f11 @bw40 (Use) @ws 5.249 @bw ( a DAF and create a structure ) X@ws @bw40 (chart, ignoring all external) @ws 5.25 @bw ( procedure names \(lik) X@ws @bw40 (e VZERO, SIN, etc\)) @ws 64.8 456 @m @bw40 (and) @ws 5 @bw ( start) X@ws @bw40 ( the chart at subroutine INIJOB:) @ws 64.8 432 @m 9 @f1 @bw40 ($) X@ws 5.4 @bw ( FLOW /INDAF=myfile.DAF /STRUC /NOEXT /NODE=INIJOB) @ws X64.8 408 @m 10 @f11 @bw40 (Use) @ws 5 @bw ( the same DAF, and enter the inter) X@ws @bw40 (active exploration facility of FLOW) @ws 64.8 384 @m 9 @f1 X@bw40 ($) @ws 5.4 @bw ( FLOW /INDAF=myfile.DAF /QUERY) @ws 64.8 336 @m 12 @f11 X199.47 @bw ( ) @ws 12 @f13 @bw40 (Chapter) @ws 6 @bw ( 5) @ws 64.8 312 @m X10 @f11 100.788 @bw ( ) @ws 12 @f13 @bw40 (The) @ws 6 @bw ( meaning of the FL) X@ws @bw40 (OW Qualifiers/Options) @ws 64.8 276 @m 10 @f11 @bw40 (The) @ws X5 @bw ( meaning of the options is described below:) @ws 64.8 252 @m 10 @f111 X@bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 @bw40 (INTREE) @ws X64.8 228 @m 10 @f11 28.8 @bw ( Specifies) @ws 5 @bw ( the name of a binary fi) X@ws @bw40 (le produced using the TREE option in FLOPPY.) @ws 64.8 204 @m X10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 @bw40 (INDAF) @ws X64.8 180 @m 10 @f11 28.8 @bw ( Specifies) @ws 6.415 @bw ( the name of a Direc) X@ws @bw40 (t Access) @ws 6.416 @bw ( File produced on a previous run of FLOW ) X@ws @bw40 (using the) @ws 64.8 168 @m 28.8 @bw ( OUTDAF) @ws 5 @bw ( option.) X@ws 10 @bw ( The) @ws 5 @bw ( use of a DAF as input to FLOW is recommended f) X@ws @bw40 (or speed.) @ws 64.8 144 @m 10 @f111 @bw40 (\247) @ws 10 @f11 X21.27 @bw ( ) @ws 10 @f12 @bw40 (OUTDAF) @ws 64.8 120 @m 10 @f11 28.8 @bw ( Sp) X@ws @bw40 (ecifies) @ws 6.824 @bw ( the name of a Direct) @ws 6.825 @bw ( Ac) X@ws @bw40 (cess File to be written containing the ADAMO tables. If) @ws X64.8 108 @m 28.8 @bw ( FLOW) @ws 5.597 @bw ( is to be run several times for t) X@ws @bw40 (he) @ws 5.598 @bw ( same FORTRAN program, then writing a DAF using) X@ws 64.8 96 @m 28.8 @bw ( OUTDAF) @ws 5 @bw ( and then reading it using INDAF) X@ws @bw40 ( on subsequent runs is recommended for speed.) @ws 64.8 72 @m X10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 @bw40 (QUERY) @ws X64.8 48 @m 10 @f11 28.8 @bw ( Enter) @ws 5.302 @bw ( the interactive explorat) X@ws @bw40 (ion facility of FLOW !) @ws 10.302 @bw ( You) @ws 5.303 @bw ( wil) X@ws @bw40 (l be shown the full list of module) @ws 64.8 36 @m 28.8 @bw ( names) X@ws 6.691 @bw ( in the source, and can then specify one of them to see which ) X@ws @bw40 (modules) @ws 6.692 @bw ( it calls, and) @ws 64.8 24 @m 28.8 @bw ( ) X@ws @bw40 (which) @ws 5 @bw ( modules call it. In this way you can move freel) X@ws @bw40 (y around the tree.) @ws Xshowpage pageobj restore X%%Page: ? 18 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 329.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 16) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 696 @m 10 @f111 @bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 X@bw40 (STRUCTURE) @ws 10 @f11 @bw40 (_) @ws 10 @f12 @bw40 (CHART) @ws X64.8 672 @m 10 @f11 28.8 @bw ( Specifies) @ws 6.305 @bw ( that a text file be) X@ws @bw40 ( written containing the calling tree) @ws 6.306 @bw ( of the sourc) X@ws @bw40 (e FORTRAN. The) @ws 64.8 660 @m 28.8 @bw ( tree) @ws 5.773 @bw ( s) X@ws @bw40 (hows modules local to) @ws 5.774 @bw ( the code and external, and ) X@ws @bw40 (indicates whether they appear in IF or) @ws 64.8 648 @m 28.8 @bw ( ) X@ws @bw40 (DO) @ws 5.889 @bw ( clauses. Stub modules \(no calls\), external m) X@ws @bw40 (odules \(not local\), multiply\261called) @ws 5.89 @bw ( modules a) X@ws @bw40 (nd) @ws 64.8 636 @m 28.8 @bw ( sub\261trees) @ws 6.337 @bw ( are a) X@ws @bw40 (ll clearly indicated.) @ws 6.338 @bw ( If the FORTRAN source conta) X@ws @bw40 (ined lines after each module) @ws 64.8 624 @m 28.8 @bw ( declaratio) X@ws @bw40 (n) @ws 5 @bw ( of the form:) @ws 64.8 600 @m 9 @f1 64.8 @bw ( C!) X@ws 5.4 @bw ( This is a short comment) @ws 64.8 576 @m 10 @f11 28.8 @bw ( the) X@ws @bw40 (n) @ws 5 @bw ( these comments are shown against each module name i) X@ws @bw40 (n the tree.) @ws 64.8 552 @m 10 @f111 @bw40 (\247) @ws 10 @f11 X21.27 @bw ( ) @ws 10 @f12 @bw40 (GRAPHICS) @ws 64.8 528 @m 10 @f11 28.8 @bw ( ) X@ws @bw40 (!) @ws 5.929 @bw ( PRELIMINARY OPTION !) @ws 10.929 @bw ( Specifi) X@ws @bw40 (es) @ws 5.929 @bw ( that a graphics metafile \(either GKS) @ws X5.93 @bw ( or PostScript\) be) @ws 64.8 516 @m 28.8 @bw ( written,) @ws X8.622 @bw ( which, when interpreted, will show the) @ws 8.623 @bw ( SASD\261l) X@ws @bw40 (ike structure chart of the source) @ws 64.8 504 @m 28.8 @bw ( FORTR) X@ws @bw40 (AN.) @ws 6.097 @bw ( It is) @ws 6.098 @bw ( recommended NOT to as) X@ws @bw40 (k for EXTERNALS with this option. An attempt is) @ws 64.8 492 @m X28.8 @bw ( made) @ws 6.476 @bw ( \(with the OPTIMIZE qualifier, see below\) t) X@ws @bw40 (o optimize) @ws 6.477 @bw ( the positions of modules on the) @ws X64.8 480 @m 28.8 @bw ( page,) @ws 5 @bw ( in order to minimise line crossings) X@ws @bw40 ( etc.. But this is often unsuccessful!) @ws 64.8 456 @m 10 @f111 X@bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 @bw40 (OPTIMIZE) @ws X64.8 432 @m 10 @f11 28.8 @bw ( Specifies) @ws 7.533 @bw ( that module positio) X@ws @bw40 (ns be optimized in the graphics) @ws 7.534 @bw ( structure chart. ) X@ws @bw40 (Otherwise, the) @ws 64.8 420 @m 28.8 @bw ( modules) @ws 5 @bw ( ar) X@ws @bw40 (e placed on the page in the 'order' in which they appear in the sou) X@ws @bw40 (rce FORTRAN.) @ws 64.8 396 @m 10 @f111 @bw40 (\247) @ws 10 @f11 X21.27 @bw ( ) @ws 10 @f12 @bw40 (NODE) @ws 64.8 372 @m 10 @f11 28.8 @bw ( Spec) X@ws @bw40 (ifies) @ws 5.321 @bw ( the top node in either the text or graphics) X@ws @bw40 ( structure chart. This) @ws 5.322 @bw ( is useful for restricting) X@ws 64.8 360 @m 28.8 @bw ( the) @ws 7.052 @bw ( output to) @ws 7.053 @bw ( a) X@ws @bw40 ( particular sub\261tree of interest. The value nodename must be a P) X@ws @bw40 (ROGRAM,) @ws 64.8 348 @m 28.8 @bw ( SUBROUTINE) @ws 5 @bw ( or FUN) X@ws @bw40 (CTION name in the source FORTRAN.) @ws 64.8 324 @m 10 @f111 X@bw40 (\247) @ws 10 @f11 21.27 @bw ( ) @ws 10 @f12 @bw40 (EXTERNALS) @ws X64.8 300 @m 10 @f11 28.8 @bw ( Specifies) @ws 6.583 @bw ( that modules extern) X@ws @bw40 (al to the source FORTRAN \(e.g.) @ws 6.584 @bw ( SIN, COS, UCOPY, ) X@ws @bw40 (HBOOK1) @ws 64.8 288 @m 28.8 @bw ( etc.\)) @ws 5 @bw ( be shown in) X@ws @bw40 ( the tree.) @ws 64.8 264 @m 10 @f111 @bw40 (\247) @ws 10 @f11 X21.27 @bw ( ) @ws 10 @f12 @bw40 (COMMON) @ws 10 @f11 @bw40 (_) @ws 10 @f12 X@bw40 (TABLE) @ws 64.8 240 @m 10 @f11 28.8 @bw ( Specifies) @ws 5.841 @bw ( t) X@ws @bw40 (hat a table be written containing, on the y\261axis the) @ws X5.842 @bw ( names of all COMMON blocks,) @ws 64.8 228 @m 28.8 @bw ( and) @ws X5.65 @bw ( on the x\261axis all the module) @ws 5.651 @bw ( names, contained ) X@ws @bw40 (in the source FORTRAN. At each place in) @ws 64.8 216 @m X28.8 @bw ( the) @ws 6.466 @bw ( table a) @ws 6.467 @bw ( 'Y' indicates that ) X@ws @bw40 (the COMMON block appears in that module, and at least one) @ws X64.8 204 @m 28.8 @bw ( variable) @ws 5.138 @bw ( from it is used in the modul) X@ws @bw40 (e, a 'N' indicates that the COMMON) @ws 5.139 @bw ( block is decla) X@ws @bw40 (red but) @ws 64.8 192 @m 28.8 @bw ( not) @ws 5 @bw ( used, and a b) X@ws @bw40 (lank indicates that the COMMON block is not declared in that module) X@ws @bw40 (.) @ws 64.8 144 @m 12 @f11 199.47 @bw ( ) @ws 12 @f13 @bw40 (Chapte) X@ws @bw40 (r) @ws 6 @bw ( 6) @ws 64.8 120 @m 10 @f11 157.458 @bw ( ) @ws X12 @f13 @bw40 (Problems) @ws 6 @bw ( and Installation) @ws 64.8 84 @m 10 @f11 X@bw40 (If) @ws 5.475 @bw ( you have problems using FLOPPY or FLOW, or if you ) X@ws @bw40 (discover bugs,) @ws 5.476 @bw ( then you should contact the) @ws X64.8 72 @m @bw40 (author:) @ws 64.8 48 @m 10 @f111 @bw40 (\247) @ws 10 @f11 X21.27 @bw ( user) @ws 5 @bw ( JULIAN on CERNVM, or) @ws 64.8 36 @m 10 @f111 X@bw40 (\247) @ws 10 @f11 21.27 @bw ( user) @ws 5 @bw ( JULIAN on VXCERN.) @ws Xshowpage pageobj restore X%%Page: ? 19 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 329.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 17) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 696 @m @bw40 (If) @ws 8.184 @bw ( you want to install FLOPPY) @ws X8.185 @bw ( locally at your institution you should also contact the author,) X@ws 64.8 684 @m @bw40 (specifying:) @ws 64.8 660 @m @bw40 (1.) @ws X35.7 @bw ( Whether) @ws 5 @bw ( you have a VAX operating VMS.) @ws 64.8 648 @m X@bw40 (2.) @ws 35.7 @bw ( Whether) @ws 5 @bw ( you have an IBM operating VM/) X@ws @bw40 (CMS, and whether you have the IOS3270 facility.) @ws 64.8 636 @m X@bw40 (3.) @ws 35.7 @bw ( Whether) @ws 5 @bw ( you have GKS.) @ws Xshowpage pageobj restore X%%Page: ? 20 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 329.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 18) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 696 @m 179.802 @bw ( ) @ws 12 @f13 @bw40 (Acknowledgments) @ws X64.8 660 @m 10 @f11 @bw40 (I) @ws 5.145 @bw ( wish to thank Hans) @ws X5.146 @bw ( Grote for his help with implementing FLOPPY on top of FLOP.) @ws X10.146 @bw ( I) @ws 5.146 @bw ( also wish to) @ws 64.8 648 @m @bw40 (thank) X@ws 7.417 @bw ( Juergen Knobloch and Mike) @ws 7.418 @bw ( Metcalf for many ) X@ws @bw40 (helpful suggestions for improvements to the) @ws 64.8 636 @m X@bw40 (original) @ws 5 @bw ( version of FLOPPY.) @ws 64.8 612 @m @bw40 (I) @ws X 5.966 @bw ( am indebted to Paolo Palazzi and Steve Fisher for) @ws X5.967 @bw ( their help and advice on the implementation of) @ws 64.8 600 @m X@bw40 (the) @ws 5 @bw ( FLOW program.) @ws 10 @bw ( The) @ws 5 @bw ( ADAMO ) X@ws @bw40 (package \(TAP and the tools\) made this possible.) @ws Xshowpage pageobj restore X%%Page: ? 21 X X/pageobj save def() pop X64.8 744 @m 10 @f11 @bw40 (FLOPPY) @ws 5 @bw ( User Guide) @ws 329.17 @bw ( ) X@ws @bw40 (page) @ws 5 @bw ( 19) @ws 64.8 732 @m 10 @f111 @bw40 (\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276\276) X@ws @bw40 (\276\276\276\276\276\276\276\276\276\276) @ws 10 @f11 3.6 @bw ( ) X@ws 64.8 696 @m 212.13 @bw ( ) @ws 12 @f13 @bw40 (Index) @ws 64.8 660 @m X10 @f11 @bw40 (ALEPH) @ws 5 @bw ( ... 4, 9) @ws 302.4 660 @m @bw40 (VXCRNA ..) X@ws @bw40 (. 5) @ws 64.8 648 @m @bw40 (ANSI ... 1) @ws 302.4 648 @m X@bw40 (VXCRNB ... 5) @ws 64.8 624 @m @bw40 (CERNVM ... 6) @ws 302.4 624 @m X@bw40 (Warnings ... 2) @ws 64.8 612 @m @bw40 (Checks ... 3) @ws 302.4 612 @m X@bw40 (Wild cards ... 5) @ws 64.8 600 @m @bw40 (Coding Conventions ... 3) @ws X64.8 588 @m @bw40 (Coding Conventions : standard and other) @ws 64.8 576 @m X28.8 @bw ( sets) @ws 5 @bw ( ... 4) @ws 64.8 564 @m @bw40 (COMMON blocks ... ) X@ws @bw40 (1) @ws 64.8 540 @m @bw40 (DO loop ... 9) @ws 64.8 528 @m X@bw40 (DO statement ... 4) @ws 64.8 504 @m @bw40 (Examples of FLOPPY commands ) X@ws @bw40 (\(VAX\) ... 5) @ws 64.8 480 @m @bw40 (FLOP ... 1, 4) @ws 64.8 468 @m X@bw40 (FLOPPY headers ... 2) @ws 64.8 456 @m @bw40 (FORMAT labels ... 4) @ws X64.8 444 @m @bw40 (FORMAT statement ... 4) @ws 64.8 432 @m @bw40 (Fortran ... ) X@ws @bw40 (1, 4) @ws 64.8 420 @m @bw40 (Full screen version \(VM\) ... 6) @ws X64.8 396 @m @bw40 (GALEPH ... 4, 9) @ws 64.8 384 @m @bw40 (GOTO statement ... ) X@ws @bw40 (4, 9) @ws 64.8 360 @m @bw40 (HISTORIAN ... 1, 5) @ws 64.8 336 @m X@bw40 (IBM ... 6) @ws 64.8 324 @m @bw40 (IF statement ... 9) @ws 64.8 312 @m X@bw40 (Ignore file ... 9) @ws 64.8 300 @m @bw40 (Ignore subroutines ... 3) @ws X64.8 288 @m @bw40 (Ignore variables ... 3) @ws 64.8 276 @m @bw40 (INCLUDE stat) X@ws @bw40 (ement ... 1, 5) @ws 64.8 264 @m @bw40 (IOS3270 ... 6) @ws X64.8 240 @m @bw40 (Line mode version \(VM\) ... 6) @ws 64.8 228 @m @bw40 (List) X@ws @bw40 ( of Checks ... 3) @ws 64.8 204 @m @bw40 (man page ... 7) @ws X64.8 180 @m @bw40 (Priam ... 7) @ws 64.8 156 @m @bw40 (Rules ... 3) @ws X64.8 132 @m @bw40 (STANDARD ... 9) @ws 64.8 120 @m @bw40 (Statement labels ...) X@ws @bw40 ( 4) @ws 64.8 96 @m @bw40 (Tidy ... 4) @ws 64.8 84 @m @bw40 (TIDY op) X@ws @bw40 (tion ... 9) @ws 64.8 60 @m @bw40 (Ultrix ... 7) @ws 64.8 48 @m X@bw40 (Unix ... 7) @ws 64.8 24 @m @bw40 (VAX ... 5) @ws 64.8 12 @m @bw40 (VXCE) X@ws @bw40 (RN ... 5) @ws Xshowpage pageobj restore X%%Trailer X Xjobobj restore X%%Pages: 21 X X%%BoundingBox: 0 0 612000 792000 X / echo 'Part 01 of Floppy complete.' exit