Path: utzoo!attcan!uunet!mcsun!hp4nl!tnosoes!sjouke From: sjouke@tnosoes.izf.tno.nl (Sjouke Burry) Newsgroups: comp.lang.fortran Subject: Re: Using Data Files in MS Fortran 5.0 Summary: re. command lines in fortran MS Message-ID: <1352@tnosoes.izf.tno.nl> Date: 8 Aug 90 15:57:01 GMT References: <90218.171331TEB106@psuvm.psu.edu> Organization: TNO Institute for Perception, Soesterberg, The Netherlands Lines: 168 In article <90218.171331TEB106@psuvm.psu.edu>, TEB106@psuvm.psu.edu (Tom billet) writes: > Hi, > > I recently purchased the new version of MicroSoft Fortran 5.0. I have never > used any previously version of MicroSoft Fortran and would like to use a data > file in an existing Fortran program. I looked at all the command line > parameters and do not see a way to include a data file. For example, the > previous version of Fortran allows me to type the following command to include > a data file: F fortran program nameoutdata file > The F is the name of the fortran compiler and the rest is just redirection > commands. Is there a similar way in Fortran 5.0? Thanks in advance. > > > teb106 Maybe you can use a set of assembler routines we have been using for some years for ibm and microsoft fortran. They are uuencoded and zoo archived. Files: logic.asm and logic.obj We use them added to the library. Use in fortran: character*80 lin integer*2 n call cmdln(n,lin) n is the number of remaining characters on command line,lin contains them. ********************************************************************* * Sjouke Burry +31 34 63 56426(room phone)* * TNO Institue for perception +31 34 63 56211(phone desk)* *P.O.Box 23 +31 34 63 53977( fax ) * * 3769 ZG Soesterberg * * The Netherlands * * Email adress: sjouke@izf.tno.nl * * Full path :uunet!hp4nl.nluug.nl!tnosoes!sjouke * ********************************************************************* -------------CUT HERE------------- begin 0666 LOGIC.ZOO M6D]/(#(N,# @07)C:&EV92X: #'9()0R=,@CDXVY2Q"0).':)IQH XL;;M";5LW.W 1CYNB@'(8%81UD&BMF M01JV;#@.[>(=DR J&1D.?,G3(@H(.0 M@S/-G)MRE+=Y8^D P+H&=-SV<-Y4Q.\\J)SGN-Q+5/.2#ATR+$% M="O$ $,7ZI7!GAEIR/%=74"%(1=X[9'!'6GBD2?:?D;I," >"":X8(,/PA'A MA#K=9Y1^_+GT7X #PK&"#0CNL!X(<'$F$H1R2*B@3A5>6%AH(9&Q(0L=?ACB M#D5F]P8=:/#H(WA#)C!>>7.I%8D?;JJT)I*W'F&6BBD08?:JI1)H9KJL6&V&RU6>M8 M;G>QD5=OL18J$@W$&9< F465R1U+):P:,\YMQSNFNG7CJ23>??@+:GASO^2LN M&>0B.MFPQ3;JT:^89WZKKISKNCD(+I%D$DHJL61&Z*'2%#"I/)T:U%#XL;I4 M4Q(]I9(<4U5U%4>3=NZ[I;QJ+CRDP5+&VV7^)MO99TH[>UIJJPT[!K6V77M> MMK=QNUMO+@&GP.W#%??&<.+)]VYMS M?CL;[*+/"9/1PF#FL!(9#4A(L]C)F!8V$-%O1#73VLU4Q+_]^*]G K@C!A6 MOZ'M2((2"Y("0^,2!J[,@=,)7=2@M#8J+?!MZ?,2W=I5)[R9:6\^RI_ "D>HT22*.,MD3"7&YX4R]*[WUG1*Y\+W:9(YZG3 M@4HFJKL)ZWKRD]>IZB@12V.(I^[HAPQ$KPIVA%8#YG<&HR$/&1M M9GG,&DUIGA>M89&!>MK"5K6RIP#=>(LWMZ-!$N5 +O&1#V?K0I_=JK,^>77G M._#3D/RRM*_Z'9$N.L09P?IW, #&J$ '(N#(6HC BF'H7AK*&-A.N"2/S:R M)-L:SO#UM::U[&4VJI_,0@9,6JI29Q9L909?&;1DLL>#12O9T6Q9I1+JTIA+ M4J'9J,8CM8'0A2240P**V< NC"V%+UEAE)99SJP=T$$OU)+=9%BWP=E0;VC* M(<#TQT/!U9 .=PKBX898Q$ Q;E!TF&3DF*A'(UGN(7?,:$.V,L>.[FI29<## M&-C G#2L3XNCZY3I4 ?&4>FD=65,5>Q H$97@.B>&[$21X_ZM(X:#:I8 M]%@&8V'&C\IB'I&<5U3H4:8,B+P-;19I/>T]LCCX70X M&:_V?5)_\;N>W?CUT.2EDH(%D^;/!!A+:]+,@-JL9=)P69YOMO.!=PWF!$.S MRFC^;YI X^ URZ"C; I3A+=,0%9-R+'I9-5)+#PGU_()MWW.K9\U_,X- ZJF M@>Y008'SX=T06C@A)LZ(;47B][CZQ"8.JZ@7%:IN>^K3CF(JI",MZ4E?LD65 M?@HF+5W=2TT54]BMBJ:MHAU.72(KW?&TBKW]:11WF]'B#'Y?5O$$V MM9!K,$-4K3?5ZFVKD=WZ5AJR*LG94K= ):>$[[E =O+RG7:EYX;SNN"X'G:N M&Q0:8XGF3,A6:;(7KNP.+BM/$) S;?8D\8M+Z&$E@9C&9J,GCIW9-BSITUW\ M%.O=1 M0OBE8.055+1 -]QB&*NZ4$;4O)6NK1_#FEKL:Q6YV?3NI-90A#U$# MRDC&@(8(H01(W*$8CNYRK92X 3MW2 .4$L.>.X1!SQ2IJ0YJ>M,SLWD-**!# M"G@[9BMBBCW>:0]-V]RC-^\D!JZ3*51_0E+LR* &-:")&4#@AIF8.0\@:/-1 MQ%"&N=1%2&48">\XVF@R8Q3,=_3N&LX07J0"LKS/Q[0WD8ERY+=. M?6B',!L-:\#O)<':WTW""\#N ^4P1:G64K('RW5Y,E^/! ,AP &2! 37(J" MDD*C^0UJQE%;$%JE^B1 !C%0+9L9NP9YLX4Y(##"$Z0 @B%000I,*+B%]P,# M&YP[W=/9]QCZ[<5)[Y>8;&#!IVN Y-#8&]^J58X:W*"':L(L7"$X6*$5,? 9!GEG(9C>C MU6U'%E.2TT>FT3J937]#+0QH(&4%)93*(# 5$:^,X"P_.]J2$]:NG^@H7.>: MUK66(Z9.G>:>-;W2%(KS2$HCACK7!,]ZCI*? 3T10:>Q5:H[=:)KQ>BX<^[1 M- F4S,-@:15@NKFJ&M!0;$6Z5S%6 ME:\;3AVVU/TDO;"RRPM^T'T7!C?>$LD-/#U5T&=K.'# UB M+'OH#N^>I>$%;U#.Q_/M+CCHQ(MM"##%X,K*$VL0Z/43>@(CBZ^B'SV%=>AS MX"=O:<[&\+-*KGJ3!7I\-VF=Z_[$6@KU&&+74,3G.-]C>WG 96KG'%\&>E+$ M>9WG.9,R!V/ ':YV=Y1'(7<0%#GFD=FG0:Z7W:TME7JE'&57Q M&LAV;(RD;+R!@G7@$'*(>U]E/M7F+O_E>^^S;036;8 %;F]%6-#48*Z46"K6 M6"VV?D5&;C*P?&/5?-('&='7;M07;WQF%UFF $6'=W7)D8?]IG$_?& M?6+B?7( ?J 3?YIH?YY%'#-$=?]T)E?G-U#V?UTG@&!7@&1W/X2B '68=FK( M=MOUA9FSA5SX%9AB@1C($F-P)W. .D,!@GYW9UU1@H6'>&TA!E2Q'VF0!RPX MA,O8%3&(!S.(!BZ1!GJP$FW!!C0EC:$S'W.@9Z7# N'H$SJ1$FHDA,I8CER! M*4@('I9'@%*JCB<#SCP"I$9^'C+ZB:VI ANPQ7DK5 M+&@H;&N@!JUW/53U7G"8 -WH$-UHA_N524JVAV;U>T_WA_,#,X(H;ISHB.=& M)UJQDV20<3)P RFW?:H%%SMB%'IQ=RZ ?##PB##@DQV6<3D0 T5IBB"GAX,! M B*P!2(@C"0G6+M)4V^@EF[ ED,'FW")87))EW:)EWK)E]/A MEX IF(1IF(BIF+#)F(XI2I ) Y)I4L_AFC#S,9@)?9JI-&30F:P'FJ*Y$J3) M'F72'A:HFJP9!B$'FPP'E5+I<;9YE%MIGKO9FQBSG[,I-T"9<360 U<))UG) M?#LB COPE4Q)?H8%G ]65S>":FGI'VOY@6ZIG+LD8QOJG'>9EWOI+M09F(-9 MF(>9F 2:2]Q)FX^YE^ 9&I,YGI8Y!^>9!NE)).LI&AGGGF(RFOMHFO29FJLY M;D'9FMW95P8:E;1IE%J9FSP* GG0FX5EB(A%5\+)H<7IH<<)HA4FHI\(,WE@ MHM"9HGWYERQZG2^JG3N)G\GWI.-IH^%)F<,GH.BI9^K)GI\9FD4*GTXJ[VB:]%&>AUI>L!&2*JW!B7IAE4% M7]O3K [1K"ZI>WFH;KTWDWT8?(!XJ2N7?% )<3^)J4/9H*>H6J/('DHI$OA$RGX M'7* B? !S#ZM2[ !R>P:$>+M%DA@7P .A/C!J@F-4 RD$ RGY[A+6V@9]@! M)=CQ'34!M5WX$6:+1=-:M(^B:Y6)KS1!AEC8W-Q!E!"N7=2!G"P&![)+::QYIG9U=\HQ M!FVP&$T: S(PLM,QM[ +:'?W R)75'+('48B)B^'(V] W MB6H OBDHONX"7*WF&63P ^)'!NH[IU'JD\T'%S@BB>VVKZ58L:K5)$BY9LP; M&FHPO6^ACJ49OL)+-CO"'=['%L KOCN'+S#TLJDZNOA'BTP6LZLZLZVJBZ^: MLP3X6@Y%J\"KM4 [+)6IJX)+/-#ZMQ8Y*4/P!FV@NSOB+=CX)D%1!J)+9\>* M'151@H0FO4'I!BB0)UJ[MRP8%F6KP[S%$K33'B'QCJ!#FCFA*M2HPV?+45/\M""PQ6L0%&K@NU^L$V%<%&-,?U3" N-1/VP0$E";$Z6&$R"@ M!VDPFT KB@97[SAQ&S@!N7:!D]\ MN7B8N:%;5IS;KJ6\3HTH?(%8=L:'PAC#>C)@!! ',VY@&JSV$F\P:K)Z%)[B MQ*G[M =\BK<\)!Z@V&N9[)U$XP$<5C$"IA"ECI_4(-WBPS,U\%-,( MS=A1$YXQE_YY/&,XJ'+ '>TFSB'UEJV+0G;5QE!;CWI0!HM9IV(24C>Q(_-Y M,*1+EH6Y=S,WX9P[<.BN\14O8#WY:-XSG@L'L(:Z@?*W M?2_2C=[WC._K38$BT?4X+KK-A/"? ;+\$V = ^#R#P"\(:*>,I+1 @H&8_DW M5H -/BB9$Q.F59X!_PE@@B(7!!@(%@.C#!QT+^-,,'0=(N0X[)TI6#B@Q +:9!YW1\D* C CC MB#:+S&.$F#Q^QH )B1S @!T(+ (,OP0XP<"\Y"BV@>L2<8 ) HHM, 0S Q MA4( V $) PHU4, 031#!A!/,DO.L0@$4D$003A A [,0;!N4M^ 200.S#9B+ M@+=.+%%$%LQ> \D""@U 0!)/2#&N0D+