🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: comp.sources.atari.st
1 messages
1 total messages Started by Steven Grimm Mon, 04 Apr 1988 17:39
v01i008: mkmf for Absoft Fortran
#353
Author: Steven Grimm
Date: Mon, 04 Apr 1988 17:39
111 lines
6407 bytes
Submitted-by: uunet!mcvax!nikhefh.hep.nl!t19 (Geert J v Oldenborgh)
Posting-number: Volume 1, Issue 8
Archive-name: mkmfor

[I don't have Fortran, so I can't test this.  It does unarc properly on
 the ST, though I had to remove a zero-length file from the archive, which
 gave arc on the Sun some problems. -sg]

Here is a little mkmf for Absoft Fortran.  It hacks around the 
128-character limit on the argument string and knows the difference
between the main program and subroutines.  It does NOT check for
include statements, but I find it very useful.  It is written in
Fortran and will probably confirm your worst fears about Fortran 
programmers, but it works.  Included are:

mkmfor.for	Fortran source code
mkmf.sh   	a shellscript to call mkmfor.tos
makefile.tpl	an example template
makerule.def	the default rules for the GPshell make, otherwise 
		include in makefile.tpl
make.sh  	a useful way to call make

This has not yet extensively tested - I don't use block data and 
I only use the GPshell and its make.

Good luck with it,
						Geert Jan
	 

------------ (cut here) -----------
begin 644 mkmfor.arc
M&@A-04M%+E-(````````Q0```%<0%500X/0````,=-*T*0."C(X78M*X>=$F
MS)HR+NC0@0."A(H&"M*8`8&BXAPZ8>C4F0.B1P\0+6*`2`&"#IHR;C`FF%.&
M#@@W8<*T*0D"S)B0(,X<-'/CA@N<;<#(+#,&S1L0)\K(D?-&#DF%(,:\:0,G
M#9N0:=ZX`?%FXXF*.'4N;?JTQ=BH9-+8=//F#@@N/SCF>>$FQ0F9&CE6Y%'R
MY(D\9UFZA"DS`4&T.7<*?4'4J%0Y2]G0;#R&8HN-DRN[N`S"Q5(W<<U@A)D:
M(QH(34%+149)3$4N5%!,`,L```!7$#M4#K89`0``#"-`%,$3I@T<-F5`M`FS
MIHR9-`A=T#G80$%%(TR"')D"HD?%BD^$*.'8`X09$&'HA)&3QL6<.F),@EC#
MYLT:ES!ECID31PX=G&(^*F""42-)$'I`R*@!HR*(B@&3N`$Q)LR<A'30)"3C
M,$P=-G1`S$'SYBL9$&(2NGD#@DT:-VO>G@'Q=@R;.EQ1MGV;T&W#BF'8L-$!
M@@2*D"-3%#XL<DH,Q8813Y$!F?'(&94ET\C<N`;GD384<ZF88+'D&Y^GX$B=
M(W4,&"F$"@4:"$U!2T5254Q%+D1%1@"^`@``5Q#Z4_[Y,P0```PC&B@(.#!!
M`B)ES(2IPX8."#D,R\P!8>:-'!`HCD"9@Z8,&S8I0+0)LZ:,0((C#`Y!$\;-
MF3(@Z'2<`Q,B&XDQWU!,XS#/FSH7W90I0V;.R9,)G+RA4T9'S(X@RKBQDT;.
M&S=MI#JT$T9.FC!B;H)H$F1)$2E5F!29(K+.'(=B8-)T2$>G3)AF&+)!F@`$
M"#AA9+H)DQ7$&S-/TTPTDT9L&C>&Y9`I<['BQ9$E<^YT0P8$3Q`A0APMR%C.
M6Q!WY)9Q..=-X9%CK((8G'6Q11!A9M=I$_?B81!C7,-I3-GH0($"74RI8L1(
M$BQK=21P`4?.&1`NZ-"!@[WN1!>6L<^I(P;Y0.`L7<*\2U.S3Z"&[T`.#L<-
MXS-``Z>Y*M`(D212@`#)`#V`0(8.+UA&AQPM]7?##0(24"`)*/@'8`H)/IC=
M=@[>P(2`!()`H8528&C&@VQL"$>'3"0A!`@%'O@"&VF(D>$-'4KQ(8PB5OA@
MBT*8J*$<>RF`U!"NM7$5&WF`X!91%+$1QAG&==B$$4P$<01;!;8PGAMZ@$`#
M#!U.@:667(+@)41@BDFFD04I=0=J,$W&F%!/U9G00@T]%)%M%P4A1FMF.&2$
M10LV""=X%E%GG0X"&03$7(:Q00895?%(`@ECW$%&I`D`,09W+2!&`@\@G($@
MJ*)V-N)_);):QAAHZ'0J"#ZDBN")-[A`&Z@C/AA2L#=<F>66(:GZPJVH$@LD
MAK'AJNN-+E`F!ZMMV*$F8LJ2H(*CUW7[[1QYM"$B"6]8BNFU"D@JA[FE3NLM
MH^Q*.H:KZ*I;E7GTNC">&)"V&RJEZ5Z:Z82<>LKJJ-N*B*JR"[M:(:PIR$JK
MK:CFJBROOA(&K(\W#`NRF<=.D2R"S/9HQ(\N0GN1QKMJ:"VVVL8KKK_DR3MN
MN><6O"ZK[S9\LV41]ZPON^:9!QH"34M-1BY32``N1$5&`",```!7$&A3;KHC
M````)VQS)R`J+F9O<B`^(&UK;68N;'-T#0IM:VUF;W(N=&]S#0H:"$U+349/
M4BY&3U(`1@"5"```5Q`/4QA,?!$```P)X,AY<T9.F#8@VJQI8^:-G`8*$HQ!
M$\;@&#IEY*B(,4,&"#EESI1APT),'3,0)5*TB%$C#A@@WHA14^8B"YEJYK`0
M2##EQ(IA+F94@4)%"A`8V\`AV2;,FC)F6+!)DY-.2CA`VY1IB2+ITAXGFCXU
MDX9-&1=TEIY(<37KUHPHQ$(%*Y>LV;5M#6KE.K4JW85F7+"90P=OQ#=PRKA!
M4<5)$BH]8K`PDH1)D1Y>24ZA$H1*E2E@GS`A<H)%1CD]<L"0P38BR#MIW)!!
M$:-U`L2*&3N&+&-RY<MU66SN_!FLDR)72I].#6.&;3<XYX#H`2)&RC0X8TRO
M?CWZ]A@P4GJG?N*)$"53M)._.O#,]A,@3D`$`6D`^`0@P\R6?`)%F!3*R8&:
M:C28)EMJ]:4`DDAL^!0&&VR`(!(==(0A!@H+CF3;'7*D@1$*O?7WWUI42)%$
M$QB&I.%U9H"``@BQD5$&'BDRR$)YYTVQ%@@NE!&'"R#`=!0=:"B6$GT$G/$&
M'6]4%UY$(\U1QI&0$(#;8HT]UD.!E%G60U^$"<>99Z"5-UJ``\(`@VU(OA8C
M"C2P665^LQ4H(H"F"<A<;2:AI`!]`\@`0P)(FN7&&1AM%^.,*/2)`G8SQ:!#
M"C?&=U0+W$6$9!HMOF@HHF7PZ".0+6AWE)),@J!:#502P*F+('R::(\_!@G"
MD$6Z024"D*JA'HS9K6"=II#PVBFPD?*(*)`<F8I4KE0R0"><-_J'IV)D]/`2
M#'FFR>=)T?;ZZY.$%HLMI[NBVJ2@K9[K9[E6SE03'=LY*JX.XJX@:QERNGHL
M3O.BL&\+,^BP[U$NN'%6?"XT)`=\IR[9I&HV0*0"O%*&^JJ',$H7!@@\%700
M"'9-2:R5B6&Y6P\S^.8EP#8MI]H-+!`6!AUUS!':F:T!.L.@;9:A'PHMWXDF
M<S@8F*UJ."BH8H,GO_IBAFS0ID-M/"H,Y`DJP.="&+(!2;756">\\`E#>`TV
M&4#.!TD!*\"+W]-D(ZQU?&-`_*R1)R<@-8RR,4KUC2'KM=8*B](X^`E02/'$
M$5($T<2.9K?]Y]MQ(YE``D+NK6O?2,),A\"*@4JPP:5C=!1Y+@ATAGR@5_EW
MR%F?'=^M$DJL*GBMPDL[=:+WCB2''I8!8K5AL#`B@(T_OEV+I95X(@HA]PNO
MN(IF!\(*L:9NLMQ(J@L"NWU'6<;?B=<XTHUFU.'&1=BY<7CZBQO1V!!4)/&$
M$X;1![?<":B<K7#%-_!5272D.Q1&3G>P][A@#G40`^SD9C[T!4YQ3[L1!,4P
MD#K0(39EF-\%U4<2$+CM?YI+P`FF4`4A.*X*^3L.Y>[6.2(54'.AD]=%$FBZ
M@C60=1N<H.8J>"SZ9?`$0F#"$X:P!!`0H3-!$*&,,&BC$V:N2IL[@1C8\(8Q
MK`$$9+A9&&:XL!I"*W;QHLD.!^9#[ZV.84'LG?F$5R7Q_4R.LD'7R>;8-SN2
M"TGN:M48N"@EHO4+?=YQ@4B`])(6[`MW-OS<Q32G'S*`X&-345COB/>A$%F+
M1"9"472LUROI4(=W?8/.3$P)`E7F9'N9DMO?7"D=P="!66:\(1:'UZ$/10=Y
M+$B#9):'(_24AI:56D_Y!G,^,[R(ECQBPRV=E,O/&9``G#3>+T44S-X0TSS&
M9`$RX:-,"C*3CMCLI397"<PTM.R;.3KF-M^#1S+H$5Z!/%ET'A6=2;T'>B]X
M0?"B-AYDO9)[C^3>#%J%/>I@#Z'>:Y7XR)>`?((`!-N2R!O<\$$WU,%D%[,A
MR6*3ACF@(3;NR609YJ"#E&3S>$9+073F@U$8U&!N0^//)[O%G`)A2UO@<1J#
M'`0A"6VE0A>BVH;4"=-/ID!Z*%)J2L3W$E;]":/W&<-&._I1ES+5D\2<X$O!
M"B``A0$M;V`I"+@PP=FUIW9;LQ0(QHJ\LIZ`!"AHWA&.PE:O%J^IQ,0K.*?`
MUPF2H4DXB$$-8!09%K0A-BC(@3A'V2JZ<E.8RK.K8.,9S!L5EJ:)O:E6.1J;
MKD;DL%BU`6/!XUC(JF:RJ^R79?W3S<RNY:XH&&QITN#9M<+NHHFU@49)Z]'O
MH3:Q-UBMFEJ[F!S4![8YD>U7V_E.S>:6L[S=45^OBMSA<O5[LPVK7SL)S.6!
MX"=RB"RE3@"$FJ"A24TB`1!`@%<F&($)03@"84'@@X0XY2QL<,,:VGHLV@D0
M/FL)KVU3@%[ULL"*66SO1.*;5\?ME;_]E8M@!"S6Z7(S>9@U;X-SL%X)OY>^
MUT7/47R0X?]N>,`I.:Z@5@O=.536P[0%\3#+>MZ5.)B][J6P;CL+823MB,7^
M?<J+?XM107FWM.#%<?*6-^(2!UE"((@#AI,,8`Z/UWA@77"5;X17(]S@!DPX
MBG0T'.`O\@#%9D9S$H20@A?D8:43%$ALZ*6"&SFA#'?@<LDZ]A&AD2$/$Q2?
M<P=`4]4,2L\<!4&?T08VZ-#K2B,U2WRD0A7"3%5WBVXT#&(0D`Y%>M)#J/22
M"JV?3(>J-&"R2D0471]1RZ#4>Y;TC5+M!DO')&6NWG1F/IVJ4%]5-3/`]:EW
MK>I+`WO0I:D+L2=6ZV/#@`;*YO.-BB`@A[#:GH<*=FF&/6M05_NBJ\JVKD]`
MA3<TJ2ENR$-,=$@'Z6STDK$"(0O.VVRD_/>2$$JTN1EM;>%"6MLG<,*J&^;M
M09N$7M$+)0I$9QM:$QS=,+B!NE'=;TQ#FP50G3B]*SYP4>-@X\SN]:K)(AN0
MM4<O+]A@!SM:AA>T[WT?O+=*`2?N!U_N?_4).<6GK:IS[^[1ID9X$QP2*B*!
M+28*<SE!]`(D$$R!27`0>+&-OFB)$-)XM?')UT%D&VRE1.9O\"`(C4HA"Y'0
M-N@-2DN(8I1"#S4B?QN;I)HFJEK!IUAJ"YO=1P+7V^DMDJW2^]7>6.7$TTT&
0_J3.V'(PJ93DLZ*R@0@:`)HF
`
end
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads