TEB106@psuvm.psu.edu (Tom billet) (08/07/90)
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 name<indata file>outdata 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.
teb106sjouke@tnosoes.izf.tno.nl (Sjouke Burry) (08/08/90)
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 name<indata file>outdata 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: #<I\3]*@ -;___\" $ !W*?$ M_0(!TQ$ '$ L#D19%M0&. 8A$ $ !L;V=I8RYA<VT M&HI$"@!_%#8 0"DC* =P@<2+"@P8,($RI<B+"!@AT@(DJ< M2+&BQ8L8,VJLN,,A1(EAW) !8::.FS%TTKQQ0_*-'!!T[KP!D<8-G3)GRLA1 M(0.$G3!RTH01PZ;,'(ECPK!AHV/BFAY"1<I D8:%FA03.S[<R+6KUZ\1M3(< M2[:L68(>'9()0R=,@CDXVY2Q"0).':)IQH XL;;M";5LW<XE,T?M&3EOZL!) M<#@Q'!!]PS@DNL8MW#-RZ9X8\X9,F;\*$H29,Z>.W 1CYNB@'(8%81UD&BMF M01JV;#@.[>(=DR J&1D.?<M( <Q;S- '1*O,P=- C&+$R38,2>,G3(@H(.0 M@S/-G)MRE+=Y8^<Y'-K1I^>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.<!YUTTRDWWV);2K?#A72XA)T9/<HU7WTIAL8= M'0G @(-S8KY9AQQNL/ E"#ADE\=-1[D'GTW!%3G<8+@IP%H"@PUYUJ.01NH1 M6)162JE8$S59TDDIK=322S'-Q&9..]'@$U!"$6444DHQY1141=) E558282I MI;CF>I%8D?;JJT)I*<K&&F*\%5=\>W'F&6BBD08?:JI1)H9KJL6&V&RU6>M8 M;G>QD5=OL18J$@W$&9< <N&%9E=SYG%)G778:<?=&=[9%]J5YJ'G[HV"9B8? M?3:UF0!^+)+1WXL"$FA@C3<RZ*!\)_[X4A@6&E4EOF%PJ)J28M[(QAQWD$0B MQ&E*G&%Y9&CLH1@@KC"<B""T ;+(#TN)8KH#K\ARB_[5!2.!-,*<XTK_14PA MQ4(J5^212;*\9)-B/!GEQR&;* <=1UD]I4Y5+ITRDAL[[;*84$L=\\Q68VVS MQ!=KF"4+87:I[AM@IC>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#%??&<<FIRYQS<;][77:/S5NOP/A"IV_'"B[>.+)]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_ "<G M.DV'<'G:4Y_$\*=5]2L^P>D>HT22*.,MD3"7&YX4R]*[WUG1*Y\+W:9(YZG3 M@4HFJKL)ZWKRD]>IZB@12<KL7@6^6>V.(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@<!V>.B>&[$21X_ZM(X:#:I8 M]%@&8V'&C\IB'I&<5U3H4:8,B+P-;19I/>T]LC<YQ5UPLAH^<Z'+2^>CX70X 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#<L,1DW>'Y?5O$$V MM9!K,$-4K3?5ZFVKD=WZ5AJR*LG94K=<XSM7^9;#KO21E7W;.6LHRS/*M9HR MMJ@T[3,KR#.$O7* =FVF9B?&S07ZE9> ):>$[[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/<NJPSK!>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*"'<R5&)!VW4B[WLW%W MI6'4I;:X'%@ @HT[Y'0F(8,.]F=B#**XFC>: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<KRMQ*SYS@'5[<+3M7/ZJ)FD!I*IT(K>&M!0;$6Z5S%6 ME:\;3AV<V9]9VOK%9%C]>VU/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%#<Q9WW'9W^'$887:(AG!V10!U11*W D@1.( M*YB2!I$'77CW4C% <Z'C4CLA SCX$CJH J;R.XWW@I<R*8BG@98V!V"C%W 1 M!W4P%V.P*@JB%ZWR!G<0:RX@=RY(A$5X:Q 8>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<BB3<> $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'<S_(@SFH7*6R.-A1%&>@%*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(@<TU)B QV00Z&B':%CISA(C7!%MC!B!;FB7\%,WB@'$% !$20 $' M!"Q@E6(R!4B0!$9 !2! !4\ C'0 BZ0F!;&>C"0<O&3<0:B'-!'8&PP?#(C M!I1(+YM(,4:B%"Q SC@+CIR'5<#$S,Q&F.0!FDPE497F5(W;KKTE#WYFKV! ME:@8B3MRF2" !V')<^7G<^>G6+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*GT<ZGZAI MGTR:<?AII[')GU/ZGU4Z$@*:I4[IJ B*<3;Z,@A*I1 Z$B)@!A1*:3%J9)V5 M<E^2?[6(0Z75?PD090'X=:XU=K %C%G6DL0X+!OY@!B).119D714@1?8:M!8 M%$!AC2*(C92BC;(#CR.%1A\%=[[*C,>XJ[VB:]%&>AUI>L!&2*JW!B7IAE4% M7]O3K [1K"ZI>WFH;KTWDWT8?(!XJ2N7?% )<3^)J4/9H*>H6J/('DHI<Y4* MB?6J(4U:E?CZH/!'!Q+9E:%Z<?$JF^A&HP*KH(WYJ YZFSNPKUPI POKASSY ML/#:B2QP ^1"L?GJ+A@K DJPL0D BZ8ZBW:C?[;(?[CH?W!RH#_D=:UU.+XX MJQ!5KA_#@)2!=B+1=M3Z*[T:K;,&$<XHK/(6%&YP!L8:?R.8C=%U>$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)K<I#7F<8;.B5<6PH5=@3KBDIAUI+AUD; M(.=*;9JDA^L:8#0Y8/E"2NJZ/EEBH5SZ<\+)B$V[MPLT4B/J-!F6!G7+'A4Z M;FRF<:"FE>S1!AEC8W-Q!E!"N7=2!G"P<S7!&RSC+G>&![)+::QYIG9U=\HQ M!FVP&$T: S(PLM,QM[ +:'?W R)75'+('48B)B^'(V] <WJ7ICC*6*BA;R>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*M<!C92V@5QS M1>2HPV?+45/\M""PQ6L0%&K@NU^L$V%<%&-,?U3" N-1/VP0$E";$Z6&$R"@ M!VDP<A:1QFILQ5YXPX,;AI31!AQYN!\I2(JK>FT 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<<L"BC,>\)!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+EH<H0#(@G"/V6"&ZD^ZWS0<KD?*,(^QXMS/A10$2$BS9(VZP<WPGI/@\ M'2'Q)VBPMT@ZT6XP!V:@$][KP$65OG8Z!ON1,;@+ HH!$Q9-TF_[OM'+!N/+ M?++[ODA:O-R!@#P'?:6K03A0(W#Q?'CSH:7#N6&)P9R8'QTBJZX$?5U /5M0 MCUT CL@!M(HGS-=TNF2OAT,=:5*FZ<*12,,PB6LJL*KDSP$@ <%JSKKP@<H M6Y[L!C.\!I)\48/A$!K@$ $!W*?$_0(!SA0 !H2 D !"$![KC P M ( M $ !L;V=I8RYO8FH &HI$"@!_!"L 0"DC* M 0T $"#(#DM4 @((3)DB ,'0J)N&0(12(4BU T0O$(1204DU!40G$)1284 MFQ 8\H2(1B)!J 0Q0.2(E"=5H+C = F H !#P(H(VGSPX !@R-9O3GPJ'8 MFB(M,/194Z &AEJ3"N# T&9-00! ,#194PH $@RE=A: @J'3F@X"L&#HF*8C M # 8*JQI"0 -AOYJV@* @Z&VC*)1" %" &R:" "(\,\!$5 9""JLLH@=,2\* M3"PZ\-F B1$'%I7KH@P!@#^@0@3=W/ESZ-&BKP@H??K :=VJ6;M6ACDI;<^@ M19/V8GI!ZM6M 52*O?"X;>6Y=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!!@<A $ <HA;EDH@"P;!!BB+%M@N)TB!Q 0 M "T S** /?,0 (,BT(1HHVDXZLBCCT "0LR0U!@I8%"R[&!C:$GNV../00Y9 M9%!7CIBCEDS.XR244LYHAHG@ 5 (*"?0Y2*,,E)9XY0ORE#GBTJPV<4R<("2 M@EX?COA +?\,,>(%@.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+<JQ !^_:[KD(_F%N MUCT^R\ YIAK M ,,&,SL.) TH=( !\F8Q!!)+,'L)L0HI,(!,0C K",EI#6 %$54PNP;&"C%@ MP,M53$&%%,RFH8@ "M$1$-RGQ/T" ; /R# end
jwhite@dtoa3.dt.navy.mil (White) (08/09/90)
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 name<indata file>outdata 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 If you have Version 5.0, then you all ready have what you need. There are additional procedures that were added to Version 5.0 to read the commandline arguments. The two routines are NARGS() and CALL GETARG (n, buffer, status). They are referanced in section 5.3.3, page 271 of the Reference Manual. Just add these to the beginning of the program, maybe with some code to get the filenames from the user if they are not on the commandline, and your commandline will look something like this: C:\> FortranProgName InFileName OutFileName Another less elegant way to do it is to open the two file with File = '' and use the same commandline. The first unit open is given the InFileName and the second is given the OutFileName, If the user doesnot enter and InFileName or OutFileName the they will be asked for a filename for unit XX. If they didn't write the program then they might not know what unit XX is supposed to be. For info on this method see Page 203 in the same manual. Hope this helps you Joe White jwhite@dtoa3.dt.navy.mil