🚀 go-pugleaf

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

On Thu 11 Sep 1997 14:51 JST, ICHIMIYA Katsuya wrote:
>$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!E!E$H$$$&$N$O!$Nc$($P!$<!$N$h$&$J$3$H$G$7$g$&$+!#(B

---< $B$3$3$+$i(B >---
% cat test.f
      program   main
      integer   n,i
      character bf*32
      n=iargc()
      do i=1,n
        call getarg(i,bf)
        write(*,'(i3,2x,a)') i, bf
      enddo
      end
% f77 test.f
% a.out abc def ghi
  1  abc                             
  2  def                             
  3  ghi                             
%
---< $B$3$3$^$G(B >---

>NEC EWS4800$B%7%j!<%:(B
>System V
>UP fortran
>$B$r;H$C$F$^$9!#(B

$B!E!E$H$$$&$3$H$J$N$G!$;H$C$F$$$k%3%s%Q%$%i$O0c$&$+$b$7$l$^$;$s$,!$(B
$B0l1~!$>e$NNc$b!$(BEWS4800 $B$G$N<B9T7k2L$G$9!#(B

$B$J$*!$4X?t(B iargc $B$d%5%V%k!<%A%s(B getarg $B$O=hM}7O0MB8$N3HD%5!G=$G$9!#(B
$B>\:Y$O(B `man getarg` $BEy$r;29M$K$7$F2<$5$$!#(B

---
$BDZ;3NIIW!$G@?e>J?9NSAm9g8&5f=j(B

From article <5v89r0$def@shiva.tri.asanuma.co.jp>
	by mori@asanuma.co.jp

 > From: mori@asanuma.co.jp (Mori Kouji)
 > Subject: Re: script $1 wuth Fortran
 > Message-ID: <5v89r0$def@shiva.tri.asanuma.co.jp>
 > 
 > 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

1)$B$ODZ;3$5$s$+$i(Breply$B$"$j$^$7$?!#(B

2)$B$G$9$,!"(Bargc,argv$B$r;H$C$F$9$k$H$$$&$N$O!"(BFortaran$B$7$+$7$J$$(B
$BEv8&5f<<$G<u$1F~$l$i$l$k$+?4G[$G$9!#(B
$B!!$G$b!"2rK!$,$J$1$l$P!"$3$l$r$D$+$C$F$^$7$?!#(B


 > 3) $B$NJ}K!$@$H!"(B
 > 
 >   hoge.sh
 > 
 >   hoge.f
 >     1:       CHARACTER*80 FLIN, FLOUT
 >     2:       READ(5,*) FLIN
 >     3:       READ(5,*) FLOUT
 > 
 >    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$*!<!"JXMx$G$9!#(B

$B?9$5$s!"$"$j$,$H$&$4$6$$$^$9!#(B


 > From: tsubo@ffpri.affrc.go.jp (Yoshio Tsuboyama)
 > Message-ID: <5v8p12$a5f@newsj.cc.affrc.go.jp>
 > On Thu 11 Sep 1997 14:51 JST, ICHIMIYA Katsuya wrote:
 > >$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!E!E$H$$$&$N$O!$Nc$($P!$<!$N$h$&$J$3$H$G$7$g$&$+!#(B

$B$=$&$G$9!#(B

 > ---< $B$3$3$+$i(B >---
 > % cat test.f
 >       n=iargc()
 >       do i=1,n
 >         call getarg(i,bf)
 > % a.out abc def ghi
 >   1  abc
 >   2  def
 >   3  ghi
 > %
 > ---< $B$3$3$^$G(B >---
 >
 > >NEC EWS4800$B%7%j!<%:(B
 > >UP fortran

EWS-UX $B$N$h$&$G$9!#(B

 > $B!E!E$H$$$&$3$H$J$N$G!$;H$C$F$$$k%3%s%Q%$%i$O0c$&$+$b$7$l$^$;$s$,!$(B
 > $B0l1~!$>e$NNc$b!$(BEWS4800 $B$G$N<B9T7k2L$G$9!#(B


 > $B$J$*!$4X?t(B iargc $B$d%5%V%k!<%A%s(B getarg $B$O=hM}7O0MB8$N3HD%5!G=$G$9!#(B
 > $B>\:Y$O(B `man getarg` $BEy$r;29M$K$7$F2<$5$$!#(B

$BDZ;3$5$s!"$"$j$,$H$&$4$6$$$^$9!#(B

$BEvBg3X$K$O!"(Bgetarg$B$N%*%s%i%$%s%^%K%e%"%k$O$J$$$h$&$G$9!#(B
NEC$B$N(Bftp$B$K$O$"$j$^$9$+!)$=$l$H$b#18D?M$,2<$5$$$H$$$C$F$b(B
$B%i%$%;%s%9$7$F$"$kBg3X$,8@$o$J$$$H!JGc$o$J$$$H!)!K%@%a$G$9$+!)(B

$B$J$*!"N>J}$H$b!"$3$A$i$GF0:n$9$k$3$H$r3NG'$7$^$7$?!#(B
$B$3$l$G3Z$K$J$j$^$9!#(B

$B46<U!"46<U!#(B:-)
--------------------------------
$B0l5\(B  $B9nLo(B  Ichimiya Katsuya JK6LRI
$BJ!2,Bg3X(B  $B9)3X8&5f(B  $B7z@_9)3X(B  M2
Mail:td964001@tsat.fukuoka-u.ac.jp
$BEZLZ3X2q@>It;YIt!"6e=82q(B(InterNet)$B!"3X@8$@$1$N=8$^$j$G$9!#(B
http://133.100.222.30/kyusyu/

In article <5v80t7$49u$1@news.fukuoka-u.ac.jp>, td964001@cc.fukuoka-u.ac.jp 
says...
>$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%U%)!<%H%i%s$NI8=`F~=PNO$r;HMQ$7$F$b$$$$$N$G$"$l$P0J2<$N$h$&$K$G$-$^$9!#(B

$B%7%'%k%9%/%j%W%H(B
#! /bin/csh
echo $1 | test > $1.SS
          

$B<B9T%W%m%0%i%`(B test.f
      character afile*30
c
      read(*,'(A)',end=999) afile
      open(2,file=afile,status='old')
      read(2,'(2F10.4)') result1,result2
      write(*,'(2F10.4)') result1,result2
      close(2)
  999 stop
      end

-- 
----------- Toshiyuki Tanaka -----------
Engineering Section I. Komae DEPT.
Denryoku Computing service Center Ltd.
E-mail: tana@dcc.co.jp

In article <5vaat7$t0k$1@news.fukuoka-u.ac.jp> td964001@cc.fukuoka-u.ac.jp (ICHIMIYA Katsuya) writes:

>  > $B$J$*!$4X?t(B iargc $B$d%5%V%k!<%A%s(B getarg $B$O=hM}7O0MB8$N3HD%5!G=$G$9!#(B
>  > $B>\:Y$O(B `man getarg` $BEy$r;29M$K$7$F2<$5$$!#(B

> $BEvBg3X$K$O!"(Bgetarg$B$N%*%s%i%$%s%^%K%e%"%k$O$J$$$h$&$G$9!#(B

MANPATH $B$K(B FORTRAN $B$N%^%K%e%"%k$,$"$k%G%#%l%/%H%j$,F~$C$F$$$J$$$N$G$O(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

From article <5vakpm$a9n@shiva.tri.asanuma.co.jp>
	by mori@asanuma.co.jp

> Subject: Re: script $1 wuth Fortran
> Message-ID: <5vakpm$a9n@shiva.tri.asanuma.co.jp>
> 
> In article <5vaat7$t0k$1@news.fukuoka-u.ac.jp> td964001@cc.fukuoka-u.ac.jp (ICHIMIYA Katsuya) writes:
> 
> >  > $B>\:Y$O(B `man getarg` $BEy$r;29M$K$7$F2<$5$$!#(B
> 
> > $BEvBg3X$K$O!"(Bgetarg$B$N%*%s%i%$%s%^%K%e%"%k$O$J$$$h$&$G$9!#(B
> 
> MANPATH $B$K(B FORTRAN $B$N%^%K%e%"%k$,$"$k%G%#%l%/%H%j$,F~$C$F$$$J$$$N$G$O(B?

$B!!:#D+!"EE;;%;%s%?!<$NJ}$KJ9$$$F$_$k$H!"(BFORTRAN$B$N%^%K%e%"%k$rF~$l$F$[$7$$$H(B
$BA0$+$iMj$s$G$$$k$,!"$^$@F~$l$F$/$l$F$J$$$H$$$o$l$^$7$?!#(B

$B$9$k$HD4$Y$k;v$OIT2DG=$J$N$G$7$g$&$+!)(B

--------------------------------
$B0l5\(B  $B9nLo(B  Ichimiya Katsuya 
$BJ!2,Bg3X(B  $B9)3X8&5f(B  $B7z@_9)3X(B  M2
Mail:td964001@tsat.fukuoka-u.ac.jp

In article <5vl05v$o7p$1@news.fukuoka-u.ac.jp> td964001@cc.fukuoka-u.ac.jp (ICHIMIYA Katsuya) writes:

> > >  > $B>\:Y$O(B `man getarg` $BEy$r;29M$K$7$F2<$5$$!#(B
> > 
> > > $BEvBg3X$K$O!"(Bgetarg$B$N%*%s%i%$%s%^%K%e%"%k$O$J$$$h$&$G$9!#(B
> > 
> > MANPATH $B$K(B FORTRAN $B$N%^%K%e%"%k$,$"$k%G%#%l%/%H%j$,F~$C$F$$$J$$$N$G$O(B?
> 
> $B!!:#D+!"EE;;%;%s%?!<$NJ}$KJ9$$$F$_$k$H!"(BFORTRAN$B$N%^%K%e%"%k$rF~$l$F$[$7$$$H(B
> $BA0$+$iMj$s$G$$$k$,!"$^$@F~$l$F$/$l$F$J$$$H$$$o$l$^$7$?!#(B
> 
> $B$9$k$HD4$Y$k;v$OIT2DG=$J$N$G$7$g$&$+!)(B

getarg $B$O3HD%5!G=$G$9$+$i!";f$N%^%K%e%"%k$,$"$l$P:\$C$F$k2DG=@-$,(B
$B9b$$$H;W$$$^$9!#(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