Path: utzoo!utgpu!watserv1!watmath!att!rutgers!cs.utexas.edu!uunet!mcsun!inria!mirsa!thalie.inria.fr!maman From: maman@thalie.inria.fr (Nathan Maman) Newsgroups: comp.lang.fortran Subject: Re: FORTRAN Prettyprinter? Keywords: FORTRAN, printing, formatting Message-ID: <8824@mirsa.inria.fr> Date: 17 Oct 90 09:29:45 GMT References: <8800@mirsa.inria.fr> Sender: news@mirsa.inria.fr Reply-To: maman@cosinus.inria.fr Organization: INRIA Sophia Antipolis Lines: 196 Oops !! I forgot that my Fpr contains control chars. Thanks to Brian Fitzgerald who pointed it out. So this is the uuencode version : begin 755 Fpr.Z M'YV0(T*\$)/&S8LU<]`H&`&BA\.'$"-*G$BQHL6+$$&,6`@"A)$D0Y`D*2*E MXXLZ+\:\F5.PSIP7,%[,J>-FALR6+^O02WH74VFC!C0HX>L+N.& M3AGCLU>[^1U&3H\;,!0LIQ-&3(\9"M[`*>/\1(L5*EZ<4$"TQPG==,83U4ZG MAX(Y:]+@%F&T=!@S9@HJ2+`Z?^PYHZTF!@P]@"%&&',0!U<9()```Q@*I&$& M"%LTR%`+9<0!`@P@=*'`6L0IT%%'<5E%PH`@\,$'"%R(..)I:+P!0@M6B=!B M%5,$<401.AAU(H?LI5'5'"#X5\8<"A!1Q!1+)0'%4U'U:,8;6;+8!`ISYR0DF M:&T0-P:#<#0'@GB5'GNR2`;)P19E0(MA"JJ MJ#J,:NJIJ*:JZJJ@@F:9FC/=YE>@(/Q7:QIGN'&DIB``2AQU:42*Y`HJ%?>J M::BE,5AO1+*!JZY$PO%&'7+TVMIKL54;F[5MP$'=&0PR"X)VW*DEI!O#JD03 M'<>"YNVFNY(KA[E#*D#L;<>&<5L9;&R[+5%EK#?H'`E2JY2B=K0U&!W3+CRO MLF4$6IR]9(QQZ!B)@J"F;O,*QIVD&"M:AZ9BZ*0ID;X6%T:PNZ+0FQEAZ*3F M"23T]EN;)Z1@[Z_'E7'LHUGJ:EIQ/2O:*UMQU,%@GUYR!VJ_A^)QPK$G2&W: M'(-MFZ<8D8(0%QYIM%&'GG!R'(;'PH)0J+;/,NAR&3#+W.!R'.N\`E'Y[LO& MH40E&O.M98P,)\U]FS98K-(FA88#+*PXPX&&##:!25UK5B:KYZ)@G@V!Y M'6S0BRZOC+IQAM(&XP'"VW'3H28)TU6GCDW%" MV``3?*ZF:H2AMK`\[Y<`ZS&[?B@)ZWF;LP)%X!$Q'+&]CJ*1,;A@AE$),#1E ME6IAR5*WL4E,QWX-HMC"C$;*(/Z,8EBU`L_&E3_TFF/CSANH4YQ:[*$P$) M8B`"$.C'*"T`30H2`*C1D($^"=C!#IQ'K-;,L%BN@8UL1(!#'?)07<5)`0C@ M(Y_1\,#PP]N,Y@7.$D-*;E/$'4JQ8C.T&7#`4`8\9(4$,M#8H;B` M`A=P(04N4,$)($2^A$B(75#T8@+V1S3CI(!_0^RB\UK0KQG2K3FC0>-JZN@E M,^`QAWIL@;QF*"_S3"V//"3*#,MS@KXY+P'5:X]W)M2".T!N1FR8W(S0``(1 M&($G9=`!"=(@@A-$,0$ML)PAQ6"Y'J!Q!TML)!UNV8(9VM&1GSQ3(L_4(!9" M,)@@2H$P5,G.%V/3BDL\"O0G+.:P& M:\Y1H1C;%#\8](=*+G2AB52@@!*ZJ",2&E&%6C`A%:9!?"WTT`1!9!4C^?*@ M9OBG:9PUH8$6=)8N0$-")#0(".E2*() M(L.,A+8:ADRA#K(Z$DNJTCD$0FMYIRE#;T+SJUY%:E=KJY7R!"94:I5A/R_P MPA;&,(0N;.$-3[!J&YI@53A`P:ITH()5L=K5KVZA#$6PJARDT(47[`FJ4J5J M%TI`H>^$IT,J\($/M@"#%N0`KR1P*QDX##YV MJP3N9[E[G#?8!/3!N=!=7*^:H[XZ0`RNO-V"%SKT@NP:!0G:==Y+N&"5 M":J7O2\X0WQ]!((0=/>["=@N0YY[I,%H*67`BA1<[]O7'+05!.[]+0A>P(4` MY%>^+TCN`BYL%#AP=S_?94AF0;!9[G76<]-JUJY`*UK2)I6VBKWM;W7+7)/H M5\16Z8UQ/&9`E+&E($>"Z@G:BV$O4+A%$\9P8+G0(M\"6$V1\N=OO%.\N(C6MQL= MK=\_&\0$O.6""3@\7S?0-^0C9RZ'/9P`$D!XO[I=KWW7^^`0L!S`+>0#3(4Z M4P;5%`1VZA6#K%+@-=W)*@A>6=?<<'0&=6EE0FL!:9L0!"7@:`A58,*2%KS> MA;LU!.Z-*LJ'W-\\O*`Z8WC9&;RDAC6PH0UL@D,(-HA M*,D(1Q")$I;`A"8XX0E0B((4ID"%*ECA"EC(@A:` MP@>H_194T%8N($#X+R@^`VJO80Z'^&!%#YU6J)O:ZT9XNT;Y+WB+3A.GDY=! M,SEOS--+\ULG`+Y&P;['R8_?SJO?Y?X%\7X$#'VLN3;I+./ZAHKKU@BS/`': M]Q*!E63S96A>$`0MH`5AT`)ZT&!?H'`8YW`0Z&##-7%=4&@)]T;ZM@*-=F$% MJ%X(J(`,Z(`7F`)5]G`)EW`9IUPPT('Z]8$'F(`+V(!^]8`J*($W:(%;\!TE M"`/'96@+IX%;QG'O06$&&((S2((WB((+AV@69U4\Z(-M%H2W1V=$"(-(.((U M.(&=QH08]T9/R(%`6%PWZ`54J&]%P`4&X()%V&992(,Y8(--B(--"(86V`)5 M5G%S:(;%)80QD(8'P(98*(-:&(<]^(,W6'%>2(%;$`-]F`)2:(!G.(1<8!,O M:(0@2(AP^(!O%(F)2(8/UXF(R(<.YH>-5HD>Z%:6A5L1-WS)]T;"I6\DYU:( MF'Q;\(I*%![*-6$=-UDJP`*Q"(RSB`*Q2(RS2%FRMSK'&$UN96N]:'N4!8VS M6&5O2(*P*%RRIURR]XRMR(.P>%>[N(QLU`/?J&^\^&6U\@;:47!'\`3"107N MB&C!9H`D4$DHD`)Q5H5<0`"G6`"/9H1#$`1,P`24M04A:%4A2((J(&DI,(_J M58_;X1SWF(_ZMH_]Z%MJDE@%P7(%2(_VJ$0,UXI>`)'^%55X289ZJ0)7T)=;V95JZ9,8!HS!6&&^)6':%!Y*1'EWJ9>+28%,$01$ M()G%F)DO89GAP0*8&9>;*8UV*78J,`1/T`1-$!6!Z0*T:9M1$8LBF7R(YILJ MH)NU>9M.((L'UW%B%T=$X!1!T'_RY0+-&5J_R7!W-9S3&02?%P,OX`),&97" M!9[>&9UNQ0)1:9[?*9QMUGK6V9VR.)X$]YD+%T%>^Z*5@JIACJ@)$\`2!N5N( M:%GSA@:G+QP4O,(V7-F282GO;6&:Y!Z:0)EQ#=@*H MNA\LYW+7YSQB-W/LU5\WMQ\YMW,R12.2PA%4\##&X3X]U38H4Q6#(@>64D#_ M$BE,13"!(P=P-0+WU59.:F0CP!"961JGD1KRQQ#%NC+'6E3B@G]ILT#BDEI$ M8@=IP"Q"Z77]%6%1-8!@]TF_%I69.64OP`.D=0+RY!N@44N9"6`)(+`JU29M M4$OC"@)),`9I`(S(XV14!DT!QDD`9S(#I0-06*5ZA_=H0):(U.Z7<7J*,]^T;9 M:(6KJJ!N&+1;^$9^%Z)'VY`5B:52J5M,\`1'T%X_FXE:(+0&2;1LE+5'@+15 MN[1=&X-?^[0I$+4H0+9F.X1H.XAK:XA@&`1B^[9:&P,M2+5RFZ->*[1N2[9\ M&[=*>[4O4`18``5<2[=@F[>*"P6&.Z"`J[:"2P1L%+F3:[4=!V`O,`5^V;B8 M:+ELNP5Y"[I.L+ES.[H)R;9NB[JJ6[FM:[8Z[>'*Y9-6[><6+ML M%`2PJ[N4R[M`Z[LE:+O"B[NQ:[R!R[:VB[I(T+RQ29M3(+J]^[A$4+362[U, M>[R7RT;=2[R[X8[)RI2\#^B[QOI+P3[,".^[X@?&\`R0,&[&YNB=;U[ M\,`DG`))$+Q",`4HS+H07(+M-GA=T,/P^\-![,&_:[K;Z\-`W,+MB[^_Z[8W M[+V>2YC8Z[ZT6\1+<,1L1)A+S,5-G`1&G`2V*\92?+\7_+MH',9_.<943,2D M6;1JS,$C++1P3`5@&`,R0`,XT`5X[,)##(9F_,5([`1WW+^$O,->?,2VJ\AQ MO,8Z++1OC`*2S,>4G,)=7,=LE,E8#%54AP5;/,=WBQ=&S$:C#(8P$`."S,A3 MW,8E&`2/K,I!@`6L[,J#',LO?,J'7+2KO,E"O,.T_,NVC,O"S,0E>,RY_,H5 M')M-$+HYS,E-3)K&C`+1',)\I7,A.:Y^`)# ML"+AR!'9LR`YMBG*DUH4=!HZ41W1&E2]030<$08)`ZW(DAI.13H3W385/087 MG5A.-RWSPM$!1K*&=;*=PS$?&[+F-;(>-WH79E,E*RPRG:X_]E-ETQQG8QS" M@H[P5!`=)["_UF97AFB"]M1S]@(.JV=+Y!I*#=,F&]";8AIV\"M*LS<%<;.# MPBN6$QM_4[.C(WUKLQ,,<@8QTR5/Q1"HI2CX<1K4L1.?DB9V[4C54=!MIJ?R MJ*;&586^-1CWX==BP!%,L"N)C=>B@R1W27,+J0*HYUX\'=-UL* MRT1P4$L25JH=E]E;S5/INB@HW1,.-">2?9=)T`).\&#V@1\OA-H^O=EL35Y? M`@)P70=R763J)=A?&1Z^I=LZQ=5$LC[W4!EE#@*@V%+R(45N+T[N`+N_0+<*98''8$ZR(,J M2-\GL=L.\HC_N&FG`+9G.(.>ES72>()JMR'%=%" MY[%0%R\1&=D83LP_G+2K6Z';[3^%E=H1321CS26[`B=G708QHWY'>9`&F8!? M@&[&Q7>K!RLX-=;M&P0H@`).*)/XJ%XG*8L8=H]#;M6QPN5$WM/+K=H,PC`F M4]9)\Q=$9W^%0B3=-RX[KM>\IJ#JA:^2>A% MOMMPCN1,MQ.+@K,\;A1B-X"WG1]_SA!-@+/AXEK6+3214BR6@K,YJ])%IM!T ME=P@4`3A[53.\W]JDM@O]'S>K1)P\-MD,#(QP@8R-0>%4M9JK6*R=27<817$ MWEG[\8Q>D!>Q6)0W!@*-3232+ME1)>UI:7Y:#@=BH(YL4&0HNJ8&>(]X%:%] M2N[G;NYD#I+!":3P;H+Z2*1JCE/A#AM%QNVR)^VRYYI4@`1%(!5W%?`#_^`& MG[IMY(T@,*=+!%=SVI7`-J=3.H8.IH+EV*)I1/&C^)76>=QN MM8M?F9EJ`J\XOMC?:X!K^HTRJEQ\D)F#H?26XYHR"@)K!Z[A/:XQM]`4TH3"M:A.X59R+ZXC4/Z19M_Z9=5\*'UNA#DDP8M,@(J$/FQ+@>O(0>/[V$CX/@+$?D+R00# MO3<\5486W>17K1;371R/S_E3X1(LJ5I68?@=FOB,;Q1Q,/LA%I]J$JX>#TK[ MD2@Z-T%A<`=K<"A"4`1'X)"2*B);@54 MIE7!L%:$#V!Q"_>A=.::41@"=*4WN`LL(5,,G)]#$H0/Y'2L\@(Q5H?:X`YA M@T'H#,)G]RC:<4@#CT791985TA"^D@CH5BW$O4R0^5<<"DH)<"?`"(W\F_.! M`M+`==@!:8`']``G8`1VP`I8`6D@!?@?OU`$6PD(.((B(`FF@7\#8(8@%Z0# M!86^*,`1`41:0F0!,#S0(;02@!4$_PT11(.M!`PF01FP!*E$$WR"47`*5L$K MF`7WP/*@?P7E"R+!!O$7RN"(N(-IT`VLP8[0!MV`TEB`^R$.^D`06`=QS;<9 M&R!@!7PE*M@"+H@G7")C8S"(0A!`"B^(P@(BV*(,U)([V"!@``MH(7JEE;"` M5L@"IM\M!%C`T`<$0Z5P+80("`B&R-`'3$)K`0$M(8.`@\LE!'PE\P<"3`#( MX8'2L)5PPI=S"B4$"F@YA4$.B@#8A_B*0,YA:,Z#&&G"5I(76H@U;!!4L`>V MDH370F9(BD"'/F*YB$.)1Q_N(8MP'NM0!+2C?J@B_F$^E(.#:@XHCPABX) MEOB`F1AAN(D?=()A,39`P;$(!4,%3:R)'0$23L6JJ`BSXE:$&8+A#6P!4X,) MX6)?C(I=4`0<0;K8%`OC5Q**BJ4H'L6]\4JL@F%LBED1)[8)K_@)14-T,`J. ML",@K.4@LF0#('N)3M`4)H!^`?U>HAE0AS'`(8@`$U`/(\P$\897D#/>M#+@ M`WI`#<@!2D0V0HR>R+ERY7!`CG MP1EQ0Q,L#E]./*Z`&&!K9(`260'ZA`Z@`/'X`NRC"O"/W&\Z(D=BYP/:7W]4 M2KDQ.>(&`VD_G`<'@27$J#WZ@!OPI0QA>]R)(``'`)/TZ`:^$H?T@C6FA2"L M!QD;(J2"'(L5`V-Y&C0>Q2N-3H/AL!T/(*@(E3`J$J2 M0R<@^XP"76-6J+!:[#D;J#U06I/[)$02C4A#(,DOMH!XA#AOD2$,"F57782& MT%`)E.](2`LW(%/RG(^T"G-J2NX),+DE$Q_"4!C`:*SQC`U(*$Z=4(D8[N.3 M`$8\*!AK@$P)@TJ0?$P0TM@O5@#ET)1?T0EB!U#9$4AD&2!&_8('V(`4"356 M80P`)G)11O9%OQ@KCV"A3$.2$!AQ2$DY(DCC9<2,$T5QY$BA0R2@7"Q*(4F60]9RU$@E,Z0.CJ0'B,9N*"H_"<*:('T@6#*(8;DC M>^2RM`IL<,:&1SX@#MLDC926G))<_@6$X"II(XRP"&D2S>) M_5B-%E21XG%6)@`.N1[)1WLT2?0O/G;,^5@?[V-^W(\=LS^F@/\X,P-DXSN- M`Q(.%$CU=R"_5,[L`0RR3)"/BYDS)^3'O)!`44,JBA<9(VN,%T18%K.#G,JB MR2$^9GADD1W!13X+&.E3O.",E(Y&@6BFRE7Y,:\@U("59S`1?DU0DC:GXG'< ME0*3#?2`3EDISL!:0`$<4F<8A9/Y'O4CS(0E*\`^RLQ0^#+_9FQ@F3*39JH` MFYD`B*2$#)H^\V0&3?:H((&F@B0DQ,%NH@&\Z5-FX-ZLG'7S;LZ2+#C['*>" M7`&AP8I))/L% MZS04%1.4((CH61K)!]3LG@0S=5+'+%@;VU^%Y)4`Y33&QN0X&VOC;7R=LY$W M;LM)&0EY"W'4@P-R-NI*GP(_:X7I]FAD:AP- M'I&19E$K^DC]XL9\D[XD.G9#.F`S?$D-<(YHL"#XDAL`2[%&P/`ES7%(/E!6 MZAM6`('H`D)74@EX`S`I".8`N9C&%2G=(`%M%-NVD`19CSUA@,U8&13^BA/&^H4':>Q$I^" MK'R:3HMIHORHI1">E1W^DM+84YUJ-74IOY2ANI-1X1)I:2C82%%U:-J/@]J32T(-U69-M1ORE3K M:4I5A$(5G1I5W_!2/5U,K:MB]:'VTE\J4L\J7\V+3=6GWM-S*E07H4@MJL34 MTR%58;E4(2LJ-:=?;J[ZAJE:5:.JIYNJ6E4K3%6O6D+!93R-,&]5G(+6T)I9 M"P)IM:HB=:K:&MRZ30,&:J6/7A5<=E*CD"8_J0C0CN^0!%!!U4@/WZ=?=*1? M231NRBB*2@_K*8RM%K4=.L<>H$KK:.X,A/$PN4+0T4`/*R9V[0'8U6LR0C09 M"J.K;_R6;+`UN,'ABE:5JQ%@K@+/)(I2@,)=?>/%!*]&8)C.DB-97LOB>4VO MLK*#$M?VJA7>*WUUG!T31;[#Y:HM!2Q&;"4:T;F>0EJX%5O)%&@3Q\%+F`X0 M<`3>@%(#`8\I*AR!_A("6FR+#:YN]2P"S8ZY%J-?&G"+%+2<'L&.<`3M8@QE M`>"4+R;,?U,)+R&`\7WJ)%A)BOER\?*+]*,P&T:WG($G2UDL"Y(M`PEC;U"/ <:K%EV4,Y<0VC@0&0`/S73ZK"4U$`9419;`@%`$:W ` end -- +------------------------------------+-----------------------------------+ | Nathan MAMAN | E-mail : maman@mirsa.inria.fr | | INRIA Centre de Sophia-Antipolis | Phone : (33) 93 65 77 95 | | 2004, Route des Lucioles | Telex : 97 00 50 F | | 06565 Valbonne CEDEX France | Fax : (33) 93 65 77 66 | +------------------------------------+-----------------------------------+