$B%5%V%k!<%A%s$N%j%9%H(B

$B>e0L1~MQ%k!<%A%s(B (ULA)

                                                                      
  UXAXDV(CSIDE,DX1,DX2)             $BL\@9$H%i%Y%k$rIA$/4V3V$r;XDj$7$F(B  
                                    $B:BI8<4$rIA$/!%(B                    
                                                                      
  UYAXDV(CSIDE,DY1,DY2)                                               
                                                                      
  UXAXNM(CSIDE,UX1,N1,UX2,N2)       $BL\@9$H%i%Y%k$rIA$/>l=j$r(B          
                                    $B;XDj$7$F:BI8<4$rIA$/!%(B            
                                                                      
  UYAXNM(CSIDE,UY1,N1,UY2,N2)                                         
                                                                      
  UXAXLB                            $BL\@9$H%i%Y%k$rIA$/>l=j$r(B          
  (CSIDE,UX1,N1,UX2,CH,NC,N2)       $B;XDj$7$F:BI8<4$rIA$/!%(B            
                                                                      
  UYAXLB                                                              
  (CSIDE,UY1,N1,UY2,CH,NC,N2)                                         
                                                                      
  UXMTTL(CSIDE,CTTL,PX)             $BBg$-$a$N%?%$%H%k$rIA$/!%(B          
                                                                      
  UYMTTL(CSIDE,CTTL,PY)                                               
                                                                      
  UXSTTL(CSIDE,CTTL,PX)             $B>.$5$a$N%?%$%H%k$rIA$/!%(B          
                                                                      
  UYSTTL(CSIDE,CTTL,PY)

$B2<0L1~MQ%k!<%A%s(B (LLA)

                                                                   
  UXPAXS(CSIDE,ISLCT)              $B<4$r<($9@~J,$rIA$/!%(B            
                                                                   
  UYPAXS(CSIDE,ISLCT)                                              
                                                                   
  UXPTMK(CSIDE,ISLCT,UX,N)         $BL\@9$rIA$/!%(B                    
                                                                   
  UYPTMK(CSIDE,ISLCT,UY,N)                                         
                                                                   
  UXPLBL(CSIDE,ISLCT,UX,CH,NC,N)   $BJ8;zNs$G;XDj$7$?%i%Y%k$rIA$/!%(B  
                                                                   
  UYPLBL(CSIDE,ISLCT,UY,CH,NC,N)                                   
                                                                   
  UXPNUM(CSIDE,ISLCT,UX,N)         $B?tCM$G;XDj$7$?%i%Y%k$rIA$/!%(B    
                                                                   
  UYPNUM(CSIDE,ISLCT,UY,N)                                         
                                                                   
  UXPTTL(CSIDE,ISLCT,CTTL,PX)      $B%?%$%H%k$rIA$/!%(B                
                                                                   
  UYPTTL(CSIDE,ISLCT,CTTL,PY)

UZPACK 

                                                                       
  UZpGET(CP,IPARA)   $BFbItJQ?t$r;2>H$9$k!%(B                              
                                                                       
  UZpSET(CP,IPARA)   $BFbItJQ?t$rJQ99$9$k!%(B                              
                                                                       
  UZpSTX(CP,IPARA)   $BFbItJQ?t$rJQ99$9$k(B                                
                     $B!J

$B%5%V%k!<%A%s$N@bL@(B : $B>e0L1~MQ%k!<%A%s(B (ULA)

$B$3$N%5%V%k!<%A%s%Q%C%1!<%8(B UXPACK/UYPACK/UZPACK $B$K$*$$$F!$UZpGET/UZpSET$B$K$h$C$F(B $B;2>H(B/$BJQ99$9$k$3$H$,$G$-$k!%(B $B>e0L1~MQ%k!<%A%s(B(ULA)$B$K4X$9$k0J2<$N@bL@$G$O!$(B $BFbIt$G8F$P$l$F$$$k2<0L1~MQ%k!<%A%sL>$,(B $B$7$P$7$P0zMQ$5$l$k$N$G!$$/$o$7$/$O(B[here]$B@a$r;2>H$N$3$H!%(B

$B>e0L1~MQ%k!<%A%s(B(ULA)$B$K4^$^$l$k%5%V%k!<%A%s$H$7$F$O0J2<$N$b$N$,$"$k!%(B

$BEy4V3V$NL\@9$H?tCM%i%Y%k$rIA$/$@$1$J$i(BUXAXDV/UYAXDV$B$rMQ$$$l$P$h$$!%(B $BITEy4V3V$NL\@9$H?tCM%i%Y%k$rIA$-$?$1$l$P(BUXAXNM/UYAXNM$B$r(B $BMQ$$$l$P$h$$!%(B $B?tCM%i%Y%k$N%U%)!<%^%C%H$O%f!<%6!<$,;XDj$9$k$3$H$b2DG=$J$N$G!$(B $B?tCM%i%Y%k:BI8<4$NIA2h$O$[$\$3$l$i$N%k!<%A%s$G;vB-$j$k!%(B $B$=$l$G$bK~B-$G$-$J$$>l9g$O!$L\@9$H%i%Y%k$rIA$/0LCV$5$i$K$O(B $BIA$/%i%Y%k$r;XDj$9$k%k!<%A%s(BUXAXLB/UYAXLB$B$rMQ$$$l$P$h$$!%(B $B$^$?!$%?%$%H%k$O(BUXMTTL/UYMTTL, UXSTTL/UYSTTL$B$K$h$C$F!$(B $BIA$$$?%i%Y%kEy$N%*%U%;%C%HNL$r5$$K$7$J$/$F$b(B $B

$B0J2<$N@bL@$G6&DL$7$F$"$i$o$l$k0z?t(B CSIDE $B$O!$(B $B:BI8<[email protected]$rIA$/>l=j$r;XDj$9$k%Q%i%a!<%?!<$G!$(B X$B<4$K$D$$$F$O(B 'B', 'T', 'U' $B$,;XDj$G$-$k(B; Y$B<4$K$D$$$F$O(B 'L', 'R', 'U' $B$,;XDj$G$-$k(B $B!J$/$o$7$/$O(B[here]$B@a;2>H!K(B.

$BL\@9$O(BCSIDE$B$9$Y$F$NA*Br$K$D$$$FIA$+$l$k!%(B $B$7$+$7%i%Y%k$rIA$/$+$I$&$+$O!$>l=j$K0MB8$7$?FbItJQ?t(B'LABELzs'$B$,7h$a$k!%(B $B$3$NFbItJQ?t$,(B.TRUE.$B$J$iIA$/!$(B.FALSE.$B$J$iIA$+$J$$(B $B!J=i4|CM$O!$(B.TRUE., .FALSE., .TRUE., .TRUE., .FALSE., .TRUE.). $B$D$^$j=i4|@_Dj$G$O!$2<(B('B')$B$N:BI8<4$H:8(B('L')$B$N(B $B:BI8<4$K$D$$$F%i%Y%k$rIA$/$,!$>e(B('T')$B$N:BI8<4$H1&(B('R')$B$N(B $B:BI8<4$K$D$$$F$O%i%Y%k$rIA$+$J$$(B $B!J%f!<%6!<$N:BI8<4$O%i%Y%k$rIA$/!K(B.

$B0J2<$N%k!<%A%s$N$&$A!$(BUXAXLB/UYAXLB, UXAXNM/UYAXNM, UXAXDV/UYAXDV$B$K$D$$$F$O!$(B $BFbItJQ?t(B'LOFFSET'$B$,(B.TRUE.$B$J$i(B $B:BI87O$r%j%K%"%*%U%;%C%H$9$k(B;.FALSE.$B$J$i$7$J$$(B $B!J=i4|CM$O(B.FALSE.). $B$D$^$j!$FbItJQ?t(B'LOFFSET'$B$,(B.TRUE.$B$N$H$-(B $B UXPACK$B$K$D$$$F$OFbItJQ?t(B'XOFFSET', 'XFACT'$B$r;2>H$7$F(B $BXFACT x + XOFFSET ]

UYPACK$B$K$D$$$F$OFbItJQ?t(B'YOFFSET', 'YFACT'$B$r;2>H$7$F(B $BYFACT y + YOFFSET ]
$B$3$l$O$?$H$($P!$(B $B29EY$K4X$9$k%G!<%?$,$"$C$F%G!<%?$NC10L$O%;;a$GM?$($i$l$F$$$k$,!$(B $BL\@9$O2Z;a$GBG$A$?$$$H$$$&$H$-$J$I$KM-8z$G$"$k!%(B

UXAXDV/UYAXDV

  1. $B5!G=(B
    $BL\@9$H%i%Y%k$rIA$/4V3V$r;XDj$7$F:BI8<4$rIA$/!%(B
  2. $B8F$S=P$7J}K!(B
    CALL UXAXDV(CSIDE,DX1,DX2)
    CALL UYAXDV(CSIDE,DY1,DY2)
  3. $B%Q%i%a!<%?!<$N@bL@(B 
                                                                            
  CSIDE      (C*1)   $B:BI8<4$rIA$/>l=j$r;XDj$9$k(B (                       
                     [here] $B@a;2>H!K(B.                                   
                                                                        
  DX1,       (R)     $B>.$5$a$NL\@9$rIA$/(B $B4V3V$r;XDj$9$k(B                  
  DY1                (U$B:BI87O$NCM$G;XDj$9$k!K(B.                          
                                                                        
  DX2,       (R)     $BBg$-$a$NL\@9$*$h$S(B $B%i%Y%k$rIA$/4V3V$r;XDj$9$k(B      
  DY2                (U$B:BI87O$NCM$G;XDj$9$k!K(B. DX2$B$*$h$S(BDY2$B$O$=$l$>$l(BD  
                     X1$B$*$h$S(BDY1$B$N(B $B@0?tG\$G$J$1$l$P$J$i$J$$!%(B
  4. $BHw9M(B
    1. $BL\@9$*$h$S%i%Y%k$O;XDj$7$?4V3V$N@0?tG\$N>l=j$KIA$+$l$k!%(B
    2. UXAXDV/UYAXDV$B$O$=$l$>$l(B UXPAXS/UYPAXS (ISLCT=2)$B$G<4$rIA$$$F$$$k(B; UXPTMK/UYPTMK (ISLCT=1)$B$G>.$5$a$NL\@9$rIA$$$F$$$k(B; UXPTMK/UYPTMK (ISLCT=2)$B$GBg$-$a$NL\@9$rIA$$$F$$$k(B; UXPNUM/UYPNUM (ISLCT=1)$B$G%i%Y%k$rIA$$$F$$$k!%(B
    3. $B$3$N%k!<%A%s$OL\@9$H%i%Y%k$rIA$/>l=j$rFbIt$G@8@.$7$F(B UXPTMK/UYPTMK$B$J$I$r8F$s$G$$$k!%$3$N:n6HMQG[Ns$N@)Ls$+$i(B $BL\@9$rBG$D:GBg?t$O(B200$B0J2<$G$J$1$l$P$J$i$J$$!%(B
    4. $B%i%Y%k$N%U%)!<%^%C%H$O(BUXSFMT/UYSMFT ([here]$B@a;2>H!K$K$h$C$FJQ99$G$-$k!%(B

UXAXNM/UYAXNM

  1. $B5!G=(B
    $BL\@9$H%i%Y%k$rIA$/>l=j$r;XDj$7$F:BI8<4$rIA$/!%(B
  2. $B8F$S=P$7J}K!(B
    CALL UXAXNM(CSIDE,UX1,N1,UX2,N2)
    CALL UYAXNM(CSIDE,UY1,N1,UY2,N2)
  3. $B%Q%i%a!<%?!<$N@bL@(B 
                                                                            
  CSIDE      (C*1)   $B:BI8<4$rIA$/>l=j$r;XDj$9$k(B (                       
                     [here] $B@a;2>H!K(B.                                   
                                                                        
  UX1,       (R)     $B>.$5$a$NL\@9$rIA$/(B $B>l=j$r3JG<$7$?D9$5(BN1$B$NG[Ns(B      
  UY1                (U$B:BI87O$NCM$G;XDj$9$k!K(B.                          
                                                                        
  N1         (I)     $BG[Ns(BUX1, UY1$B$ND9$5!%(B                               
                                                                        
  UX2,       (R)     $BBg$-$a$NL\@9$*$h$S(B                                 
  UY2                $B%i%Y%k$rIA$/>l=j$r3JG<$7$?D9$5(BN2$B$NG[Ns(B             
                     (U$B:BI87O$NCM$G;XDj$9$k!K(B.                          
                                                                        
  N2         (I)     $BG[Ns(BUX2, UY2$B$ND9$5!%(B
  4. $BHw9M(B
    1. UXAXNM/UYAXNM$B$O$=$l$>$l(B UXPAXS/UYPAXS (ISLCT=2)$B$G<4$rIA$$$F$$$k(B; UXPTMK/UYPTMK (ISLCT=1)$B$G>.$5$a$NL\@9$rIA$$$F$$$k(B; UXPTMK/UYPTMK (ISLCT=2)$B$GBg$-$a$NL\@9$rIA$$$F$$$k(B; UXPNUM/UYPNUM (ISLCT=1)$B$G%i%Y%k$rIA$$$F$$$k!%(B
    2. N1$B$H$7$F(B0$B0J2<$NCM$r;XDj$9$k$H(BUXPTMK/UYPTMK (ISLCT=1)$B$r8F$P$J$$!%(B $B$3$N$H$-(BUX1, UY1$B$K$O%@%_!<$NJQ?t$rM?$($l$P$h$$!%(B
    3. N2$B$H$7$F(B0$B0J2<$NCM$r;XDj$9$k$H(BUXPTMK/UYPTMK (ISLCT=2), UXPNUM/UYPNUM (ISLCT=1)$B$r8F$P$J$$!%(B $B$3$N$H$-(BUX2, UY2$B$K$O(B $B%@%_!<$NJQ?t$rM?$($l$P$h$$!%(B
    4. $B%i%Y%k$N%U%)!<%^%C%H$O(BUXSFMT/UYSMFT ([here]$B@a;2>H!K$K$h$C$FJQ99$G$-$k!%(B

UXAXLB/UYAXLB

  1. $B5!G=(B
    $BL\@9$H%i%Y%k$rIA$/>l=j$r;XDj$7$F:BI8<4$rIA$/!%(B $BIA$/%i%Y%k$b;XDj$9$k!%(B
  2. $B8F$S=P$7J}K!(B
    CALL UXAXLB(CSIDE,UX1,N1,UX2,CH,NC,N2)
    CALL UYAXLB(CSIDE,UY1,N1,UY2,CH,NC,N2)
  3. $B%Q%i%a!<%?!<$N@bL@(B 
                                                                            
  CSIDE      (C*1)      $B:BI8<4$rIA$/>l=j$r;XDj$9$k(B (                    
                        [here] $B@a;2>H!K(B.                                
                                                                        
  UX1,       (R)        $B>.$5$a$NL\@9$rIA$/(B $B>l=j$r3JG<$7$?D9$5(BN1$B$NG[Ns(B   
  UY1                   (U$B:BI87O$NCM$G;XDj$9$k!K(B.                       
                                                                        
  N1         (I)        $BG[Ns(BUX1, UY1$B$ND9$5!%(B                            
                                                                        
  UX2,       (R)        $BBg$-$a$NL\@9$*$h$S(B                              
  UY2                   $B%i%Y%k$rIA$/>l=j$r3JG<$7$?D9$5(BN2$B$NG[Ns(B          
                        (U$B:BI87O$NCM$G;XDj$9$k!K(B.                       
                                                                        
  CH         (C*(NC))   $BIA$/%i%Y%k$r3JG<$7$?J8;zD9(BNC                    
                        $BD9$5(BN2$B$NJ8;z7?G[Ns!%(B                            
                                                                        
  NC         (I)        $BG[Ns(BCH$B$NJ8;zD9!%(B                                
                                                                        
  N2         (I)        $BG[Ns(BUX2, UY2, CH$B$ND9$5!%(B
  4. $BHw9M(B
    1. UXAXLB/UYAXLB$B$O$=$l$>$l(B UXPAXS/UYPAXS (ISLCT=2)$B$G<4$rIA$$$F$$$k(B; UXPTMK/UYPTMK (ISLCT=1)$B$G>.$5$a$NL\@9$rIA$$$F$$$k(B; UXPTMK/UYPTMK (ISLCT=2)$B$GBg$-$a$NL\@9$rIA$$$F$$$k(B; UXPLBL/UYPLBL (ISLCT=1)$B$G%i%Y%k$rIA$$$F$$$k!%(B
    2. N1$B$H$7$F(B0$B0J2<$NCM$r;XDj$9$k$H(BUXPTMK/UYPTMK (ISLCT=1)$B$r8F$P$J$$!%(B $B$3$N$H$-(BUX1, UY1$B$K$O%@%_!<$NJQ?t$rM?$($l$P$h$$!%(B
    3. N2$B$H$7$F(B0$B0J2<$NCM$r;XDj$9$k$H(BUXPTMK/UYPTMK (ISLCT=2), UXPLBL/UYPLBL (ISLCT=1)$B$r8F$P$J$$!%(B $B$3$N$H$-(BUX2, UY2, CH, NC$B$K$O(B $B%@%_!<$NJQ?t$rM?$($l$P$h$$!%(B

UXMTTL/UYMTTL

  1. $B5!G=(B
    $BBg$-$a$N%?%$%H%k$rIA$/!%(B
  2. $B8F$S=P$7J}K!(B
    CALL UXMTTL(CSIDE,CTTL,PX)
    CALL UYMTTL(CSIDE,CTTL,PY)
  3. $B%Q%i%a!<%?!<$N@bL@(B 
                                                                            
  CSIDE    (C*1)     $B:BI8<4$rIA$/>l=j$r;XDj$9$k(B (                       
                     [here] $B@a;2>H!K(B.                                   
                                                                        
  CTTL     (C*(*))   $BIA$/%?%$%H%k!%(B                                     
                                                                        
  PX,      (R)       -1$B$+$i(B+1$B$N4V$N
  4. $BHw9M(B
    1. $B$3$N%k!<%A%s$O(BUXPTTL/UYPTTL (ISLCT=2)$B$r;H$C$F(B $B%?%$%H%k$rIA$$$F$$$k!%(B

UXSTTL/UYSTTL

  1. $B5!G=(B
    $B>.$5$a$N%?%$%H%k$rIA$/!%(B
  2. $B8F$S=P$7J}K!(B
    CALL UXSTTL(CSIDE,CTTL,PX)
    CALL UYSTTL(CSIDE,CTTL,PY)
  3. $B%Q%i%a!<%?!<$N@bL@(B 
                                                                            
  CSIDE    (C*1)     $B:BI8<4$rIA$/>l=j$r;XDj$9$k(B (                       
                     [here] $B@a;2>H!K(B.                                   
                                                                        
  CTTL     (C*(*))   $BIA$/%?%$%H%k!%(B                                     
                                                                        
  PX,      (R)       -1$B$+$i(B+1$B$N4V$N
  4. $BHw9M(B
    1. $B$3$N%k!<%A%s$O(BUXPTTL/UYPTTL (ISLCT=1)$B$r;H$C$F(B $B%?%$%H%k$rIA$$$F$$$k!%(B

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

$BFbItJQ?t$N4IM}$d=i4|2=$r$*$3$J$&%5%V%k!<%A%s%Q%C%1!<%8!%(B

UZpGET/UZpSET(UZpSTX)

  1. $B5!G=(B
    UXPACK/UYPACK/UZPACK$B$G;H$&FbItJQ?t$r;2>H(B/$BJQ99$9$k!%(B (UZPSTX $B$O
  2. $B8F$S=P$7J}K!(B
    CALL UZpGET(CP,IPARA)
    CALL UZpSET(CP,IPARA)
    CALL UZpSTX(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 'ROFFzs', 'INDEXTi'$B$J$I$NN,5-K!$K$D$$$F$O(B[here]$B@a$r(B $B;2>H$N$3$H!%(B 

                                                                            
  'UXUSER'    (R)   Y$B<4$N:n2h%k!<%A%s$K$*$$$F>l=j$r<($9%Q%i%a!<%?!<$H(B   
                    $B$7$F(B 'U'ser$B$r;XDj$7$?$H$-$KMQ$$$i$l$k(BX$B:BI8CM(B        
                    $B!J=i4|CM$OITDj!K(B. $B>\$7$/$O(B                          
                    [here] $B@a;2>H!%(B [-1ex]0ex1ex}                       
                                                                        
  'UYUSER'    (R)   X$B<4$N:n2h%k!<%A%s$K$*$$$F>l=j$r<($9%Q%i%a!<%?!<$H(B   
                    $B$7$F(B 'U'ser$B$r;XDj$7$?$H$-$KMQ$$$i$l$k(BY$B:BI8CM(B        
                    $B!J=i4|CM$OITDj!K(B. $B>\$7$/$O(B                          
                    [here] $B@a;2>H!%(B [-1ex]0ex1ex}                       
                                                                        
  'ROFFzs'    (R)   $B:G8e$KIA$$$?%i%Y%k$d%?%$%H%k$N<4$+$i$N5wN%$rJ];}$7(B  
                    $B$F$$$k(B $BFbItJQ?t!J=i4|CM$O!$(B0, 0, 0, 0, 0, 0).       
                    [here] $B@a;2>H!%(B [-1ex]0ex1ex}                       
                                                                        
  'ROFGzs'    (R)   $B:BI8<4$rK\MhIA$/>l=j$+$i$I$l$@$1J?9T0\F0$7$FIA$/$+(B  
                    $B$r(B $B;XDj$9$kFbItJQ?t!J=i4|CM$O!$(B0, 0, 0, 0, 0, 0).   
                    [here] $B@a;2>H!%(B [-1ex]0ex1ex}                       
                                                                        
  'LABELzs'   (L)   $B%i%Y%k$rIA$/$+$I$&$+$r;XDj$9$kFbItJQ?t(B;             
                    .TREU.$B$J$iIA$/!$(B.FALSE.$B$J$iIA$+$J$$(B                 
                    $B!J=i4|CM$O!$(B.TRUE., .FALSE., .TRUE., .TRUE.,        
                    .FALSE., .TRUE.).[here] ,                           
                    [here] ,[here] $B@a;2>H!%(B [-1ex]0ex1ex}               
                                                                        
  'IROTLzs'   (I)   $B%i%Y%k$NJ8;zNs$N2sE>3Q$r;XDj$9$kFbItJQ?t(B;           
                    $B2sE>3Q$O(B90$BEY$rC10L$H$9$k@0?tCM$G;XDj$9$k(B            
                    $B!J=i4|CM$O!$(B0, 0, 0, 0, 0, 0).                      
                    [here] ,[here] $B@a;2>H!%(B [-1ex]0ex1ex}               
                                                                        
  'IROTCzs'   (I)   $B%?%$%H%k$NJ8;zNs$N2sE>3Q$r;XDj$9$kFbItJQ?t(B;         
                    $B2sE>3Q$O(B90$BEY$rC10L$H$9$k@0?tCM$G;XDj$9$k(B            
                    $B!J=i4|CM$O!$(B0, 0, 0, +1, +1, +1).                   
                    [here] ,[here] $B@a;2>H!%(B [-1ex]0ex1ex}               
                                                                        
  'ICENTzs'   (I)   $B%i%Y%k$NJ8;zNs$N%;%s%?%j%s%0%*%W%7%g%s$r;XDj$9$kFb(B  
                    $BItJQ?t(B;                                             
                    -1$B$N$H$-:8$h$;!$(B0$B$N$H$-%;%s%?%j%s%0!$(B+1$B$N$H$-1&$h(B   
                    $B$;$9$k(B $B!J=i4|CM$O!$(B0, 0, 0, +1, +1, +1).            
                    [here] ,[here] $B@a;2>H!%(B [-1ex]0ex1ex}               
                                                                        
  'INDEXTi'   (I)   $B:BI8<4$*$h$SL\@9$rIA$/@~J,$N%i%$%s%$%s%G%/%9$r;XDj(B  
                    $B$9$kFbItJQ?t(B $B!J=i4|CM$O!$ITDj!$(B1, 3).               
                    [here] ,[here] $B@a;2>H!%(B [-1ex]0ex1ex}               
                                                                        
  'INDEXLi'   (I)   $B%i%Y%k$*$h$S%?%$%H%k$NJ8;z$rIA$/@~J,$N(B              
                    $B%i%$%s%$%s%G%/%9$r;XDj$9$kFbItJQ?t(B                  
                    $B!J=i4|CM$O!$ITDj!$(B3, 3).[here]                      
                     ,[here] $B@a;2>H!%(B [-1ex]0ex1ex}                     
                                                                        
  'RSIZETi'   (R)   $BL\@9$ND9$5$r;XDj$9$kFbItJQ?t(B                        
                    $B!JC10L$O(BV$B:BI87O(B;$B=i4|CM$O!$ITDj!$(B0.007, 0.014).      
                    [here] ,[here] $B@a;2>H!%(B [-1ex]0ex1ex}               
                                                                        
  'RSIZELi'   (R)   $B%i%Y%k$NJ8;z$N9b$5$r;XDj$9$kFbItJQ?t(B                
                    $B!JC10L$O(BV$B:BI87O(B;$B=i4|CM$O!$ITDj!$(B0.021, 0.028).      
                    [here] ,[here] $B@a;2>H!%(B [-1ex]0ex1ex}               
                                                                        
  'RSIZECi'   (R)   $B%?%$%H%k$NJ8;z$N9b$5$r;XDj$9$kFbItJQ?t(B              
                    $B!JC10L$O(BV$B:BI87O(B;$B=i4|CM$O!$ITDj!$(B0.028, 0.035).      
                    [here] ,[here] $B@a;2>H!%(B [-1ex]0ex1ex}               
                                                                        
  'LOFFSET'   (L)   $B:BI87O$r%j%K%"%*%U%;%C%H$9$k$+$I$&$+$r;XDj$9$kFbIt(B  
                    $BJQ?t!%(B .TRUE.$B$J$i%j%K%"%*%U%;%C%H$9$k(B;              
                    .FALSE.$B$J$i$7$J$$!J=i4|CM$O(B.FALSE.).                
                    [here] $B@a;2>H!%(B [-1ex]0ex1ex}                       
                                                                        
  'XOFFSET'   (R)   'LOFFSET'$B$,(B.TRUE.$B$N$H$-!$(B                           
                    X$B<4$N%*%U%;%C%HCM$r;XDj$9$kFbItJQ?t(B $B!J=i4|CM$O(B0.0)  
                    .[here] $B@a;2>H!%(B [-1ex]0ex1ex}                      
                                                                        
  'YOFFSET'   (R)   'LOFFSET'$B$,(B.TRUE.$B$N$H$-!$(B                           
                    Y$B<4$N%*%U%;%C%HCM$r;XDj$9$kFbItJQ?t(B $B!J=i4|CM$O(B0.0)  
                    .[here] $B@a;2>H!%(B [-1ex]0ex1ex}                      
                                                                        
  'XFACT'     (R)   'LOFFSET'$B$,(B.TRUE.$B$N$H$-!$(B                           
                    X$B<4$N%U%!%/%?![here] $B@a;2>H!%(B [-1ex]0ex1ex}                      
                                                                        
  'YFACT'     (R)   'LOFFSET'$B$,(B.TRUE.$B$N$H$-!$(B                           
                    Y$B<4$N%U%!%/%?![here] $B@a;2>H!%(B [-1ex]0ex1ex}                      
                                                                        
  'PAD1'      (R)   1$B$DA0$KIA$$$?:BI8<[email protected]$+$i$I$l$@$1N%$7$F(B     
                    $B%i%Y%k$rIA$/$+$r;XDj$9$kFbItJQ?t(B $B!J=i4|CM$O(B0.7;     
                    $BC10L$O:#IA$3$&$H$7$F$$$k%i%Y%k$N9b$5$r(B1$B$H$9$k!K(B.    
                    [-1ex]0ex1ex}                                       
                                                                        
  'PAD2'      (R)   $B:BI8<4$N%*%U%;%C%HNL$rFbItE*$K7h$a$k;~$KMQ$$$kFbIt(B  
                    $BJQ?t(B $B!J=i4|CM$O(B1.5;                                 
                    $BC10L$OFbItJQ?t(B'RSIZEC2'$B$NBg$-$5$r(B1$B$H$9$k!K(B.         
                    [-1ex]0ex1ex}                                       
                                                                        
  'IFLAG'     (I)   $B:BI8<4$N@_Dj$r(B'U'ser$B$G$*$3$J$C$?>l9g!$(B              
                    $B%i%Y%k$H%?%$%H%k$r<4$N$I$A$iB&$KIA$/$+$r;XDj$9$kFb(B  
                    $BItJQ?t!%(B                                            
                    'IFLAG'$B$,@5$N$H$-%i%Y%k$O(BUXPLBL$B$K$D$$$F$O>eB&!$(B     
                    UYPLBL$B$K$D$$$F$O1&B&$KIA$+$l$k!%(B                    
                    $BIi$N$H$-$O$=$N5U$G$"$k!%=i4|CM$O(B-1.                 
                    [here] $B@a;2>H!%(B [-1ex]0ex1ex}                       
                                                                        
  'LBTWN'     (L)   $B%i%Y%k$rIA$/>l=j$K4X$9$k%*%W%7%g%s$r;XDj$9$kFbItJQ(B  
                    $B?t!%(B 'LBTWN'$B$,(B.TRUE.$B$J$i4V$KIA$/(B;                   
                    .FALSE.$B$J$i$=$N>l=j$KIA$/!J=i4|CM$O(B.FALSE.).        
                    [here] $B@a;2>H!%(B [-1ex]0ex1ex}                       
                                                                        
  'RBTWN'     (R)   $B%i%Y%k$r4V$KIA$/$H$-(B                                
                    ('LBTWN'$B$,(B.TRUE.$B$N$H$-!K(B, $B$5$i$K$=$N0LCV$r>\$7$/;X(B  
                    $BDj$9$k!%(B                                            
                    -1.0$B$N$H$-:8$h$;!$(B0.0$B$N$H$-%;%s%?%j%s%0!$(B+1.        
                    0$B$N$H$-1&$h$;$9$k(B $B!J=i4|CM$O(B0.0). [-1ex]0ex1ex}     
                                                                        
  'LBOUND'    (L)   $B%?%$%H%k$rIA$3$&$H$7$F!$J8;zI}$,%S%e!<%]!<%H$NI}$r(B  
                    $B1[$($F$7$^$&$h$&$J$H$-!$(B                            
                    $B%?%$%H%k$rIA$/$+$I$&$+$r;XDj$9$k!%(B                  
                    .TRUE.$B$J$iIA$+$J$$!$(B.FALSE.$B$J$iIA$/(B                 
                    $B!J=i4|CM$O(B.FALSE.). [-1ex]0ex1ex}                   
                                                                        
  'LBMSG'     (L)   'LBOUND'$B$,(B.TRUE.                                    
                    $B$G%?%$%H%k$rIA$/%9%Z!<%9$,$J$$$H$-!$(B                
                    $B%(%i!<%a%C%;!<%8$r=PNO$9$k$+$I$&$+$r;XDj$9$k!%(B      
                    .TRUE.$B$J$i=PNO$9$k!$(B.FALSE.$B$J$i=PNO$7$J$$(B           
                    $B!J=i4|CM$O(B.TRUE.). [-1ex]0ex1ex}                    
                                                                        
  'INNER'     (I)   $BL\@9$rFbB&$K8~$+$C$FBG$D$+!$(B                        
                    $B30B&$K8~$+$C$FBG$D$+$r;XDj$9$kFbItJQ?t!%(B            
                    'INNER'$B$,@5$N$H$-FbB&$K8~$+$C$FL\@9$rBG$D(B;          
                    $BIi$N$H$-30B&$K8~$+$C$FL\@9$rBG$D!J=i4|CM$O(B+1)       
                    . [-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 
                                                                          
  UZPQNP(NCP)         $BFbItJQ?t$NAm?t(BNCP$B$r5a$a$k!%(B                   
                                                                    
  UZPQID(CP,IDX)      $BFbItJQ?t(BCP$B$N0LCV(BIDX$B$r5a$a$k!%(B                 
                                                                    
  UZPQCP(IDX,CP)      IDX$B$N0LCV$K$"$kFbItJQ?t$NL>A0(BCP$B$r;2>H$9$k!%(B   
                                                                    
  UZPQVL(IDX,IPARA)   IDX$B$N0LCV$K$"$kFbItJQ?t$NCM(BIPARA$B$r;2>H$9$k!%(B  
                                                                    
  UZPSVL(IDX,IPARA)   IDX$B$N0LCV$K$"$kFbItJQ?t$NCM(BIPARA$B$rJQ99$9$k!%(B
    2. UZpGET$B$O>e$K=R$Y$?(BUZPQID$B$r8F$s$G(B $BFbItJQ?t$N0LCV$r5a$a!$(BUZPQVL$B$K$h$C$FCM$r;2>H$9$k(B; UZpSET$B$O(BUZPQID$B$r8F$s$GFbItJQ?t$N0LCV$r5a$a!$(B UZPSVL$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(BUZPQID$B$,=PNO$9$k!%(B
    3. $BFbItJQ?t$N7?$K1~$8!$(BIPARA$B$H$7$FE,@Z$J7?$N(B $BDj?t$"$k$$$OJQ?t$r;XDj$9$k$3$H!%(B

UZINIT

  1. $B5!G=(B
    $BFbItJQ?t(B 'ROFFzs', 'ROFGzs'$B$r$9$Y$F(B0$B$K%;%C%H$9$k!%(B
  2. $B8F$S=P$7J}K!(B
    CALL UZINIT
  3. $B%Q%i%a!<%?!<$N@bL@(B
    $B$J$7!%(B
  4. $BHw9M(B
    1. $BIaDL(BUZINIT$B$O(BGRFRM$BCf$K5-=R$5$l$F$$$k$N$G!$(B GRPACK$B!JBh(B[here]$B>O;2>H!K$rMQ$$$F$$$l$P(B $B%f!<%6!<$O(BUZINIT$B$rM[$K8F$VI,MW$O$J$$!%(B

UZFACT

  1. $B5!G=(B
    $BFbItJQ?t(B 'RSIZETi' 'RSIZELi' 'RSIZECi'$B!!(B(i=1,2) $B$r$9$Y$F2?G\$+$9$k!%(B
  2. $B8F$S=P$7J}K!(B
    CALL UZFACT(RFACT)
  3. $B%Q%i%a!<%?!<$N@bL@(B 
                                                  
  RFACT   (R)   $B2?G\$9$k$+$r;XDj$9$k
  4. $BHw9M(B
    1. $B$J$7!%(B

UZPSAV

  1. $B5!G=(B
    $B8=:_@_Dj$5$l$F$$$kFbItJQ?t$NCM$9$Y$F$r%9%/%i%C%A%U%!%$%k$K=q$-=P$9!%(B
  2. $B8F$S=P$7J}K!(B
    CALL UZPSAV
  3. $B%Q%i%a!<%?!<$N@bL@(B
    $B$J$7!%(B
  4. $BHw9M(B
    1. $B%9%/%i%C%A%U%!%$%k$O(B MISC1/MISCLIB $B$N(B IUFOPN $B$,(B $BJV$9AuCVHV9f$KBP$7$F%*!<%W%s$5$l$k!%(B

UZPRST

  1. $B5!G=(B
    $B%9%/%i%C%A%U%!%$%k$K=q$-=P$7$F$"$C$?CM$G$9$Y$F$NFbItJQ?t$r:F@_Dj$9$k!%(B
  2. $B8F$S=P$7J}K!(B
    CALL UZPRST
  3. $B%Q%i%a!<%?!<$N@bL@(B
    $B$J$7!%(B
  4. $BHw9M(B
    1. $B$J$7!%(B

$B%5%V%k!<%A%s$N@bL@(B : $B2<0L1~MQ%k!<%A%s(B (LLA)

$B$3$N%5%V%k!<%A%s%Q%C%1!<%8(B UXPACK/UYPACK/UZPACK $B$K$*$$$F!$6qBNE*$J:n2h$r$*$3$J$&%k!<%A%s72!%(B $B4pK\%k!<%A%s(B(Basic Routines)$B$r;H$C$F=q$+$l$F$*$j(B $BIaDL%f!<%6!<$,D>@\8F$V$3$H$O$J$/!$(B $B>e0L1~MQ%k!<%A%s(B(ULA)$B$r:n@.$9$k$N$KMQ$$$i$l$k!%(B

$B0J2<$N@bL@$G6&DL$7$F$"$i$o$l$k0z?t(B CSIDE $B$O(B $B:BI8<[email protected]$rIA$/>l=j$r;XDj$9$k%Q%i%a!<%?!<$G!$(B X$B<4$K$D$$$F$O(B 'B', 'T', 'U' $B$,;XDj$G$-$k(B; Y$B<4$K$D$$$F$O(B 'L', 'R', 'U' $B$,;XDj$G$-$k(B $B!J$/$o$7$/$O(B[here]$B@a;2>H!K(B. $B$^$?!$0z?t(B ISLCT $B$O(B $B:BI8<[email protected]$NB0@-$r;XDj$9$k%Q%i%a!<%?!<$G!$(B 0, 1, 2$B$N$&$A(B1$B$D$,;XDj$G$-$k(B $B!J$/$o$7$/$O(B[here]$B@a;2>H!K(B.

UXPAXS/UYPAXS

  1. $B5!G=(B
    $B<4$r<($9@~J,$rIA$/!%(B
  2. $B8F$S=P$7J}K!(B
    CALL UXPAXS(CSIDE,ISLCT)
    CALL UYPAXS(CSIDE,ISLCT)
  3. $B%Q%i%a!<%?!<$N@bL@(B 
                                                                          
  CSIDE   (C*1)   $B@~J,$rIA$/:BI8<4$N>l=j$r;XDj$9$k(B (                  
                  [here] $B@a;2>H!K(B.                                    
                                                                      
  ISLCT   (I)     $BIA$/<4$NB0@-$r;XDj$9$k(B ([here]                      
                  $B@a;2>H!K(B.
  4. $BHw9M(B
    1. $B<4$r<($9@~J,$N%i%$%s%$%s%G%/%9$OFbItJQ?t(B'INDEXTi'$B$,7h$a$k!%(B
    2. mail protected]$rIA$/>l=j$K0MB8$9$kFbItJQ?t$H$7$F(B'ROFFzs'$B$,$"$k!%(B $B$3$l$O!$:G8e$KIA$$$?%i%Y%k$d%?%$%H%k$N<4$+$i$N5wN%$rJ];}$7$F$$$k(B $BFbItJQ?t$G$"$k!%(B $B$3$NFbItJQ?t$r=i4|2=$7$J$1$l$P!$%i%Y%k$d%?%$%H%k$O $B:BI8<4$O!$K\MhIA$/$Y$->l=j$+$iJ?9T0\F0$7$?>l=j$KIA$/$3$H$,$G$-$k(B ([here]$B@a;2>H!K(B. $B$3$N0\F0NL$O!$IA$/>l=j$K0MB8$9$kFbItJQ?t(B'ROFGzs'$B$,4IM}$9$k(B $B!J=i4|CM$O$9$Y$F(B0). $B$3$NCM$O(BX/Y$B<4$=$l$>$l$K$D$$$F!$%5%V%k!<%A%s(B
      UXSAXZ(CSIDE,ROFFX) / UYSAXZ(CSIDE,ROFFY)
      $B$K$h$C$F@_Dj$G$-$k!%$^$?%*%U%;%C%HNL$rFbItE*$K7hDj$9$k%k!<%A%s(B
      UXSAXS(CSIDE) / UYSAXS(CSIDE)
      $B$K$h$C$F$b@_Dj$G$-$k!%(B $B%*%U%;%C%HNL$OFbItJQ?t(B'PAD2'$B$K$b$H$E$$$F7W;;$5$l$k!%(B
    3. $BFbItJQ?t(B'ROFFzs'$B$H(B'ROFGzs'$B$,Ey$7$$$H$-$K8B$C$F<4$r<($9@~J,$rIA$/!%(B $B$3$l$i$NFbItJQ?t$O%5%V%k!<%A%s(BUZINIT$B$K$h$C$F(B0$B$K%;%C%H$5$l$k!%(B $BIaDL(BUZINIT$B$O(BGRFRM$BCf$K5-=R$5$l$F$$$k$N$G!$(B GRPACK$B!JBh(B[here]$B>O;2>H!K$rMQ$$$F$$$l$P(B $B%f!<%6!<$O(BUZINIT$B$rM[$K8F$VI,MW$O$J$$!%(B

UXPTMK/UYPTMK

  1. $B5!G=(B
    $BL\@9$rIA$/!%(B
  2. $B8F$S=P$7J}K!(B
    CALL UXPTMK(CSIDE,ISLCT,UX,N)
    CALL UYPTMK(CSIDE,ISLCT,UY,N)
  3. $B%Q%i%a!<%?!<$N@bL@(B 
                                                                            
  CSIDE    (C*1)   $BL\@9$rIA$/:BI8<4$N>l=j$r;XDj$9$k(B (                   
                   [here] $B@a;2>H!K(B.                                     
                                                                        
  ISLCT    (I)     $BIA$/L\@9$NB0@-$r;XDj$9$k(B (                           
                   [here] $B@a;2>H!K(B.                                     
                                                                        
  UX,      (R)     $BL\@9$rIA$/>l=j$r3JG<$7$?D9$5(BN$B$N(B $BG[Ns!%(B               
  UY               (U$B:BI87O$NCM$G;XDj$9$k!%!K(B                           
                                                                        
  N        (I)     $BG[Ns(BUX, UY$B$ND9$5!%(B
  4. $BHw9M(B
    1. $BL\@9$ND9$5$OFbItJQ?t(B'RSIZETi'$B$,7h$a$k!%(B
    2. $BL\@9$rIA$/@~$N%i%$%s%$%s%G%/%9$OFbItJQ?t(B'INDEXTi'$B$,7h$a$k!%(B
    3. $BL\@9$rFbB&$K8~$+$C$FBG$D$+!$30B&$K8~$+$C$FBG$D$+$O(B $BFbItJQ?t(B'INNER'$B$,7h$a$k!%(B 'INNER'$B$,@5$N$H$-FbB&$K8~$+$C$FL\@9$rBG$D(B; $BIi$N$H$-30B&$K8~$+$C$FL\@9$rBG$D(B $B!J=i4|CM$O(B+1).

UXPLBL/UYPLBL

  1. $B5!G=(B
    $BJ8;zNs$G;XDj$7$?%i%Y%k$rIA$/!%(B
  2. $B8F$S=P$7J}K!(B
    CALL UXPLBL(CSIDE,ISLCT,UX,CH,NC,N)
    CALL UYPLBL(CSIDE,ISLCT,UY,CH,NC,N)
  3. $B%Q%i%a!<%?!<$N@bL@(B 
                                                                            
  CSIDE    (C*1)      $B%i%Y%k$rIA$/:BI8<4$N>l=j$r;XDj$9$k(B (              
                      [here] $B@a;2>H!K(B.                                  
                                                                        
  ISLCT    (I)        $BIA$/%i%Y%k$NB0@-$r;XDj$9$k(B (                      
                      [here] $B@a;2>H!K(B.                                  
                                                                        
  UX,      (R)        $B%i%Y%k$rIA$/>l=j$r3JG<$7$?(B $BD9$5(BN$B$NG[Ns!%(B          
  UY                  (U$B:BI87O$NCM$G;XDj$9$k!%!K(B                        
                                                                        
  CH       (C*(NC))   $BIA$/%i%Y%k$r3JG<$7$?J8;zD9(BNC                      
                      $BD9$5(BN$B$NJ8;z7?G[Ns!%(B                               
                                                                        
  NC       (I)        $BG[Ns(BCH$B$NJ8;zD9!%(B                                  
                                                                        
  N        (I)        $BG[Ns(BUX, UY, CH$B$ND9$5!%(B
  4. $BHw9M(B
    1. $B$3$N%Q%C%1!<%8$G$OUXPLBL/UYPLBL$B$=$l$>$l$K$D$$$F(B
      • UX(i)/UY(i)$B$N(B $B>l=j$K(BCH(i)$B$N(B $B%i%Y%k$rIA$/!%(B
      • UX(i)/UY(i)$B$H(B UX(i+1)/UY(i+1)$B$N(B $B4V$K(BCH(i)$B$N%i%Y%k$rIA$/!%(B
      2$B$D$NJ}K!$N$I$A$i$rA*$V$+$OFbItJQ?t(B'LBTWN'$B$,7h$a$k!%(B 'LBTWN'$B$,(B.TRUE.$B$J$i4V$KIA$/(B; .FALSE.$B$J$i$=$N>l=j$KIA$/!J=i4|CM$O(B.FALSE.). $B$?$@$7!$%i%Y%k$r4V$KIA$/$h$&$K;XDj$7$F$$$F$b!$%i%Y%k$,(B2$BE@$N4V3V$h$j(B $BBg$-$$$H$-%i%Y%k$OIA$+$l$J$$!%(B $B$^$?%a%C%;!<%8$b=PNO$5$l$J$$!%(B
    2. $B%i%Y%k$NJ8;z$N9b$5$OFbItJQ?t(B'RSIZELi'$B$,7h$a$k!%(B
    3. $B%i%Y%k$NJ8;zNs$N2sE>3Q$OFbItJQ?t(B'IROTLzs'$B$,7h$a$k!%(B
    4. $B%i%Y%k$NJ8;zNs$N%;%s%?%j%s%0%*%W%7%g%s$OFbItJQ?t(B'ICENTzs'$B$,7h$a$k!%(B
    5. $B%i%Y%k$NJ8;z$rIA$/@~J,$N%i%$%s%$%s%G%/%9$OFbItJQ?t(B'INDEXLi'$B$,7h$a$k!%(B
    6. $BJ8;zNs(BCH(i)$B$NJ8;zD9$O(BLENC $B!J!V(BMATH1$B!W%^%K%e%"%k$N(BCHRLIB$B;2>H!K$,7h$a$k!%(B $B$D$^$j8eB3$N%V%i%s%/$OL5;k$5$l$k!%(B
    7. CSIDE$B$H$7$F(B'U'$B0J30$r;XDj$7$?>l9g!$(B $B%i%Y%k$O>o$K%&%$%s%I%&$N30B&$KIA$+$l$k!%(B CSIDE$B$H$7$F(B'U'$B$r;XDj$7$?>l9g!$%i%Y%k$NIA$+$l$k0LCV$O(B $BFbItJQ?t(B'IFLAG'$B$,7h$a$k!%(B 'IFLAG'$B$,@5$N$H$-%i%Y%k$O(BUXPLBL$B$K$D$$$F$O>eB&!$(B UYPLBL$B$K$D$$$F$O1&B&$KIA$+$l$k!%(B $BIi$N$H$-$O$=$N5U$G$"$k!%=i4|CM$O(B-1.
    8. 1$B$DA0$KIA$$$?:BI8<[email protected]$+$i$I$l$@$1N%$7$F%i%Y%k$rIA$/$+$O(B $BFbItJQ?t(B'PAD1'$B$,7h$a$k!%=i4|CM$O(B0.7. $BC10L$O:#IA$3$&$H$7$F$$$k%i%Y%k$N9b$5$r(B1$B$H$9$k!%(B

UXPNUM/UYPNUM

  1. $B5!G=(B
    $B?tCM$G;XDj$7$?%i%Y%k$rIA$/!%(B
  2. $B8F$S=P$7J}K!(B
    CALL UXPNUM(CSIDE,ISLCT,UX,N)
    CALL UYPNUM(CSIDE,ISLCT,UY,N)
  3. $B%Q%i%a!<%?!<$N@bL@(B 
                                                                            
  CSIDE    (C*1)   $B%i%Y%k$rIA$/:BI8<4$N>l=j$r;XDj$9$k(B (                 
                   [here] $B@a;2>H!K(B.                                     
                                                                        
  ISLCT    (I)     $BIA$/%i%Y%k$NB0@-$r;XDj$9$k(B (                         
                   [here] $B@a;2>H!K(B.                                     
                                                                        
  UX,      (R)     $B%i%Y%k$rIA$/>l=j$r3JG<$7$?(B $BD9$5(BN$B$NG[Ns!%(B             
  UY               (U$B:BI87O$NCM$G;XDj$9$k!%!K(B                           
                                                                        
  N        (I)     $BG[Ns(BUX, UY$B$ND9$5!%(B
  4. $BHw9M(B
    1. $B$3$N%k!<%A%s$O!$%5%V%k!<%A%s(BCHVAL $B!J!V(BMISC1$B!W%^%K%e%"%k$N(BFMTLIB$B;2>H!K$r(B $B;H$C$F(BUX, UY$B$NCM$rJ8;z2=$7$?$"$H$G(B UXPLBL/UYPLBL$B$r8F$s$G$$$k!%(B $B!J%i%Y%k$NB0@-$K$D$$$F$O!$(BUXPLBL/UYPLBL$B$r;2>H$N$3$H!%!K(B UXPLBL/UYPLBL$B$KEO$9J8;z7?G[Ns$rFbIt$GMQ0U$7$F$$$k$?$a(B UX, UY$B$ND9$5(BN$B$O(B40$B0J2<$G$J$1$l$P$J$i$J$$!%(B
    2. $B%5%V%k!<%A%s(BCHVAL$B$KEO$9%U%)!<%^%C%H$O!$(B UXPNUM$B$K$D$$$F$O%5%V%k!<%A%s(B
      UXSFMT(CFMT) / UXQFMT(CFMT)
      $B$G@_Dj(B/$B;2>H$9$k$3$H$,$G$-$k!%(B UYPNUM$B$K$D$$$F$O%5%V%k!<%A%s(B
      UYSFMT(CFMT) / UYQFMT(CFMT)
      $B$G@_Dj(B/$B;2>H$9$k$3$H$,$G$-$k!%(B CFMT$B$OD9$5(B16$B0J2<$NJ8;z7?JQ?t!%$?$H$($P(BCFMT$B$H$7$F(B '(F6.1)'$B$N$h$&$K;XDj$9$k!%(B $B=i4|CM$O(BCHVAL$B$K8GM-$N%*%W%7%g%s$G$"$k(B'B' $B!JM-8z?t;z(B3$B%1%?$GJ8;z2=$7!$>.?tE@0J2<$KB3$/8eJ}$N(B0$B$O.?tE@$,:G2<0L$J$i$=$l$bCHVAL$B$O<+F0E*$KJ8;z$r:85M$a$9$k!%(B $B$D$^$j'(F4.1)'$B$H$7$F$b(B '(F8.1)'$B$H$7$F$b(BCHVAL$B$,JV$9CM$O$I$A$i$b(B'1.2'$B$G$"$k!%(B

UXPTTL/UYPTTL

  1. $B5!G=(B
    $B%?%$%H%k$rIA$/!%(B
  2. $B8F$S=P$7J}K!(B
    CALL UXPTTL(CSIDE,ISLCT,CTTL,PX)
    CALL UYPTTL(CSIDE,ISLCT,CTTL,PY)
  3. $B%Q%i%a!<%?!<$N@bL@(B 
                                                                            
  CSIDE    (C*1)     $B%?%$%H%k$rIA$/:BI8<4$N>l=j$r;XDj$9$k(B (             
                     [here] $B@a;2>H!K(B.                                   
                                                                        
  ISLCT    (I)       $BIA$/%?%$%H%k$NB0@-$r;XDj$9$k(B (                     
                     [here] $B@a;2>H!K(B.                                   
                                                                        
  CTTL     (C*(*))   $BIA$/%?%$%H%k!%(B                                     
                                                                        
  PX,      (R)       -1$B$+$i(B+1$B$N4V$N
  4. $BHw9M(B
    1. $B%?%$%H%k$NJ8;z$NBg$-$5$OFbItJQ?t(B'RSIZECi'$B$,7h$a$k!%(B
    2. $B%?%$%H%k$NJ8;zNs$N2sE>3Q$OFbItJQ?t(B'IROTCzs'$B$,7h$a$k!%(B
    3. $B%?%$%H%k$NJ8;z$rIA$/@~J,$N%i%$%s%$%s%G%/%9$O(B $BFbItJQ?t(B'INDEXLi'$B$,7h$a$k!%(B
    4. $BFbItJQ?t(B'LBOUND'$B$,(B.TRUE.$B$G(B $B%?%$%H%k$,%&%$%s%I%&$NI}$r$3$($k$H%?%$%H%k$rIA$+$J$$(B; .FALSE.$B$J$i%&%$%s%I%&$NI}$r$3$($F$bIA$/(B $B!J=i4|CM$O(B.FALSE.). $B$^$?!$FbItJQ?t(B'LBOUND'$B$,(B.TRUE.$B$G(B $B%?%$%H%k$,%&%$%s%I%&$NI}$r$3$($FIA$1$J$$$H$-(B $BFbItJQ?t(B'LBMSG'$B$,(B.TRUE.$B$J$i(B $B$=$N;]%a%C%;!<%8$r=PNO$9$k(B;.FALSE.$B$J$i=PNO$7$J$$(B $B!J=i4|CM$O(B.TRUE.).

$B$=$NB>$N%5%V%k!<%A%s!&4X?t$N%j%9%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$=$l$i$NL>A0$r$"$2$k$K$H$I$a$k!%(B 

                                                       
  LUXCHK   UXPLBA   UXPLBB   UXPTMZ   UXSOFF   UXROFF  
                                                       
  LUYCHK   UYPLBA   UYPLBB   UYPTMZ   UYSOFF   UYROFF

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:10:03 EDT 1995