Path: utzoo!attcan!uunet!cs.utexas.edu!sun-barr!newstop!grapevine!koreth@panarthea.ebay.sun.com From: koreth@panarthea.ebay.sun.com (Steven Grimm) Newsgroups: comp.binaries.atari.st Subject: v09i076: f77heap -- Change heapsize of Absoft Fortran programs Keywords: zoo, uue Message-ID: <35239@grapevine.uucp> Date: 7 Feb 90 18:31:02 GMT Sender: news@grapevine.uucp Reply-To: t19@nikhefh.nikhef.nl (Geert J v Oldenborgh) Lines: 154 Approved: koreth@panarthea.ebay.sun.com 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: #-'H]OS(#8""*(F#DIZ8 P\D8.'3DLXX9I,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=)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#& 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@ K04&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 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)!@(,$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^[C'( BRD(/<31V,5G%34*D)0"P$)03B##Y $AN(H$S $!,#$ z M "3 I8P@ 0#P( VQ!!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 !*(^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%R2Pk M969 @4Q 5@="!PU "U8U5^QB 2* !%.0!%, !&;% !: 1(P#+8@ %5#KX3/GD. (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@==/^(.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%!WB"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#$ 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# )@" $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 A Y 1F@ 1O 1W@ 1\ B$@ B,@S-),S=:,S=K,w MS=X,SN),SN:,SL9\S_BLTR0- G2 T-PC!G/P!F90('),EW.Ls MC6/P!F/ 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!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@[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&