koreth@panarthea.ebay.sun.com (Steven Grimm) (02/08/90)
Submitted-by: t19@nikhefh.nikhef.nl (Geert J v Oldenborgh) Posting-number: Volume 9, Issue 76 Archive-name: f77heap This is a very small, very trivial program to change the runtime heapsize of an Absoft Fortran program without going through f77l or link. A man-file is included. It is public domain. Geert Jan van Oldenborgh t19@nikhef.nl table !"#$%&'()*+,-./0123456789:;<=>? @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ begin 644 heap.zoo M6D]/(#(N,# @07)C:&EV92X: #<I\3]*@ -;___\" $ !W*?$z M_0(!+@( '$ _%!"\V6I; @ O0$ $ !H96%P+FUA;@ y M "@!_SML 0"DC* G01I4J2! A (T2! 4P9!F3 (PL!!x M =$"Q!CT(1Q<Z8,"#H,03"4.">-'H]OS(#8""*(F#DIZ8 P\D8.'3DLX<AYw M<P9G&X,&IV1Q0B4(%H,(12YL^##BQ(IN0)A)PZ8,4 5$BDP9(B4)%"I)GCA!v MFG"I0X@2*:XDHZ;.'#IS/H8<":?D21 I6[Z,.;/FS9P[>X9I,X<%B#MHTF0$u MD2:NVS)D0)#]^ ;$VYH>[821DR:,F*IQ-T:F4YG-FS"C0[ZQ4T8.FS!YYKA t MF$3F'#1OZK")+,9C&3>OY72,G$9EGMR2#R+L*!.D1YHV<4:54\=-"SIIVOB6s MLU,.".USYH3I"$($7<MPPHQ!R5J.&=-W1,P&4=LR;MV\/4X&/><W9,;&(<><r M7,_Y)=UW980WGD<B).'&''68,=48:?PFDW9MU)2'?%<5@<5 4#"AU60DB/10q M13' ,-*+I VQV1GI,$:@7K!9(9,T/T5E4X\^<2BBRN!0)T;V&EG(DDFH:12p MBBNN(40>=)3APE5!5$$%$D](,=D1+B@QFV91/;';;V+4= 8:4RH05!%%M,3$o M%$],)M4--[#! AMIN+%&F@$!W*?$_0(!HA< '4" _%&"^H[Z9&@ +14 n M $ !H96%P+G1T< "@!_NBT 0"DC* m MP6@ ( "%((!]!"4((H@ 3<$(1"<2-#$&P $1BPC6$$9BA4 2%@!A@30#& <l MG8%8 X!!M'4%7P+@ (U? @%D!#!(P' 'XN@+Q \&*!D#,_?"IQ$N3)NY8Dk M6+(0H41)!C/\K)K!5R61D%-*0F"ME8R- 21I 0 (^^% A%/@N@+P"(,07UFj M#"B18$8>T ( A08 @C#)>&!!,\(9"80 1RDA! A <4 #+!! LVG@G2*i MJ & H,$,-EJ$S."0"T">70"Z\N[M"P8%::P@E, !L/<,'26E^4D! MR,O2J*h MOBH1@16)&K6QE+6A!P8+G !"@@2!"8@&!%I\P'@X P(\&!=G-$C <,8"C0!4g MA!#C\\"?)V$DGKR?(H0"MBC*_,//5W2 ,$40990G AGX"*&"6@>6P0 M(I2!f MCW-J#0<&.6XAH9 ;PX'PA!.Y("3*#SCE0! %4IQ! A . $)""H69,49"L He M(XD1*9$4 $PP)04BI)UA BP0G&$/9F&TX0!F>KB!P&,@('F&.$I D-<4BESGd M1!W%\;/;EU] (004/0 0A!1'6)$F04B< P /)B!11#XK:I$$G@!4X,T2[/RCc M#RQ\ # CKDYH0M=8!"$20HL(2#@2A@IZ@ K<B@P#BHI /&//$.H X ((+ Ab MH*(&((,"(B @8 8$+[ @8!"BEJ H /1@\0087HA A1P!P"$ "$V@"@(#50ATa M!JRR\D,K #O<*HVN8(@!+!PF@$"%H@@0H0009H#@Z[7#%JM+ ? @NPT_9M!Pz M[8O;ZH( "=^>04&LLXJJQ:V4Z K'/XT"8,BXP9:K: &\("L"#V=(@*^SHLYQy MJQO^^@,&& 3#04 0@=ISL"4,L ( $ 3]8\\8##Q;R:U(P-$/&#S@:\^SNMR*x M@Z[9P0&#MHH>P$K&&P<JCZ($L(.O/,\^<ZL$NO*LRP$V" $$$]_X].4+#F3Qw M1!/7L/#($$\QX"$ #KR&@JZZLO#%ET@ (77;0_!9@2C VD6 *-^N(<"7+ECQv M+QC<Q.D!#ET\00(2)B2!PD4F"#$$'B7\F]MP&FAP!@ "<* + 6;04R\!UL1(u MB1!%%(FY!=E) ( D/H$@BT\0B,&!!#M @, :%BBREC@!_/./ +X'[SL!_TCZt MCT1\_ .+3RJ800 /&X!A@NJL P##ZP D( 8(M/H^Q#5P*&!7 SZ0< 4LO!#Ts MQS]BJ,4+[):K10L=ROOD@ADVD+8\ ,T30$/T)("$3V"P/^UQ3QW> Y_X -" r MD)PO?0!87_L"X <:C"9^ ;##_MA@!@4@H!@ >(#I F &6!#@<@"@&Q @$0!8q M!( ,:AE)H7X #2# 8 >9<<(^,!< (_3PASX,(A"'*,0B$O&(1<05$I<81 !0p M @#40"(4I0B( &#@)T!,80\!0(LLXH.)0 3!%F PB$;Y@Q%!> H!($ ((:! o M+6" PVD$:,0 0;H3CL+8 @0+(P B8()= H".T)D1#$HH@AI>%#T"[&:.n M/Q" ! I P. 0) $D085GF!( /B#.(ID)!@(,$<D ".2DZSD)5\#ADUVTA^Mm M F$!$KE($#3RD1M )24MB4D @,*50&A4/[(22EN.$I>Z5&4O@0%,87(C=$Z@l M! P&P(4G4(T#>/C2W^@1)PR(Z!W_0(<=%* $0*A! A\H5 LR\X-"W:1;@ B8k M*A!P$P$L*YT (D!VJD6 " @8)2@)T'.X !\@H"=[O0G&/S 3X+\TP[=_&8Xj MQ]E0A9(AHDZ9J.UN0D($5/2?3, G##(CT *8H:"%P@, #L!/ 2A4!OC$PDI;i MJM##G<.;&14G @3:T8^"@0$B16@_YX4$'P1B&$/ @0#4( "5UG&!"U##4_^Eh M! Q< 1D",@(0?D R"R!@ )9)SU-E ( #K0$"#+AB&,I@ &\\1N^BT(R/B6#g M%_A3&D"@@5U1P%0Z!( 20.@K *0AA*]B9%F&'4 '84 2 3A#0C *S6 @(D@f ML*&I /B!$##R R)@KCK=A,'A$F>'?U3U"LO(ZA"4( 2FTF M!B"& 1@ \PJe M(0AK0( LAC & N @ )@8 @((HE@(@& )C'V-(::9J$G\E+E+F01CCQL&G0T d M&D2@6EJ_9(,+J!0&=K4G Q*;%VP (3=A@ )X_7D&!)BWC@9P@B36>T(#F!>]c M+%BO!=K[WJ<H0+[K%6]BSV#?\RHA#!9@K%, @ &J$0 #;+LI#(J@#P#8 P(b M""V% 4"#.MD &<8' #,L80S,& *0\@-'!#@A$E$(;7XR UC@5&H YQA;Y/0a M+H3K (,>^[C'( BRD(/<31V,5G%34*D)0"P$)03B##Y $AN(H$S $!,#$ z M "3 I8P@ 0#P( V<N$,,IQ8$,:1 B%P$8@RN ,,&# !(UX0@!<,:PEV42P)y M/B""#WS+#!9 P10 )V<0!(!J7-CQ#/C!P!5! <N6V?+?T%'D(PM:R2#6@I//x M8 4I3Z3*6.@R1L!,9C(X@ +<F *:[:%F-KL9##;PM):K[+ ZW]DN L#'GOO\w M9Q?\( "1I"[FY$"##\ T;QPP P($+6H"@($7A28 HA7-Z 86Y-$P*8"D 8:.v MW=CU-0;0580A$&<D+&XT=AA-!O8GAX;9H84^N0..["" _87!# 2!! 0R0)[]u MK2 O5AC"ONVU/S&T=W]T<!$8X,"%U5Y%#<=J[RK5P@ P+-")2@" &;2 B2 t MP"<8 8!="H"%%""!O4R89@UO" I"%L VB"4[ZR< Y)! ([@($5,D R"93*s MGR;'R*IJ4IB@,V (%2;#")*Q(BM<DFH88'$=X& !,!@ #A@ @P#@P("3.#H2r MR "#.29BEQ1@#@#M>Q!!RG[VM"= 0I8@-P3H0A%+.+N09";..#P@5$& 1T%q MD<, A/%&"5SU'_08R9=^,("BY)TCHGC-;>5FB]< X0AZMX%/^DZ (\"$ G 8p M #! 4F5+XID@(GCQ/]C!&@;@FAHF^((-/D F*C0!"E_ @NY=H'N9 J H=9+Uo MEA$[Y>&[8) VZ#4,0 (!7-LA;R+P-%BKC !*(<!N[)#:#7H>^R\MNM'7AK2Vn M)? W=703 G5:\F]QX4Y 6V,2ME@%1L2@@/C[LPP$,$$9<6 )^1- ^+3F:51Vm M!C(@; #@"W^F R(P #1 2LR79YH&"&N@ M9G HAP B?W?_XG:4#R#0A ;>!Gl M$!CV?1;@:.(G:6OA#7%";G6" I%R2<LW&B( $@P@"8PP2.Y03FO0(D;@:0>Pk M969 @4Q 5@="!PU "U8U5^QB 2* !%.0!%, !&;% !: 1(P#+8@ %<P5_APj M!NQ0+[@@9W( &25#<%P DR $5(#=5(':85!?FL!#W_##BM8;B[H3S; ?#.(i M$3:X+--$!('@5[CF"#I($(3@@T!(!2(P 39X(($$ DD0/K"0 5LH(&: A-0h M* W@.[_V @D@ @D@"8@P3;CF "+P!<<F@;>5#KX3/G<D5_\@#7$"!, BJ)(g MBFK!#E0S )03FI =(S38MH@Q,7 -8@<_]@+W*&AAB! /(W:VOX#5&G30!Cf M#^?W874"!R #$- 8'! BT-@!KHA>D. (D7Q(SW %%#P!#JH CA@/3X!"-QHe M!EZP8MQX!D+P(P+P X[T>YGE$T+ % M&3N:D F W+P#;( "$$H!R @#-U(d M J''C5< ##2F%N:X #_" ^K(CA*H ._(6%3S@5\R2*S@==<VA_SX(S[ %+H"c M SX1 6)'*)@S!@Z (BSIDAZY!OU8DFIA!RAI$/]R-1[E$T' %-6D@SU9!X-Db M!4$)!4,))D#0'D-!9SCI$S\@D&&C@U)G:&$ 3X9 "CPE%%Y?G6":5,P"&M a M!DI0(Q@@!FMI!F80!G*P/P@08OO3 &?@ OMC.3ZP/R!0!N: "X- !N*@9A8 z M#&&@!6"@#4I "&=@#5- "%.P!"L6!DR@C6'0,M='!&! #&H&!PV0F&&@ Q/ y M:#?!8&(0/F'@ AAVFKY#$&\) M+F@3NF4F! #W@0 !; : H@!&XI!F+W(P? x M%)NT>/^(.3KY)31I3R10E<"6G#'2%%LI@7O#E 3!!63Y#U?3> N0?@&P+!"0w M2\FY-T&@*VDI!O 0>R9 >W4 'I@C!B002>8(; "IE0! D'KCDUNVG5\"DP!0v M=?! !"M4*%52*"(@!@: <_ZD307P)18@ !2 0V0 )>Q 60H1DZ 1DJ !KZu MH2":H1U0 !+ "_0> JP9% P"%(P",;@$_Y@"Q D$65@ B?Z(TB E!YY$0!@t M"3 2 D. $7$CFV0 I$@ HCP=PJ%!W<BFVA BZG .WR B ' A" HSI:3F\Ps M&$#P+ BP&R ""%0*#@Q7 10 AE( B7"8&@P LK@I,]" "( !3\% F;76(69r M(TF0>B"0 &8 #V" *1 "X% !B\2"18W B1# -, #",0I'+*"Y00#VYP $&0q M#OY$ E_0GE\"=F#@,77@%JUR!H.!!%&@" R@"A'A$#7Z> Q&!G.*862!*'L:p M!7W:.6"@ T;J%C^2!#H*!BQ0@Y-:J69 JZ* 6@0JSZG )"0"%$ ".A#$ <Uo M!M57J[>J#E01!@2@J1$& #A@:5(@ FR $;>:HHF0 DN $0%#"+>0#&*0+3KAn M?["0"/B'(PMG N>:KLZ&!G:*$='@?R80">BJKCX B7R: "[2KF) #ZT"#:B m M$;"P"/6J &!0L(N K\>%82 $@00#0_[(@C@L!@Q"\#00?W:L1]KI#]' SPl ML&6*$6;P993P @S0JSIZ30!P-0N >42:$P0%?%-@LT%036#@#CS+IC[K $ Kk MM$3K#MU7!XSW @0@-4@7 ,A ;F>0)3% $&M@#[LQAIJ7/1* KZ#/2UP!<) j M8-CS;P2P'D:"= + "1(0 Q(A"P,@!AH #8'@MA0PMW5[MPP #8#P1H);N(0@i M=DI@3P) !(/[ ;,W;J*%!#09G@1!"S1) NT# )@" $<P%U(@ ?$# (2@!#,@h M$6M #U.@!($!NK[Q9R(0/M@# V:@ RO&NF)@ 0'PH@#P#;;@$UAPB7 :!Kg M!B( !DY DUJB ;%K!GWKE[BKN[SKN\[#NB[0N0% #Q)0N@ @"P JQ00 *";f MO77;O19@ @* !$-@#"2Q6N&H <0 #-0P"-10J.(01R @ ": L 20NB*@"-HEe M==\G H[V-PKP?2$PP "0OV< #D@*."<Z%)[ :"+P'E4@!/"9H%H -J-"/TN&d MODH0CA8 ",'0P4,P 3GG!%(@!&WS-N#"#H/!C^H' (Z#OH80#--D P10PVTSc M3>AKPC!@ BE<3F8 #CCP 1"0#0 B($* =X@P2"PJ>YIP(X&!NH S$@ S- b M S5@ S> SD0!F(P!F10!F9P!FB0!FJP!FS0!F[P!G 0!W(P!W10!W9P!WB0a M!WH !'J\QWMLD7[,QX <R'M<10%0R(9\R(<L 8J\R(R,R#>A Y <R3@PR91<z MR99LR8YL YJ\R330R9[\R: ,RH=\9010RJ9\RJ:\4U,R):B<RJU<RE-"$;(,y MR["LRK(\$<-UR[J\R[S<R[[<R\(3S,(\S,1<S,6L%@(P 10 9P B0 ,,<x M=PS0 X@0A$@ 1- 15@ 1> 1F@ 1O 1W@ 1\ B$@ B,@S-),S=:,S=K,w MS=X,SN),SN:,SL9\S_B<S_J\S_S<S_X\S+U<!7,0!F=0!KJ*!F5072#@!F5Pv M!PA=75NP!D+0!2 !W+P!F<@!TW2 H '( $D,0!F[0Q@7BQF7@!B!@!FG u M!@E2 G/ T0"0!6&P!B$ BX- FDP!PO]!@4BTH&)!V4P!G5 !V#,TB'0T2$]t MTCP- G-0!F6P!CB-TBK-TC;]TAU-!6>LTR0- G2 T-PC!G/P!F90('),EW.Ls MC6/P!F/<T4;P!G7@!D7:QF[0U'.=(&%0( \-!W.0!GJ0(&SP!F-PUVGP!F[0r MT6_ !D6:UWO=UR"@JR6 V##-T'< HK-UPGBV)#=T1PA!9O=V7W2$/WTRZ(]q MVJ1=VK]< ;7 $:G=)ZM= ;:@%EK&$4S7)[-= ;7]I@*@95\P!72P!E-@V> Pp M$1+1!F&0!A Q$:"M%J+P!48@!TYM66R0W!"@!&6 !VD0&,@]$0'@ U\@!&$Po M!U! T 0"A/1$64@!W+0QA-!"A-A$%]07;LQ$>2=$E\0!'10!-9-!U; WBLBn M!<R]TE.0!W.PW^UM!47@!G:PM1,A"!1A)PA.5@M.$51PX$!)$0P^$6+ !&_@m MQ@H. !=.$&8 !ZLIRQ_^5TDPUW0@!\9]!B5N!L1-!QWNX11A!\W]!FU !<7-l M!A\. -Z@X1R>N3ON"3X.!S'P&CNN!TDP!T20!B@DXQ.A"4,.X4Y.$*9 ETU.k M$"6N"2\NY5,. +90W4*-W5,> #;PXC-@X10A#"]N01$^$=# !$0P4FB.$ [ j M!$,0!"2NW0@ YVS>YFHA 4Q0!'+NYP'@ 4Q@!(..Y=KM G+=)&6@Z @!"DP0i M S'0YV/.!),N XE>XEYPXF/ VV,XYF1PXD[ TQ!>XI! ZCQ-Z(*@ZC .Z6K!h M"&;0U$^=W02A &Y@!LX=!C!$$,F- "IPUX=-$=(-",1]!FDP!O)=WMAPV&20g MU^-=WM0@V= ^WWT"#5/]Z,O.$=H0W[)L[7YBT<9-!_B60A,A .Y@!B9]W.;Nf M4+!@!G>@XG2@[<E] +Q@!F/PUTWMZQ.A !I0)BKN!G1@!.UN*"BPVW1 !D\Pe MU$; WY\MQW) !VX]KM)-#E^P\'0 Z@5O +QP\4,=TG) !,E= ,3@\70 \D@Pd M\M9@\B#_!,EM !9@\B=.!R(_$04@!W7 !A+_&@4? ;: \5IPWA=1[W" \4+ c M!B*]!O6N!\S-!G. !D)0!V:0W M@!O_-!FP0]5/?[_*@ZV6P[@6/ +P ]K;>b M$A*0[V^P[_Q.$ P@"\[=!F]@!_0^$0R #<2-]8"]]F3#!U>/X^T#[N* \&10a M!.C=\.5M"UZO[7K_ #S@]$[-$GKO !*PZ[VN]PR #_%^W8J?W V #()_X@3Oz M\!7 W5B@\X0_ALGM %'O!FQ@W)"?W'7_!4U0!FTP!&Q0!TQ@[<@J^[1_]&N0y M^Q.! 63P!4. !G)@^V$0 \DM ;BWY&<P! A.!<D] 0=!$ ;@ &*) S %!@x M "^$R!1@",* 2X G G"'J@ & "S8 BZ 5#@ !C@ TI@!Q!025[@ LZ w M 0& PS@!X;, Y@R+.#*2AD " C<I\3] @ v ? #\@P u t end