🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.fortran
Article #97

Re: script $1 wuth Fortran

#97
From: Mori Kouji
Date: Thu, 11 Sep 1997 00:00
45 lines
1773 bytes
In article <5v80t7$49u$1@news.fukuoka-u.ac.jp> td964001@cc.fukuoka-u.ac.jp (ICHIMIYA Katsuya) writes:

> $B%U%)!<%H%i%s$r(BEWS$B$G7W;;$7$F$$$^$9$,!"%7%'%k%9%/%j%W%H$NMM$K(B
>  $1 $BEy$r;H$$$?$$$N$G$9$,!"NI$/J,$+$j$^$;$s!#(B

$B<B9T%U%!%$%k$r(B hoge $B$H$7$F!"(B

  hoge arg1 arg2 ...

$B$H$$$&7A<0$G(B arg1, arg2 $B$J$I$N0z?t$rEO$7$?$$$H$$$&$3$H$G$7$g$&$+(B?
$B7kO@$+$i$$$&$H(B FORTRAN77 $B!V$@$1!W$G$OL5M}$G$9!#(B

$B<B8=$N$?$a$K$O<!$N$h$&$JJ}K!$,$"$j$^$9!#(B

  1) $B3F=hM}7O$KMQ0U$5$l$F$$$k(B($B$+$b$7$l$J$$(B)$B3HD%5!G=$r;H$&!#(B
  2) C $B$J$I$G=q$$$?%W%m%0%i%`$H%j%s%/$9$k!#(B
  3) $B%f!<%6!<%$%s%?!<%U%'!<%9$r%7%'%k%9%/%j%W%H$G=q$/!#(B

3) $B$NJ}K!$@$H!"(B

  hoge.sh
    1: #!/bin/sh
    2: hoge << EOF
    3: $1
    4: $2
    5: EOF

  hoge.f
    1:       CHARACTER*80 FLIN, FLOUT
    2:       READ(5,*) FLIN
    3:       READ(5,*) FLOUT
    :             :

$B$H$$$&$h$&$K$9$l$P(B (hoge.f $B$N<B9T%U%!%$%k$O(B hoge $B$G$"$k$H$7$^$9(B)

   hoge.sh arg1 arg2 

$B$H<B9T$7$?;~$K(B FLIN $B$K(B 'arg1' $B$,(B FLOUT $B$K(B 'arg2' $B$,%;%C%H$5$l$^$9!#(B

$B$d$j$?$$$3$H$O$3$&$$$&$3$H$G$O$J$$$G$7$g$&$+(B?
--
$B?9(B $B9@Fs(B	(MORI Kouji)
($B3t(B)$B^I>BAH(B $B5;=Q8&5f=j(B
E-mail: mori@asanuma.co.jp
Technical Details
Message-ID: <5v89r0$def@shiva.tri.asanuma.co.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <5v80t7$49u$1@news.fukuoka-u.ac.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: 167b2b,74e94bb070300eea
X-Google-Attributes: gid167b2b,public
From: mori@asanuma.co.jp (Mori Kouji)
Subject: Re: script $1 wuth Fortran
Date: 1997/09/11
Message-ID: <5v89r0$def@shiva.tri.asanuma.co.jp>
X-Deja-AN: 271539535
References: <5v80t7$49u$1@news.fukuoka-u.ac.jp>
Followup-To: fj.lang.fortran
Organization: Technical Research Institute, Asanuma Corp., Takatsuki, Japan
Newsgroups: fj.lang.fortran