2$Bl$rIA$/!%(B
CALL UGVECT(U,MU,V,MV,NX,NY)
U (R) $B%Y%/%H%k$N(BX[email protected],$rM?$($k(B MU NY$B$N(B2$B
$B%f%K%C%H%Y%/%H%k$K$D$1$k%?%$%H%k$r@_Dj$9$k!%(B
CALL UGSUT(CSIDE,CTTL)
CSIDE (C*1) $B%?%$%H%k$r$D$1$k0LCV$r;XDj$9$k!%(B 'X' (X$BJ}8~$N%Y%/%H%k!K(B, 'Y' (Y$BJ}8~$N%Y%/%H%k!K$,;XDj$G$-$k!%(B CTTL (C*(*)) $B$D$1$k%?%$%H%k!%(B
UGPACK$B%5%V%k!<%A%s%Q%C%1!<%8$G;HMQ$9$kFbItJQ?t$r;2>H(B/$BJQ99$9$k!%(B (UGpSTX$B$O- $B8F$S=P$7J}K!(B
CALL UGpGET(CP,IPARA)
CALL UGpSET(CP,IPARA)
CALL UGpSTX(CP,IPARA)- $B%Q%i%a!<%?!<$N@bL@(B
CP (C*8) $BFbItJQ?t$NL>A0!%(B IPARA (I,R,L) $BFbItJQ?t$NCM!%(B
$B0J2<$K(BCP$B$H$7$F;XDj$G$-$kL>A0$N%j%9%H$r5-$9!%(B
'INDEX' (I) $B%Y%/%H%k$rIA$/@~J,$N%i%$%s%$%s%G%/%9!%(B $B$*$h$S(B'LMISSP', 'LSMALL'$B$,(B.TRUE.$B$N$H$-$K(B $BIA$/%^!<%+!<$N%i%$%s%$%s%G%/%9!J=i4|CM$O(B3 ) . [-1ex]0ex1ex} 'LNRMAL' (L) $BFbItE*$K%9%1!<%j%s%0%U%!%/%?!<$r7h$a$k$+$I$&$+$r;X(B $BDj$9$k!%(B .TRUE.$B$N$H$-FbItE*$K7h$a$k(B; .FALSE.$B$N$H$-FbItJQ?t(B'XFACT1', 'YFACT1$B$r(B $B;2>H$9$k!J=i4|CM$O(B.TRUE.). [-1ex]0ex1ex} 'LEQRAT' (L) $BFbItE*$K%9%1!<%j%s%0%U%!%/%?!<$r7h$a$k$H$-(B ('LNRNAL'$B$,(B.TRUE.$B$N$H$-!K(BX$BJ}8~$H(BY$BJ}8~$N(B $B%9%1!<%j%s(B $B%0%U%!%/%?!<$rF1$8$K$9$k$+$I$&$+$r;XDj$9$k!%(B .TRUE.$B$J$iF1$8$K$9$k(B $B!J=i4|CM$O(B.TRUE.) . [-1ex]0ex1ex} 'XFACT1' (R) 'LNRNAL'$B$,(B.FALSE.$B$N$H$-$K;2>H$9$k(B X$BJ}8~$N%9%1!<%j%s%0%U%!%/%?!H$9$k(B Y$BJ}8~$N%9%1!<%j%s%0%U%!%/%?!H$9$k%Y%/%H%k$NBg$-$5$N$7$-$$(B $BCM(B $B!J=i4|CM$O(B0.001). [-1ex]0ex1ex} 'ITYPE2' (I) $BFbItJQ?t(B'LSMALL'$B$,(B.TRUE.$B$N$H$-!$(B $B$=$N3J;RE@$KIA$/%^!<%+!<$N%^!<%+!<%?%$%W!J=i4|CM$O(B 1). [-1ex]0ex1ex} 'RSIZEM' (R) 'LMISSP', 'LSMALL'$B$,(B.TRUE.$B$N$H$-$KIA$/(B $B%^!<%+!<$N%^!<%+!<%5%$%:!J=i4|CM$O(B0.01) . [-1ex]0ex1ex} 'RSIZET' (R) $B%0%i%U$N2H$9$k(B( [here] $B@a;2>H!K(B. [-1ex]0ex1ex} 'XTTL' (R) $B%0%i%U$N2 H$9$k(B([here] $B@a;2>H!K(B. [-1ex]0ex1ex} 'IUINDX' (I) $B%f%K%C%H%Y%/%H%k$K$D$1$k%?%$%H%k$N%i%$%s%$%s%G%/%9(B $B!J=i4|CM$O(B3). [-1ex]0ex1ex} 'IUTXRO' (I) X$BJ}8~$N%f%K%C%H%Y%/%H%k$K$D$1$k%?%$%H%k$N2sE>3Q(B $B!JC10L$OEY(B;$B=i4|CM$O(B0). [-1ex]0ex1ex} 'IUTYRO' (I) Y$BJ}8~$N%f%K%C%H%Y%/%H%k$K$D$1$k%?%$%H%k$N2sE>3Q(B $B!JC10L$OEY(B;$B=i4|CM$O(B90) . $B%?%$%H%k$ND9$5$,(B1$B$N$H$-$K8B$C$F(B'IUTYRO'$B$O(B90$B0J30$N(B $BCM$r(B $B$H$k$3$H$,5v$5$l$k!%(B [-1ex]0ex1ex} 'IUNDEF' (I) $BCM$,ITDj$G$"$k$3$H$r<($9FbItJQ?t(B $B!J=i4|CM$O(B-999) . [-1ex]0ex1ex} - $BHw9M(B
- $BFbItJQ?t$r4IM}$9$k$?$a$N2<@A$1%k!<%A%s$H$7$F(B $B0J2<$N$b$N$,$"$k!%(B
UGPQNP(NCP) $BFbItJQ?t$NAm?t(BNCP$B$r5a$a$k!%(B UGPQID(CP,IDX) $BFbItJQ?t(BCP$B$N0LCV(BIDX$B$r5a$a$k!%(B UGPQCP(IDX,CP) IDX$B$N0LCV$K$"$kFbItJQ?t$NL>A0(BCP$B$r;2>H$9$k!%(B UGPQVL(IDX,IPARA) IDX$B$N0LCV$K$"$kFbItJQ?t$NCM(BIPARA$B$r;2>H$9$k!%(B UGPSVL(IDX,IPARA) IDX$B$N0LCV$K$"$kFbItJQ?t$NCM(BIPARA$B$rJQ99$9$k!%(B- UGpGET$B$O>e$K=R$Y$?(BUGPQID$B$r8F$s$G(B $BFbItJQ?t$N0LCV$r5a$a!$(BUGPQVL$B$K$h$C$FCM$r;2>H$9$k(B; UGpSET$B$O(BUGPQID$B$r8F$s$GFbItJQ?t$N0LCV$r5a$a!$(B UGPSVL$B$K$h$C$FCM$r@_Dj$9$k!%(B $B$7$?$,$C$F;XDj$7$?FbItJQ?tL>$,8+$D$+$i$J$$$H$-!$(B $B%(%i!<%a%C%;!<%8$O(BUGPQID$B$,=PNO$9$k!%(B
- ITYPE$B$H$7$F$OE,@Z$J7?$NDj?t$^$?$OJQ?t$r;XDj$9$k$3$H!%(B
$B$3$N%Q%C%1!<%8$K$O$3$N$[$+$K0J2<$N2<0L%k!<%A%s!&4X?t$,$"$k!%(B $B$3$3$G$O$=$NL>A0$r$"$2$k$K$H$I$a$k!%(B
UGVXVY UGUNIT UGDUT
NUMAGUTI Atusi <[email protected]> Last Modified: Thu Aug 31 13:08:38 EDT 1995