🚀 go-pugleaf

$B1286!w7D1~$G$9!#(J

In article <1992Jul20.101517.9293@kei.is.s.u-tokyo.ac.jp>
 oyanagi@is.s.u-tokyo.ac.jp (OYANAGI Yoshio) writes:
 > > >>	 $BG[Ns$N%5%$(J$B%:$,2DJQ$H$$$&$3$H$G$9$+!"$=$l$OM-L>$J(J
 > > >>	 variable dimension 
 >
 > > >$B$3$l$O(JJIS$B?e=`(J7000$B$N5,3J=q(J$B!J$U!$8E$$!K$G$O(Jadjustable
 > > >dimension ($B@09gG[Ns(J) $B$H$J$C$F$*$j$^$7$?$,!$:G6a$O8F$SL>$,JQ(J
 > > >$B$o(J$B$C$?$N$G$7$g$&$+!%!J$b$&(JFORTRAN$B$r;H$o$J$/$J$C$FD9$$$b$N$G!K(J
 >
 > >$B$*$C$7$c$k$H$*$j!"(Jadustable dimension $B$,@5$7$$!#(J
 > >$B#F#o#r#t#r#a#n!!#9#0$N5,3J$K$O$J$s$H=P$F$$$k$@$m$&!#(J
 >
 >$B<+J,$GD4$Y$^$7$?!#$?$V$s(J$B!"(Jassumed-size array $B$H$+$$$&$N$,(J
 >$BBP1~$7$F$$$k$h$&$G$9!#(J

$B#9#0$G!"(J"assumed-size array"$B$H$$$&$N$O!"(J

	SUBROUTINE AFO(A,B,C,DIM1)
	DIMENSION A(*), B(100,1:*), C(DIM1,*)

$B$H:G=*<!85$N$H$3$m$N(Jupper bound$B$K(J$B!v$,;XDj$5$l$F$$$k>l9g$G$9!#(J

      SUBROUTINE JJJ(A,SIZE)
      DIMENSION A(SIZE)
      INTEGER SIZE

$B$NNc$G!"(JA$B$O(J "explicit-shape array"$B$H$$$$$^$9!#(J

 >>  >$B=hM}$7$F$$$k$N$,LdBj$G!"(J
 >>  >dimension$B!!(Ja(size) $B$H!!(Jinteger size $B$N=q$/=g$rF~$l49$($F(J
 >----some lines deleted
 >
 >> 	$B$=$l$O(JTitan$B$,$5$\$C$F$k$s(J$B$8$c$J$$$G$9$+!)(J
 >> 	integer $B@k8@$H(J dimension $B@k8@$N=g=x$O5,Dj$5$l$F$J$$$O$:$G$9!#(J
 >----some lines deleted
 >
 >$B>.Lx@h@8!"$3$l$O!";d$O0[O@$,$"$j$^$9!#(J
 >
 >JIS$B5,3J(J 5.1.1.1 $B!V@#K!@k8@;R$N7A!W(J
 >$B!J@#K!$N(J$B!K8B3&<0$NCf$K$"$i$o$l$kDj?tL>5Z$SJQ?tL>$O!"0EL[$N7?@k8@$K$h$C$F@0?t7?$K;XDj$5$l$F$$$J$$$J$i$P!"8B3&<0(J$B$NCf$K8=$l$k$h$jA0$K!"(JIMPLICIT $BJ8Kt$O7?@k8@J8$G(J
 >$B@0?t7?$H$7$F@k8@$7$F$*$+$J$1$l$P$J$i$J$$!#(J

 >	$B$*$C(J$B$7$c$k$H$*$j$G$9!#$o$?$7$b5,3J=q$rFI$s$G$_$^$7$?!#(J
 >	$B#9#0$O$I$&$J$C$F$$$k$G$7$g$&$M!#:#$N$H$3$m!"ITL@(J$B$G$9!#(J

JIS$B$N$h$&$J5,Dj$O$J$$$h$&$G$9$,!D!#(J
$B>.Lx@h@8$N$*$C$7$c$k$h$&$K!"(JJIS$B$N5,Dj$,$J$/$F$b%3%s%Q%$%i(J$B$O(J
$B$<$s$<$s:$$i$J$$$G$7$g$&!#;d$O$`$7$m(JJIS$B$K$I$&$7$F$=$s$J5,Dj$,$"$k$N$+(J
$BIT;W5D$K;W$$$^$7$?!#(J

----
$B$&(J$B$:!w$I$s$I$s3Z$7$$JBNs%^%7%s$r:n$C$F$/$@$5$l!A(J