!--- slpack ---

!その他のサブルーチン

        subroutine sldivz(xamin,xamax,yamin,yamax,cform,ix,iy,xbmin,xbmax,ybmin,ybmax)

            real,      intent(in) :: xamin

            real,      intent(in) :: xamax

            real,      intent(in) :: yamin

            real,      intent(in) :: yamax

            character(len=*), intent(in) :: cform

            integer,   intent(in) :: ix

            integer,   intent(in) :: iy

            real,      intent(out), dimension(*) :: xbmin

            real,      intent(out), dimension(*) :: xbmax

            real,      intent(out), dimension(*) :: ybmin

            real,      intent(out), dimension(*) :: ybmax

        end subroutine



        subroutine slmgnz(xamin,xamax,yamin,yamax,xl,xr,yb,yt)

            real,      intent(inout) :: xamin

            real,      intent(inout) :: xamax

            real,      intent(inout) :: yamin

            real,      intent(inout) :: yamax

            real,      intent(in) :: xl

            real,      intent(in) :: xr

            real,      intent(in) :: yb

            real,      intent(in) :: yt

        end subroutine

        

        subroutine slpage(lev,ifrm,ipage)

            integer,   intent(in) :: lev

            integer,   intent(inout) :: ifrm

            integer,   intent(out) :: ipage

        end subroutine



        subroutine slpcnr()

        end subroutine



        subroutine slqrct(lev,ifrm,xamin,xamax,yamin,yamax)

            integer,   intent(in) :: lev

            integer,   intent(in) :: ifrm

            real,      intent(out) :: xamin

            real,      intent(out) :: xamax

            real,      intent(out) :: yamin

            real,      intent(out) :: yamax

        end subroutine



        subroutine slqsiz(csize,dx,dy)

            character(len=*), intent(in) :: csize

            real,      intent(out) :: dx

            real,      intent(out) :: dy

        end subroutine

        

        subroutine slratz(xamin,xamax,yamin,yamax,rx,ry)

            real,      intent(inout) :: xamin

            real,      intent(inout) :: xamax

            real,      intent(inout) :: yamin

            real,      intent(inout) :: yamax

            real,      intent(in) :: rx

            real,      intent(in) :: ry

        end subroutine



        subroutine slpttl

        end subroutine



        subroutine sltlcv(ctlin,ctlout,lout)

            character(len=*), intent(in) :: ctlin

            character(len=*), intent(out) :: ctlout

            integer,      intent(out) :: lout

        end subroutine

        

        subroutine slzttl(cside,cttl,px,py,rsize,index)

            character(len=*), intent(in) :: cside

            character(len=*), intent(in) :: cttl

            real,      intent(in) :: px

            real,      intent(in) :: py

            real,      intent(in) :: rsize

            integer,   intent(in) :: index

        end subroutine



! --- uxpack ---



    function luxchk(cside)

      character(len=*), intent(in) :: cside

      logical  luxchk

    end function

      

    subroutine uxplba(ux,ch,nc,n,upy,roffx,rsize,irota,icent,index)

      real,      intent(in), dimension(*) :: ux

      character(len=*), intent(in), dimension(*) :: ch

      integer,   intent(in) :: nc

      integer,   intent(in) :: n

      real,      intent(in) :: upy

      real,      intent(in) :: roffx

      real,      intent(in) :: rsize

      integer,   intent(in) :: irota

      integer,   intent(in) :: icent

      integer,   intent(out) :: index

    end subroutine

      

    subroutine uxplbb(ux,ch,nc,n,upy,roffx,rsize,irota,icent,index,rbtwn,lbound,lbmsg)

      real,      intent(in), dimension(*) :: ux

      character(len=*), intent(in), dimension(*) :: ch

      integer,   intent(in) :: nc

      integer,   intent(in) :: n

      real,      intent(in) :: upy

      real,      intent(in) :: roffx

      real,      intent(in) :: rsize

      integer,   intent(in) :: irota

      integer,   intent(in) :: icent

      integer,   intent(out) :: index

      real,      intent(in) :: rbtwn

      logical,   intent(in) :: lbound

      logical,   intent(in) :: lbmsg

    end subroutine

      

    subroutine uxptmz(ux,n,upy,roffx,rtick,index)

      real,      intent(in), dimension(*) :: ux

      integer,   intent(in) :: n

      real,      intent(in) :: upy

      real,      intent(in) :: roffx

      real,      intent(in) :: rtick

      integer,   intent(in) :: index

    end subroutine

      

    subroutine uxsoff()

    end subroutine

      

    subroutine uxroff()

    end subroutine



!--- uypack ---



    function luychk(cside)

      character(len=*), intent(in) :: cside

      logical  luychk

    end function

      

    subroutine uyplba(uy,ch,nc,n,upx,roffy,rsize,irota,icent,index)

      real,      intent(in), dimension(*) :: uy

      character(len=*), intent(in), dimension(*) :: ch

      integer,   intent(in) :: nc

      integer,   intent(in) :: n

      real,      intent(in) :: upx

      real,      intent(in) :: roffy

      real,      intent(in) :: rsize

      integer,   intent(in) :: irota

      integer,   intent(in) :: icent

      integer,   intent(out) :: index

    end subroutine

      

    subroutine uyplbb(uy,ch,nc,n,upx,roffy,rsize,irota,icent,index,rbtwn,lbound,lbmsg)

      real,      intent(in), dimension(*) :: uy

      character(len=*), intent(in), dimension(*) :: ch

      integer,   intent(in) :: nc

      integer,   intent(in) :: n

      real,      intent(in) :: upx

      real,      intent(in) :: roffy

      real,      intent(in) :: rsize

      integer,   intent(in) :: irota

      integer,   intent(in) :: icent

      integer,   intent(out) :: index

      real,      intent(in) :: rbtwn

      logical,   intent(in) :: lbound

      logical,   intent(in) :: lbmsg

    end subroutine

      

    subroutine uyptmz(uy,n,upx,roffy,rtick,index)

      real,      intent(in), dimension(*) :: uy

      integer,   intent(in) :: n

      real,      intent(in) :: upx

      real,      intent(in) :: roffy

      real,      intent(in) :: rtick

      integer,   intent(in) :: index

    end subroutine

      

    subroutine uysoff()

    end subroutine

      

    subroutine uyroff()

    end subroutine



!--- ucpack ---



    function nucchr(cs,nd)

      character(len=8), intent(out) :: cs

      integer  nucchr

    end function

    

      

    function nucday  (cs,nd)

      character(len=8), intent(out) :: cs

      integer  nucday

    end function



!--- udpack ---



    subroutine udsclz(lset)

      logical,   intent(in) :: lset

    end subroutine

      

    subroutine udqclz(lset)

      logical,   intent(out) :: lset

    end subroutine

      

    subroutine udline(z,mx,kx,ky,kk,cx,lopen,ibr)

      real,      intent(in), dimension(mx,*) :: z

      integer,   intent(in) :: mx

      integer,   intent(in) :: kx

      integer,   intent(in) :: ky

      integer,   intent(in) :: kk

      integer,   intent(in) :: cx

      logical,   intent(in) :: lopen

      integer,   intent(out), dimension(*) :: ibr

    end subroutine

      

    subroutine uduxuy(z,mx,ix,iy,k,cx,ux,uy)

      real,      intent(in), dimension(mx,*) :: z

      integer,   intent(in) :: mx

      integer,   intent(in) :: ix

      integer,   intent(in) :: iy

      integer,   intent(in) :: k

      integer,   intent(in) :: cx

      real,      intent(out) :: ux

      real,      intent(out) :: uy

    end subroutine

      

    subroutine udgrdn(mode,ix,iy,k,jx,jy,jk)

      integer,   intent(in) :: mode

      integer,   intent(in) :: ix

      integer,   intent(in) :: iy

      integer,   intent(in) :: k

      integer,   intent(out), dimension(*) :: jx

      integer,   intent(out), dimension(*) :: jy

      integer,   intent(out), dimension(*) :: jk

    end subroutine

      

    function rudval(zz,cz)

      real,      intent(in) :: zz

      real,      intent(in) :: cz

      real rudval

    end function

      

    subroutine udbset(i,j,k,l,ibr)

      integer,   intent(in) :: i

      integer,   intent(in) :: j

      integer,   intent(in) :: k

      integer,   intent(in) :: l

      integer,   intent(out), dimension(*) :: ibr

    end subroutine

      

    subroutine udbclr(i,j,k,l,ibr)

      integer,   intent(in) :: i

      integer,   intent(in) :: j

      integer,   intent(in) :: k

      integer,   intent(in) :: l

      integer,   intent(out), dimension(*) :: ibr

    end subroutine

      

    function ludchk(i,j,k,l,ibr)

      integer,   intent(in) :: i

      integer,   intent(in) :: j

      integer,   intent(in) :: k

      integer,   intent(in) :: l

      integer,   intent(out), dimension(*) :: ibr

      logical ludchk

    end function

      

    subroutine udlabl(val,cval)

      real,      intent(in) :: val

      character(len=*), intent(out) :: cval

    end subroutine



!--- uepack ---



    subroutine uestlz(lset)

      logical,   intent(in) :: lset

    end subroutine

      

    subroutine ueqtlz(lset)

      logical,   intent(out) :: lset

    end subroutine

      

    subroutine uearea(xp,yp,zp,vlvm,ax,ay,np,ni,ng)

      real,      intent(in), dimension(4) :: xp

      real,      intent(in), dimension(4) :: yp

      real,      intent(in), dimension(4) :: zp

      real,      intent(in), dimension(2) :: vlvm

      real,      intent(out), dimension(*) :: ax

      real,      intent(out), dimension(*) :: ay

      integer,   intent(out), dimension(2) :: np

      integer,   intent(out), dimension(2) :: ni

      integer,   intent(out) :: ng

    end subroutine

      

    subroutine ueaint

    end subroutine



!--- ugpack ---



    subroutine ugunit

    end subroutine

      

    subroutine ugdut

    end subroutine



!--- fftlib ---



!---------------------------------------------------------

!下位ルーチン

    subroutine cfftb1(n,c,ch,wa,ifac)

      integer,   intent(in) :: n

      complex,   intent(inout), dimension(*) :: c

      complex,   intent(inout), dimension(*) :: ch

      real,      intent(in), dimension(*) :: wa

      integer,   intent(in), dimension(*) :: ifac

    end subroutine

      

    subroutine cfftf1(n,c,ch,wa,ifac)

      integer,   intent(in) :: n

      complex,   intent(inout), dimension(*) :: c

      complex,   intent(inout), dimension(*) :: ch

      real,      intent(in), dimension(*) :: wa

      integer,   intent(in), dimension(*) :: ifac

    end subroutine

      

    subroutine cffti1(n,wa,ifac)

      integer,   intent(in) :: n

      real,      intent(out), dimension(*) :: wa

      integer,   intent(out), dimension(*) :: ifac

    end subroutine

      

    subroutine cosqb1(n,x,w,xh)

      integer,   intent(in) :: n

      real,      intent(inout), dimension(*) :: x

      real,      intent(in), dimension(*) :: w

      real,      intent(in), dimension(*) :: xh

    end subroutine

      

    subroutine cosqf1(n,x,w,xh)

      integer,   intent(in) :: n

      real,      intent(inout), dimension(*) :: x

      real,      intent(in), dimension(*) :: w

      real,      intent(inout), dimension(*) :: xh

    end subroutine

      

    subroutine ezfft1(n,wa,ifac)

      integer,   intent(in) :: n

      real,      intent(out), dimension(*) :: wa

      integer,   intent(out), dimension(*) :: ifac

    end subroutine

      

    subroutine passb(nac,ido,ip,l1,idl1,cc,c1,c2,ch,ch2,wa)

      integer,   intent(in) :: nac

      integer,   intent(in) :: ido

      integer,   intent(in) :: ip

      integer,   intent(in) :: l1

      integer,   intent(in) :: idl1

      complex,   intent(in), dimension(ido,ip,l1) :: cc

      complex,   intent(inout), dimension(ido,l1,ip) :: c1

      complex,   intent(inout), dimension(idl1,ip) :: c2

      complex,   intent(inout), dimension(ido,l1,ip) :: ch

      complex,   intent(inout), dimension(idl1,ip) :: ch2

      real,      intent(in), dimension(*) :: wa

    end subroutine

      

    subroutine passb2(ido,l1,cc,ch,wa1)

      integer,   intent(in) :: ido

      integer,   intent(in) :: l1

      complex,   intent(in), dimension(ido,2,l1) :: cc

      complex,   intent(out), dimension(ido,l1,2) :: ch

      real,      intent(in), dimension(*) :: wa1

    end subroutine

      

    subroutine passb3(ido,l1,cc,ch,wa1,wa2)

      integer,   intent(in) :: ido

      integer,   intent(in) :: l1

      complex,   intent(in), dimension(ido,3,l1) :: cc

      complex,   intent(out), dimension(ido,l1,3) :: ch

      real,      intent(in), dimension(*) :: wa1

      real,      intent(in), dimension(*) :: wa2

    end subroutine

      

    subroutine passb4(ido,l1,cc,ch,wa1,wa2,wa3)

      integer,   intent(in) :: ido

      integer,   intent(in) :: l1

      complex,   intent(in), dimension(ido,4,l1) :: cc

      complex,   intent(out), dimension(ido,l1,4) :: ch

      real,      intent(in), dimension(*) :: wa1

      real,      intent(in), dimension(*) :: wa2

      real,      intent(in), dimension(*) :: wa3

    end subroutine

      

    subroutine passb5(ido,l1,cc,ch,wa1,wa2,wa3,wa4)

      integer,   intent(in) :: ido

      integer,   intent(in) :: l1

      complex,   intent(in), dimension(ido,5,l1) :: cc

      complex,   intent(out), dimension(ido,l1,5) :: ch

      real,      intent(in), dimension(*) :: wa1

      real,      intent(in), dimension(*) :: wa2

      real,      intent(in), dimension(*) :: wa3

      real,      intent(in), dimension(*) :: wa4

    end subroutine

      

    subroutine passf(nac,ido,ip,l1,idl1,cc,c1,c2,ch,ch2,wa)

      integer,   intent(in) :: nac

      integer,   intent(in) :: ido

      integer,   intent(in) :: ip

      integer,   intent(in) :: l1

      integer,   intent(in) :: idl1

      complex,   intent(in), dimension(ido,ip,l1) :: cc

      complex,   intent(inout), dimension(ido,l1,ip) :: c1

      complex,   intent(inout), dimension(idl1,ip) :: c2

      complex,   intent(inout), dimension(ido,l1,ip) :: ch

      complex,   intent(inout), dimension(idl1,ip) :: ch2

      real,      intent(in), dimension(*) :: wa

    end subroutine

      

    subroutine passf2(ido,l1,cc,ch,wa1)

      integer,   intent(in) :: ido

      integer,   intent(in) :: l1

      complex,   intent(in), dimension(ido,2,l1) :: cc

      complex,   intent(out), dimension(ido,l1,2) :: ch

      real,      intent(in), dimension(*) :: wa1

    end subroutine

      

    subroutine passf3(ido,l1,cc,ch,wa1,wa2)

      integer,   intent(in) :: ido

      integer,   intent(in) :: l1

      complex,   intent(in), dimension(ido,3,l1) :: cc

      complex,   intent(out), dimension(ido,l1,3) :: ch

      real,      intent(in), dimension(*) :: wa1

      real,      intent(in), dimension(*) :: wa2

    end subroutine

      

    subroutine passf4(ido,l1,cc,ch,wa1,wa2,wa3)

      integer,   intent(in) :: ido

      integer,   intent(in) :: l1

      complex,   intent(in), dimension(ido,4,l1) :: cc

      complex,   intent(out), dimension(ido,l1,4) :: ch

      real,      intent(in), dimension(*) :: wa1

      real,      intent(in), dimension(*) :: wa2

      real,      intent(in), dimension(*) :: wa3

    end subroutine

      

    subroutine passf5(ido,l1,cc,ch,wa1,wa2,wa3,wa4)

      integer,   intent(in) :: ido

      integer,   intent(in) :: l1

      complex,   intent(in), dimension(ido,5,l1) :: cc

      complex,   intent(out), dimension(ido,l1,5) :: ch

      real,      intent(in), dimension(*) :: wa1

      real,      intent(in), dimension(*) :: wa2

      real,      intent(in), dimension(*) :: wa3

      real,      intent(in), dimension(*) :: wa4

    end subroutine

      

    subroutine radb2 (ido,l1,cc,ch,wa1)

      integer,   intent(in) :: ido

      integer,   intent(in) :: l1

      complex,   intent(in), dimension(ido,2,l1) :: cc

      complex,   intent(out), dimension(ido,l1,2) :: ch

      real,      intent(in), dimension(*) :: wa1

    end subroutine

      

    subroutine radb3(ido,l1,cc,ch,wa1,wa2)

      integer,   intent(in) :: ido

      integer,   intent(in) :: l1

      complex,   intent(in), dimension(ido,3,l1) :: cc

      complex,   intent(out), dimension(ido,l1,3) :: ch

      real,      intent(in), dimension(*) :: wa1

      real,      intent(in), dimension(*) :: wa2

    end subroutine

      

    subroutine radb4(ido,l1,cc,ch,wa1,wa2,wa3)

      integer,   intent(in) :: ido

      integer,   intent(in) :: l1

      complex,   intent(in), dimension(ido,4,l1) :: cc

      complex,   intent(out), dimension(ido,l1,4) :: ch

      real,      intent(in), dimension(*) :: wa1

      real,      intent(in), dimension(*) :: wa2

      real,      intent(in), dimension(*) :: wa3

    end subroutine

      

    subroutine radb5(ido,l1,cc,ch,wa1,wa2,wa3,wa4)

      integer,   intent(in) :: ido

      integer,   intent(in) :: l1

      complex,   intent(in), dimension(ido,5,l1) :: cc

      complex,   intent(out), dimension(ido,l1,5) :: ch

      real,      intent(in), dimension(*) :: wa1

      real,      intent(in), dimension(*) :: wa2

      real,      intent(in), dimension(*) :: wa3

      real,      intent(in), dimension(*) :: wa4

    end subroutine

      

    subroutine radbg (ido,ip,l1,idl1,cc,c1,c2,ch,ch2,wa)

      integer,   intent(in) :: ido

      integer,   intent(in) :: ip

      integer,   intent(in) :: l1

      integer,   intent(in) :: idl1

      complex,   intent(in), dimension(ido,ip,l1) :: cc

      complex,   intent(inout), dimension(ido,l1,ip) :: c1

      complex,   intent(inout), dimension(idl1,ip) :: c2

      complex,   intent(inout), dimension(ido,l1,ip) :: ch

      complex,   intent(inout), dimension(idl1,ip) :: ch2

      real,      intent(in), dimension(*) :: wa

    end subroutine

      

    subroutine radf2 (ido,l1,cc,ch,wa1)

      integer,   intent(in) :: ido

      integer,   intent(in) :: l1

      complex,   intent(in), dimension(ido,2,l1) :: cc

      complex,   intent(out), dimension(ido,l1,2) :: ch

      real,      intent(in), dimension(*) :: wa1

    end subroutine

      

    subroutine radf3(ido,l1,cc,ch,wa1,wa2)

      integer,   intent(in) :: ido

      integer,   intent(in) :: l1

      complex,   intent(in), dimension(ido,3,l1) :: cc

      complex,   intent(out), dimension(ido,l1,3) :: ch

      real,      intent(in), dimension(*) :: wa1

      real,      intent(in), dimension(*) :: wa2

    end subroutine

      

    subroutine radf4(ido,l1,cc,ch,wa1,wa2,wa3)

      integer,   intent(in) :: ido

      integer,   intent(in) :: l1

      complex,   intent(in), dimension(ido,4,l1) :: cc

      complex,   intent(out), dimension(ido,l1,4) :: ch

      real,      intent(in), dimension(*) :: wa1

      real,      intent(in), dimension(*) :: wa2

      real,      intent(in), dimension(*) :: wa3

    end subroutine

      

    subroutine radf5(ido,l1,cc,ch,wa1,wa2,wa3,wa4)

      integer,   intent(in) :: ido

      integer,   intent(in) :: l1

      complex,   intent(in), dimension(ido,5,l1) :: cc

      complex,   intent(out), dimension(ido,l1,5) :: ch

      real,      intent(in), dimension(*) :: wa1

      real,      intent(in), dimension(*) :: wa2

      real,      intent(in), dimension(*) :: wa3

      real,      intent(in), dimension(*) :: wa4

    end subroutine

      

    subroutine radfg(ido,ip,l1,idl1,cc,c1,c2,ch,ch2,wa)

      integer,   intent(in) :: ido

      integer,   intent(in) :: ip

      integer,   intent(in) :: l1

      integer,   intent(in) :: idl1

      complex,   intent(in), dimension(ido,ip,l1) :: cc

      complex,   intent(inout), dimension(ido,l1,ip) :: c1

      complex,   intent(inout), dimension(idl1,ip) :: c2

      complex,   intent(inout), dimension(ido,l1,ip) :: ch

      complex,   intent(inout), dimension(idl1,ip) :: ch2

      real,      intent(in), dimension(*) :: wa

    end subroutine

      

    subroutine rfftb1(n,c,ch,wa,ifac)

      integer,   intent(in) :: n

      complex,   intent(inout), dimension(*) :: c

      complex,   intent(inout), dimension(*) :: ch

      real,      intent(in), dimension(*) :: wa

      integer,   intent(in), dimension(*) :: ifac

    end subroutine

      

    subroutine rfftf1(n,c,ch,wa,ifac)

      integer,   intent(in) :: n

      complex,   intent(inout), dimension(*) :: c

      complex,   intent(inout), dimension(*) :: ch

      real,      intent(in), dimension(*) :: wa

      integer,   intent(in), dimension(*) :: ifac

    end subroutine

      

    subroutine rffti1(n,wa,ifac)

      integer,   intent(in) :: n

      real,      intent(out), dimension(*) :: wa

      integer,   intent(out), dimension(*) :: ifac

    end subroutine

      

    subroutine sint1(n,war,was,xh,x,ifac)

      integer,   intent(in) :: n

      real,      intent(inout), dimension(*) :: war

      real,      intent(in), dimension(*) :: was

      real,      intent(out), dimension(*) :: xh

      real,      intent(inout), dimension(*) :: x

      integer,   intent(in), dimension(*) :: ifac

    end subroutine