$B%5%V%k!<%A%s$N@bL@(B

UGVECT

  1. $B5!G=(B
    2$Bl$rIA$/!%(B
  2. $B8F$S=P$7J}K!(B
    CALL UGVECT(U,MU,V,MV,NX,NY)
  3. $B%Q%i%a!<%?!<$N@bL@(B
                                                                            
      U    (R)   $B%Y%/%H%k$N(BXmail protected],$rM?$($k(B MU  NY$B$N(B2$B
    
      
  4. $BHw9M(B
    1. $B%Y%/%H%[email protected],$NC10L$O(BV$B:BI87O$K$*$1$kC10L$H$9$k!%(B $B$?$@$7IaDL$O!$(BV$B:BI87O$NC10L$KJQ49$7$?G[Ns(BU, V $B$rM?$($kI,MW$O$J$/!$%9%1!<%j%s%0%U%!%/%?!<$rM?$($F$d$l$P$h$$!%(B $B$3$N%9%1!<%j%s%0%U%!%/%?!<$O!$(B $BFbItJQ?t(B'LNRMAL'$B$,(B.TRUE.$B!J=i4|CM!K$J$i(B $BFbItE*$K7hDj$5$l$k(B; .FALSE.$B$J$iFbItJQ?t(B'XFACT1', 'YFACT1' $B!J=i4|CM$O$=$l$>$l(B1.0)$B$r;2>H$9$k!%(B $B$7$?$,$C$F!$%9%1!<%j%s%0%U%!%/%?!<$rM[$K;XDj$7$?$1$l$P!$(B 'LNRMAL'$B$r(B.FALSE.$B$H$7$F(B 'XFACT1', 'YFACT1'$B$r@_Dj$7$F$d$l$P$h$$!%(B $B$5$i$K!$(B'LNRMAL'$B$,(B.TRUE.$B$N$H$-!$(B $BFbItJQ?t(B'LEQRAT'$B$,(B.TRUE.$B$J$i$P(BX$B$H(BY$B$N(B $B%9%1!<%j%s%0%U%!%/%?!<$rF1$8$K$9$k(B $B!J=i4|CM$O(B .TRUE.).
    2. $B%Y%/%H%k$O(BUFPACK$B!JBh(B[here]$B>O;2>H!K$N$J$+$N(B UFLNZV$B$K$h$C$FIA$+$l$k!%(B $B$7$?$,$C$F%Y%/%H%k$N7A$O(BUFPGET/UFPSET$B$N4IM}$9$k(B $BFbItJQ?t$K$h$C$F7h$^$k!%(B $B$?$@$7!$%Y%/%H%k$rIA$/@~J,$N%i%$%s%$%s%G%/%9$OFbItJQ?t(B'INDEX'$B$,(B $B7h$a$k!J=i4|CM$O(B3). $B$^$?!$FbItJQ?t(B'ICENT'$B$K$h$C$F%Y%/%H%k$N;OE@$r3J;RE@$KBP$7$F(B $B$I$3$K$H$k$+;XDj$G$-$k!%(B 'ICENT'$B$,(B+1$B$J$i%Y%/%H%k$N=*E@$,3J;RE@$H0lCW$9$k$h$&$KIA$/(B; 0$B$J$i%Y%/%H%k$NCfE@$,3J;RE@$H0lCW$9$k$h$&$KIA$/(B; -1$B$J$i%Y%/%H%k$N;OE@$,3J;RE@$H0lCW$9$k$h$&$KIA$/(B $B!J=i4|CM$O(B0).
    3. X$BJ}8~$N3J;RE@$N:BI8$,(BUWSGXA$B$^$?$O(BUWSGXB $B$K$h$C$F@_Dj$5$l$F$$$J$$>l9g!$(BSGQWND$B$G%&%$%s%I%&>pJs$r(B $BUXMIN, UXMAX$B$r(BNX-1$BEyJ,$9$k$h$&$J(B $B3J;RE@$r@_Dj$9$k!%(B
    4. Y$BJ}8~$N3J;RE@$N:BI8$,(BUWSGYA$B$^$?$O(BUWSGYB $B$K$h$C$F@_Dj$5$l$F$$$J$$>l9g!$(BSGQWND$B$G%&%$%s%I%&>pJs$r(B $BUYMIN, UYMAX$B$r(BNY-1$BEyJ,$9$k$h$&$J(B $B3J;RE@$r@_Dj$9$k!%(B
    5. GLpGET/GLpSET$B!J!V(BMATH1$B!W$N%^%K%e%"%k;2>H!K$N(B $B4IM}$9$kFbItJQ?t(B'LMISS'$B$,(B .TRUE.$B$J$i7gB;CM=hM}$r$*$3$J$&(B; $B!J$=$N:]!$;2>H$9$k7gB;CM$O(B GLpGET/GLpSET$B$N4IM}$9$k(B $BFbItJQ?t(B'RMISS'$B$G$"$k!K(B .FALSE.$B$J$i7gB;CM=hM}$r$*$3$J$o$J$$!%(B $B$3$3$G$$$&7gB;CM=hM}$H$O!$%Y%/%H%k$N(BX$B$^$?$O(BYmail protected],$N$&$A(B $B>/$J$/$H$b0lJ}$,7gB;CM(B $B!J0J2<$G$O!$$3$N$h$&$J%Y%/%H%k$r7gB;CM%Y%/%H%k$H8F$V!K(B $B$N$H$-$K$*$3$J$o$l$k=hM}$N$3$H$G$"$k!%(B $B6qBNE*$K$O!$FbItJQ?t(B'LMISSP'$B$,(B .TRUE.$B$N$H$-$=$N3J;RE@$K%^!<%/$rIA$/(B $B!JIA$/%^!<%/$N%^!<%+!<%?%$%W!$%^!<%+!<%$%s%G%/%9!$(B $B%^!<%+!<%5%$%:$OFbItJQ?t(B 'ITYPE1', 'INDEX', 'RSIZEM'$B$r;2>H$9$k!%(B $B=i4|CM$O$=$l$>$l(B5, 3, 0.01. ); .FALSE.$B$J$i!$$J$K$bIA$+$J$$(B $B!J=i4|CM$O(B.FALSE.). $B$^$?!$FbItJQ?t(B'LSMALL'$B$,(B.TRUE.$B$J$i(B $BFbItJQ?t(B'RSMALL'$B$,7h$a$kCM0J2<$N%Y%/%H%kD9$N(B $B%Y%/%H%k$K$D$$$F$b>e$HF1MM$J=hM}$r$*$3$J$&!%(B $B$?$@$7IA$/%^!<%+!<$N%^!<%+!<%?%$%W$O!$(B $BFbItJQ?t(B'ITYPE2'$B$r;2>H$9$k!%(B ('LSMALL', RSMALL, ITYPE2$B$N=i4|CM$O$=$l$>$l(B .FALSE., 0.001, 1. )
    6. $B:n2h$r$*$3$J$&A0$K$9$Y$F$N%Y%/%H%kCM$N%A%'%C%/$r$*$3$J$&!%(B $Bl9g:n2h$O$*$3$J$o$:$=$N;]%a%C%;!<%8$,=PNO$5$l$k!%(B $B$5$i$KFbItJQ?t(B'LMSG'$B$,(B .TRUE.$B$N$H$-%0%i%U$N2.FALSE.$B$N$H$-%a%C%;!<%8$r=q$+$J$$(B $B!J=i4|CM$O(B.TRUE.). 2$B$D$N>l9g$H$O(B:
      • $B$9$Y$F$N%Y%/%H%k$,7gB;CM%Y%/%H%k$N$H$-(B(missing field).
      • $B$9$Y$F$N%Y%/%H%k$,%<%m%Y%/%H%k$N$H$-(B(zero field).
    7. $BFbItJQ?t(B'LUNIT'$B$,(B.TRUE.$B$J$i%f%K%C%H%Y%/%H%k$rIA$/(B; .FALSE.$B$J$iIA$+$J$$!J=i4|CM$O(B.FALSE.). $B%f%K%C%H%Y%/%H%k$O!$FbItJQ?t(B'VXULOC', 'VYILOC' (V$B:BI87O$K$*$1$k(Bx,y$B:BI8CM(B:$B=i4|CM$OITDj!K$rM[$K;XDj$7$J$1$l$P(B $B%S%e!<%]!<%H$N1&2<6y$+$iFbItJQ?t(B 'VXUOFF', 'VYUOFF'$B$G7h$^$kNL$@$1$O$J$l$?0LCV$KIA$+$l$k(B ('VXUOFF', 'VYUOFF'$B$N=i4|CM$O(B0.02, 0). $B$^$?%f%K%C%H%Y%/%H%k$ND9$5$O!$FbItJQ?t(BVXUNIT, VYUNIT$B$G(B $B7h$^$k!JC10L$O(BV$B:BI87O(B;$B=i4|CM$O(B0.05, 0.05). $B$?$@$7FbItJQ?t(BUXUNIT, UYUNIT$B$,M[$K@_Dj$5$l$F$$$l$P(B $B$=$l$i$NCM$rMQ$$$k!J=i4|CM$OITDj!K(B. UXUNIT, UYUNIT$B$O(BVXUNIT, VYUNIT$B$H0c$C$F(B $B%f%K%C%H%Y%/%H%k$,<($9'LUNIT'$B$,(B.TRUE.$B$N$H$-!$(B $BFbItJQ?t(B'LUMSG'$B$,(B.TRUE.$B$J$i%f%K%C%H%Y%/%H%k$N(B $BBg$-$5$r?^$N2.TRUE.); 'LUNIT'$B$,(B.FALSE.$B$N$H$-!$(B $BFbItJQ?t(B'LMSG'$B$,(B.TRUE.$B$J$i%9%1!<%j%s%0%U%!%/%?!<$r(B $B?^$N2.TRUE.). $B$3$l$i$N%a%C%;!<%8$O(BUXPTTL ([here]$B@a;2>H!K$r;H$C$F=q$/!%(B $B$7$?$,$C$F!$$^$::BI8<4$rIA$$$?8e$G(BUGVECT$B$r8F$V$Y$-$G$"$k!%(B

UGSUT

  1. $B5!G=(B
    $B%f%K%C%H%Y%/%H%k$K$D$1$k%?%$%H%k$r@_Dj$9$k!%(B
  2. $B8F$S=P$7J}K!(B
    CALL UGSUT(CSIDE,CTTL)
  3. $B%Q%i%a!<%?!<$N@bL@(B
                                                                            
      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                                    
                                                                            
    
  4. $BHw9M(B
    1. $B@_Dj$G$-$k%?%$%H%k$N?t$O:GBg(B10$B8D!$(B $B$^$?%?%$%H%k$ND9$5$O:GBg(B32$BJ8;z$G$"$k!%(B
    2. $B%?%$%H%kJ8;z$N%i%$%s%$%s%G%/%9$O!$(B $BFbItJQ?t(B'IUINDX'$B$,7h$a$k!J=i4|CM$O(B3). $B$^$?!$%?%$%H%k$N2sE>3Q$O(BX$B$*$h$S(BY$BJ}8~$K$D$$$F$=$l$>$lFbItJQ?t(B 'IUTXRO', 'IUTYRO'$B$,7h$a$k(B $B!J=i4|CM$O$=$l$>$l(B0, 90:$BC10L$OEY!K(B.

UGpGET/UGpSET(UGpSTX)

  1. $B5!G=(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
  2. $B8F$S=P$7J}K!(B
    CALL UGpGET(CP,IPARA)
    CALL UGpSET(CP,IPARA)
    CALL UGpSTX(CP,IPARA)
  3. $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$N2H$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}                                     
                                                                            
    
  4. $BHw9M(B
    1. $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  
                                                                          
      
    2. 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
    3. ITYPE$B$H$7$F$OE,@Z$J7?$NDj?t$^$?$OJQ?t$r;XDj$9$k$3$H!%(B

$B$=$NB>$N%5%V%k!<%A%s!&4X?t(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  
                           


Back to Main


Latex Source


$BCO5eN.BNEEG>6f3ZIt(B : 95/6/9 (Version 5.0)

NUMAGUTI Atusi <[email protected]>
Last Modified: Thu Aug 31 13:08:38 EDT 1995