! (xplasma) eq_r4gen.csh generated code -- Mon Oct 31 13:18:50 EST 2005
 
      MODULE XPLASMA_CALLS
! ( eq_area )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_AREA
!
       INTERFACE EQ_AREA
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_AREA ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_AREA(
     > IVEC,ZRHO,IWANT,ZVAL,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IWANT
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZVAL(IVEC)
 
      end subroutine EQ_AREA
!
         END INTERFACE
! ( eq_bdfind )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQX_BDFIND
!
       INTERFACE EQX_BDFIND
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQX_BDFIND ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQX_BDFIND(
     > IVEC,XX,YY,ZZ,ZRHO_IN,ZCHI_OUT,ZPHI_OUT,ZDIST,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZRHO_IN
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZCHI_OUT(IVEC)
      REAL*8 ZPHI_OUT(IVEC)
      REAL*8 ZDIST(IVEC)
 
      end subroutine EQX_BDFIND
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_BDFIND
!
       INTERFACE EQ_BDFIND
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_BDFIND ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_BDFIND(
     > IVEC,ZR,ZZ,ZPHI,ZRHO_IN,ZCHI_OUT,ZPHI_OUT,ZDIST,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZRHO_IN
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZCHI_OUT(IVEC)
      REAL*8 ZPHI_OUT(IVEC)
      REAL*8 ZDIST(IVEC)
 
      end subroutine EQ_BDFIND
!
         END INTERFACE
! ( eq_bdlims )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_BDLIMS
!
       INTERFACE EQ_BDLIMS
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_BDLIMS ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_BDLIMS(
     > ITYPE,ZRMIN,ZRMAX,ZZMIN,ZZMAX,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER ITYPE
      REAL*8 ZRMIN
      REAL*8 ZRMAX
      REAL*8 ZZMIN
      REAL*8 ZZMAX
      INTEGER IERR
 
      end subroutine EQ_BDLIMS
!
         END INTERFACE
! ( eq_bffget )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_BFFGET
!
       INTERFACE EQ_BFFGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_BFFGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_BFFGET(
     > IVEC,ZRHO,ZCHI,ZPHI,IRZMODE,BVEC,NLIST,IFCNS,IVECD,FVALS,NREGION,
     > IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IRZMODE
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 BVEC(3,IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQ_BFFGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_BFFGRAD
!
       INTERFACE EQ_BFFGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_BFFGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_BFFGRAD(
     > IVEC,ZRHO,ZCHI,ZPHI,IRZMODE,BVEC,GBTENSR,NLIST,IFCNS,IVECD,FVALS,
     > FGRADS,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IRZMODE
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 BVEC(3,IVEC)
      REAL*8 GBTENSR(3,3,IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      REAL*8 FGRADS(3,IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQ_BFFGRAD
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQMAP_BFFGET
!
      INTERFACE EQMAP_BFFGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQMAP_BFFGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQMAP_BFFGET(
     > IVEC,ZRHO,ZCHI,ZPHI,ZR,ZZ,IRZMODE,BVEC,NLIST,IFCNS,IVECD,FVALS,
     > NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IRZMODE
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 BVEC(3,IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQMAP_BFFGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQMAP_BFFGRAD
!
      INTERFACE EQMAP_BFFGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQMAP_BFFGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQMAP_BFFGRAD(
     > IVEC,ZRHO,ZCHI,ZPHI,ZR,ZZ,IRZMODE,BVEC,GBTENSR,NLIST,IFCNS,IVECD,
     > FVALS,FGRADS,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IRZMODE
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 BVEC(3,IVEC)
      REAL*8 GBTENSR(3,3,IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      REAL*8 FGRADS(3,IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQMAP_BFFGRAD
!
      END INTERFACE
! ( eq_bget )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_BGET
!
      INTERFACE EQ_BGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_BGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_BGET(
     > IVEC,ZRHO,ZCHI,ZPHI,IRZMODE,BVEC,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IRZMODE
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 BVEC(3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQ_BGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_BGRAD
!
      INTERFACE EQ_BGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_BGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_BGRAD(
     > IVEC,ZRHO,ZCHI,ZPHI,IRZMODE,BVEC,GBTENSR,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IRZMODE
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 BVEC(3,IVEC)
      REAL*8 GBTENSR(3,3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQ_BGRAD
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQMAP_BGET
!
      INTERFACE EQMAP_BGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQMAP_BGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQMAP_BGET(
     > IVEC,ZRHO,ZCHI,ZPHI,ZR,ZZ,IRZMODE,BVEC,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IRZMODE
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 BVEC(3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQMAP_BGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQMAP_BGRAD
!
      INTERFACE EQMAP_BGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQMAP_BGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQMAP_BGRAD(
     > IVEC,ZRHO,ZCHI,ZPHI,ZR,ZZ,IRZMODE,BVEC,GBTENSR,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IRZMODE
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 BVEC(3,IVEC)
      REAL*8 GBTENSR(3,3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQMAP_BGRAD
!
      END INTERFACE
! ( eq_dfast )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQX_DFAST
!
      INTERFACE EQX_DFAST
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQX_DFAST ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQX_DFAST(
     > IVEC,XX,YY,ZZ,ZDIST,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZDIST(IVEC)
 
      end subroutine EQX_DFAST
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_DFAST
!
      INTERFACE EQ_DFAST
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_DFAST ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_DFAST(
     > IVEC,ZR,ZZ,ZPHI,ZDIST,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZDIST(IVEC)
 
      end subroutine EQ_DFAST
!
      END INTERFACE
! ( eq_ffget )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_FFGET
!
      INTERFACE EQ_FFGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_FFGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_FFGET(
     > IVEC,ZRHO,ZCHI,ZPHI,NLIST,IFCNS,IVECD,FVALS,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQ_FFGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_FFGRAD
!
      INTERFACE EQ_FFGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_FFGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_FFGRAD(
     > IVEC,ZRHO,ZCHI,ZPHI,IRZMODE,NLIST,IFCNS,IVECD,FVALS,FGRADS,
     > NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IRZMODE
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      REAL*8 FGRADS(3,IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQ_FFGRAD
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQMAP_FFGET
!
       INTERFACE EQMAP_FFGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQMAP_FFGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQMAP_FFGET(
     > IVEC,ZRHO,ZCHI,ZPHI,ZR,ZZ,NLIST,IFCNS,IVECD,FVALS,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQMAP_FFGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQMAP_FFGRAD
!
      INTERFACE EQMAP_FFGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQMAP_FFGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQMAP_FFGRAD(
     > IVEC,ZRHO,ZCHI,ZPHI,ZR,ZZ,IRZMODE,NLIST,IFCNS,IVECD,FVALS,FGRADS,
     > NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IRZMODE
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      REAL*8 FGRADS(3,IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQMAP_FFGRAD
!
      END INTERFACE
! ( eq_fget )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_FGET
!
      INTERFACE EQ_FGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_FGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_FGET(
     > IVEC,ZRHO,ZCHI,ZPHI,IFCN,FVAL,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IFCN
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 FVAL(IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQ_FGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_FGRAD
!
      INTERFACE EQ_FGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_FGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_FGRAD(
     > IVEC,ZRHO,ZCHI,ZPHI,IRZMODE,IFCN,FVAL,FGRAD,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IRZMODE
      INTEGER IFCN
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 FVAL(IVEC)
      REAL*8 FGRAD(3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQ_FGRAD
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQMAP_FGET
!
      INTERFACE EQMAP_FGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQMAP_FGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQMAP_FGET(
     > IVEC,ZRHO,ZCHI,ZPHI,ZR,ZZ,IFCN,FVAL,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IFCN
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 FVAL(IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQMAP_FGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQMAP_FGRAD
!
      INTERFACE EQMAP_FGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQMAP_FGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQMAP_FGRAD(
     > IVEC,ZRHO,ZCHI,ZPHI,ZR,ZZ,IRZMODE,IFCN,FVAL,FGRAD,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IRZMODE
      INTEGER IFCN
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 FVAL(IVEC)
      REAL*8 FGRAD(3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQMAP_FGRAD
!
      END INTERFACE
! ( eq_flxint_arr2d )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_FLXINT_ARR2D
!
       INTERFACE EQ_FLXINT_ARR2D
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_FLXINT_ARR2D ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_FLXINT_ARR2D(
     > IORDER,IRHOAX,ZDATA,ID1,ID2,IBCRHO0,IDZ0,ZBCRHO0,IBCRHO1,IDZ1,
     > ZBCRHO1,IWANT,RESULT,INUMCHI,INUMRHO,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IORDER
      INTEGER IRHOAX
      INTEGER ID1
      INTEGER ID2
      INTEGER IBCRHO0
      INTEGER IDZ0
      INTEGER IBCRHO1
      INTEGER IDZ1
      INTEGER IWANT
      INTEGER INUMCHI
      INTEGER INUMRHO
      INTEGER IERR
      REAL*8 ZDATA(ID1,ID2)
      REAL*8 ZBCRHO0(IDZ0)
      REAL*8 ZBCRHO1(IDZ1)
      REAL*8 RESULT(INUMCHI,INUMRHO)
 
      end subroutine EQ_FLXINT_ARR2D
!
      END INTERFACE
! ( eq_flxint )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_FLXINT
!
      INTERFACE EQ_FLXINT
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_FLXINT ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_FLXINT(
     > NAME,NOPTION,RESULT,INUMCHI,INUMRHO,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      CHARACTER*(*) NAME
      INTEGER NOPTION
      INTEGER INUMCHI
      INTEGER INUMRHO
      INTEGER IERR
      REAL*8 RESULT(INUMCHI,INUMRHO)
 
      end subroutine EQ_FLXINT
!
      END INTERFACE
! ( eq_flxint_init )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_FLXINT_INIT
!
      INTERFACE EQ_FLXINT_INIT
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_FLXINT_INIT ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_FLXINT_INIT(
     > IAUTO,INUM,ZRHO,ZRHOMIN,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IAUTO
      INTEGER INUM
      REAL*8 ZRHOMIN
      INTEGER IERR
      REAL*8 ZRHO(INUM)
 
      end subroutine EQ_FLXINT_INIT
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_FLXINT_CHINIT
!
      INTERFACE EQ_FLXINT_CHINIT
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_FLXINT_CHINIT ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_FLXINT_CHINIT(
     > IAUTO,INUMCHIS,ZCHI,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IAUTO
      INTEGER INUMCHIS
      INTEGER IERR
      REAL*8 ZCHI(INUMCHIS)
 
      end subroutine EQ_FLXINT_CHINIT
!
      END INTERFACE
! ( eq_frhochi )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_FRHOCHI
!
      INTERFACE EQ_FRHOCHI
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_FRHOCHI ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_FRHOCHI(
     > IVEC,ZRHO,ZCHI,NLIST,IFLIST,IVECD,ZANS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      INTEGER IFLIST(NLIST)
      REAL*8 ZANS(IVECD,NLIST)
 
      end subroutine EQ_FRHOCHI
!
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  R4_EQ_FRHOCHI ... for meaning of arguments see the documentation
 
      SUBROUTINE    R4_EQ_FRHOCHI(
     > IVEC,R4_ZRHO,R4_ZCHI,NLIST,IFLIST,IVECD,R4_ZANS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL R4_ZRHO(IVEC)
      REAL R4_ZCHI(IVEC)
      INTEGER IFLIST(NLIST)
      REAL R4_ZANS(IVECD,NLIST)
 
      end subroutine R4_EQ_FRHOCHI
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_GRHOCHI
!
      INTERFACE EQ_GRHOCHI
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_GRHOCHI ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_GRHOCHI(
     > IVEC,ZRHO,ZCHI,NLIST,IFLIST,IVECD,ZANS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      INTEGER IFLIST(NLIST)
      REAL*8 ZANS(IVECD,2,NLIST)
 
      end subroutine EQ_GRHOCHI
!
      END INTERFACE
! ( eq_frz )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_FRZ
!
      INTERFACE EQ_FRZ
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_FRZ ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_FRZ(
     > IVEC,ZR,ZZ,NLIST,IFLIST,IVECD,ZANS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      INTEGER IFLIST(NLIST)
      REAL*8 ZANS(IVECD,NLIST)
 
      end subroutine EQ_FRZ
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_GRZ
!
      INTERFACE EQ_GRZ
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_GRZ ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_GRZ(
     > IVEC,ZR,ZZ,NLIST,IFLIST,IVECD,ZANS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      INTEGER IFLIST(NLIST)
      REAL*8 ZANS(IVECD,2,NLIST)
 
      end subroutine EQ_GRZ
!
      END INTERFACE
! ( eq_fxcep )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_FXCEP
!
      INTERFACE EQ_FXCEP
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_FXCEP ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_FXCEP(
     > INUM,ITYPE,IDINIT,RA,ZA,PHIA,DA,RB,ZB,PHIB,DB,TOL,RX,ZX,PHIX,
     > ISTAT,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER INUM
      INTEGER ITYPE
      INTEGER IDINIT
      REAL*8 TOL
      INTEGER IERR
      REAL*8 RA(INUM)
      REAL*8 ZA(INUM)
      REAL*8 PHIA(INUM)
      REAL*8 DA(INUM)
      REAL*8 RB(INUM)
      REAL*8 ZB(INUM)
      REAL*8 PHIB(INUM)
      REAL*8 DB(INUM)
      REAL*8 RX(INUM)
      REAL*8 ZX(INUM)
      REAL*8 PHIX(INUM)
      INTEGER ISTAT(INUM)
 
      end subroutine EQ_FXCEP
!
      END INTERFACE
! ( eq_ganum )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_GANUM
!
      INTERFACE EQ_GANUM
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_GANUM ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_GANUM(
     > ZNAME,IANUM)
 
      IMPLICIT NONE
 
! argument declarations
      CHARACTER*(*) ZNAME
      INTEGER IANUM
 
      end subroutine EQ_GANUM
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_GET_ANAME
!
       INTERFACE EQ_GET_ANAME
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_GET_ANAME ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_GET_ANAME(
     > IANUM,ZNAME)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IANUM
      CHARACTER*(*) ZNAME
 
      end subroutine EQ_GET_ANAME
!
         END INTERFACE
! ( eq_gaxis )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_GAXIS
!
       INTERFACE EQ_GAXIS
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_GAXIS ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_GAXIS(
     > IVEC,PHI,B_AXIS,R_AXIS,Z_AXIS)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 PHI(IVEC)
      REAL*8 B_AXIS(IVEC)
      REAL*8 R_AXIS(IVEC)
      REAL*8 Z_AXIS(IVEC)
 
      end subroutine EQ_GAXIS
!
      END INTERFACE
! ( eq_geqdsk )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_GEQDSK
!
      INTERFACE EQ_GEQDSK
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_GEQDSK ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_GEQDSK(
     > LUN_GEQDSK,GEQDSK_LBL,RMIN,RMAX,ZMIN,ZMAX,ZCUR,ID_P,ID_Q,NH,NV,
     > NB,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER LUN_GEQDSK
      CHARACTER*48 GEQDSK_LBL
      REAL*8 RMIN
      REAL*8 RMAX
      REAL*8 ZMIN
      REAL*8 ZMAX
      REAL*8 ZCUR
      INTEGER ID_P
      INTEGER ID_Q
      INTEGER NH
      INTEGER NV
      INTEGER NB
      INTEGER IERR
 
      end subroutine EQ_GEQDSK
!
      END INTERFACE
! ( eq_getdetj )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_GETDETJ
!
      INTERFACE EQ_GETDETJ
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_GETDETJ ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_GETDETJ(
     > IVEC,ZRHO,ZCHI,ZPHI,ZSCALE,DETJ,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZSCALE
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 DETJ(IVEC)
 
      end subroutine EQ_GETDETJ
!
      END INTERFACE
! ( eq_getjac )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_GETJAC
!
      INTERFACE EQ_GETJAC
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_GETJAC ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_GETJAC(
     > IVEC,ZRHO,ZCHI,ZPHI,IRZMODE,JTENS,DETJ,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IRZMODE
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 JTENS(3,3,IVEC)
      REAL*8 DETJ(IVEC)
 
      end subroutine EQ_GETJAC
!
      END INTERFACE
! ( eq_gflist )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_GFLIST
!
      INTERFACE EQ_GFLIST
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_GFLIST ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_GFLIST(
     > NLIST,FNAMES,INAMES,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER NLIST
      INTEGER IERR
      CHARACTER*(*) FNAMES(NLIST)
      INTEGER INAMES(NLIST)
 
      end subroutine EQ_GFLIST
!
         END INTERFACE
! ( eq_gfnum )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_GFNUM
!
       INTERFACE EQ_GFNUM
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_GFNUM ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_GFNUM(
     > ZNAME,IFNUM)
 
      IMPLICIT NONE
 
! argument declarations
      CHARACTER*(*) ZNAME
      INTEGER IFNUM
 
      end subroutine EQ_GFNUM
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_GET_FNAME
!
       INTERFACE EQ_GET_FNAME
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_GET_FNAME ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_GET_FNAME(
     > IFNUM,ZNAME)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IFNUM
      CHARACTER*(*) ZNAME
 
      end subroutine EQ_GET_FNAME
!
         END INTERFACE
! ( eq_glimb1 )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_GLIMB1
!
       INTERFACE EQ_GLIMB1
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_GLIMB1 ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_GLIMB1(
     > RHO,PHI,B_MIN,CHI_B_MIN,B_MAX,CHI_B_MAX,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      REAL*8 RHO
      REAL*8 PHI
      REAL*8 B_MIN
      REAL*8 B_MAX
      INTEGER IERR
      REAL*8 CHI_B_MIN(1)
      REAL*8 CHI_B_MAX(1)
 
      end subroutine EQ_GLIMB1
!
      END INTERFACE
! ( eq_glimb )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_GLIMB
!
      INTERFACE EQ_GLIMB
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_GLIMB ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_GLIMB(
     > RHO,B_MIN,B_MAX,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      REAL*8 RHO
      REAL*8 B_MIN
      REAL*8 B_MAX
      INTEGER IERR
 
      end subroutine EQ_GLIMB
!
      END INTERFACE
! ( eq_glimrz )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_GLIMRZ
!
      INTERFACE EQ_GLIMRZ
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_GLIMRZ ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_GLIMRZ(
     > RHO,R_MIN,R_MAX,Z_MIN,Z_MAX,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      REAL*8 RHO
      REAL*8 R_MIN
      REAL*8 R_MAX
      REAL*8 Z_MIN
      REAL*8 Z_MAX
      INTEGER IERR
 
      end subroutine EQ_GLIMRZ
!
      END INTERFACE
! ( eq_grid )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_GRID
!
      INTERFACE EQ_GRID
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_GRID ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_GRID(
     > ID_AXIS,ZDATA,NMAX,NGOT,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER ID_AXIS
      INTEGER NMAX
      INTEGER NGOT
      INTEGER IERR
      REAL*8 ZDATA(NMAX)
 
      end subroutine EQ_GRID
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_GRID_ZC
!
      INTERFACE EQ_GRID_ZC
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_GRID_ZC ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_GRID_ZC(
     > ID_AXIS,ZDATA,NMAX,NGOT,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER ID_AXIS
      INTEGER NMAX
      INTEGER NGOT
      INTEGER IERR
      REAL*8 ZDATA(NMAX)
 
      end subroutine EQ_GRID_ZC
!
      END INTERFACE
! ( eq_hrhochi )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_HRHOCHI
!
      INTERFACE EQ_HRHOCHI
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_HRHOCHI ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_HRHOCHI(
     > IVEC,ZRHO,ZCHI,NLIST,IFLIST,ICTWANT,IVECD,ZANS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      INTEGER IFLIST(NLIST)
      INTEGER ICTWANT(6)
      REAL*8 ZANS(IVECD,*)
 
      end subroutine EQ_HRHOCHI
!
      END INTERFACE
! ( eq_hrz )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_HRZ
!
      INTERFACE EQ_HRZ
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_HRZ ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_HRZ(
     > IVEC,ZR,ZZ,NLIST,IFLIST,ICTWANT,IVECD,ZANS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      INTEGER IFLIST(NLIST)
      INTEGER ICTWANT(6)
      REAL*8 ZANS(IVECD,*)
 
      end subroutine EQ_HRZ
!
      END INTERFACE
! ( eq_inv )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQX_INV
!
      INTERFACE EQX_INV
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQX_INV ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQX_INV(
     > IVEC,XX,YY,ZZ,TOL,ZRHO,ZCHI,ZPHI,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 TOL
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQX_INV
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_INV
!
      INTERFACE EQ_INV
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_INV ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_INV(
     > IVEC,ZR,ZZ,ZPHI,TOL,ZRHO,ZCHI,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 TOL
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQ_INV
!
      END INTERFACE
! ( eq_limcon )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_LIMCON
!
      INTERFACE EQ_LIMCON
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_LIMCON ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_LIMCON(
     > IMAX,INUM,RLIM,ZLIM,DTOL,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IMAX
      INTEGER INUM
      REAL*8 DTOL
      INTEGER IERR
      REAL*8 RLIM(IMAX)
      REAL*8 ZLIM(IMAX)
 
      end subroutine EQ_LIMCON
!
      END INTERFACE
! ( eq_list )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_NLIST
!
      INTERFACE EQ_NLIST
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_NLIST ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_NLIST(
     > INUM_LISTS)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER INUM_LISTS
 
      end subroutine EQ_NLIST
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_NLIST_P
!
       INTERFACE EQ_NLIST_P
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_NLIST_P ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_NLIST_P(
     > INUM_LISTS)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER INUM_LISTS
 
      end subroutine EQ_NLIST_P
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_LISTS
!
       INTERFACE EQ_LISTS
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_LISTS ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_LISTS(
     > INUM_LISTS,LIST_NAMES,LIST_IDS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER INUM_LISTS
      INTEGER IERR
      CHARACTER*(*) LIST_NAMES(INUM_LISTS)
      INTEGER LIST_IDS(INUM_LISTS)
 
      end subroutine EQ_LISTS
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_LISTS_P
!
       INTERFACE EQ_LISTS_P
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_LISTS_P ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_LISTS_P(
     > INUM_LISTS,LIST_NAMES,LIST_IDS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER INUM_LISTS
      INTEGER IERR
      CHARACTER*(*) LIST_NAMES(INUM_LISTS)
      INTEGER LIST_IDS(INUM_LISTS)
 
      end subroutine EQ_LISTS_P
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_GLISTNUM
!
       INTERFACE EQ_GLISTNUM
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_GLISTNUM ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_GLISTNUM(
     > LIST_NAME,LIST_ID)
 
      IMPLICIT NONE
 
! argument declarations
      CHARACTER*(*) LIST_NAME
      INTEGER LIST_ID
 
      end subroutine EQ_GLISTNUM
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_LIST_SIZE
!
       INTERFACE EQ_LIST_SIZE
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_LIST_SIZE ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_LIST_SIZE(
     > ID,LIST_SIZE)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER ID
      INTEGER LIST_SIZE
 
      end subroutine EQ_LIST_SIZE
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_LIST_LABEL
!
       INTERFACE EQ_LIST_LABEL
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_LIST_LABEL ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_LIST_LABEL(
     > ID,ZLABEL)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER ID
      CHARACTER*(*) ZLABEL
 
      end subroutine EQ_LIST_LABEL
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_LIST_MAXSIZE
!
       INTERFACE EQ_LIST_MAXSIZE
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_LIST_MAXSIZE ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_LIST_MAXSIZE(
     > LIST_SIZE)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER LIST_SIZE
 
      end subroutine EQ_LIST_MAXSIZE
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_LIST_ENAMES
!
       INTERFACE EQ_LIST_ENAMES
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_LIST_ENAMES ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_LIST_ENAMES(
     > ID,LIST_SIZE,ENAMES,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER ID
      INTEGER LIST_SIZE
      INTEGER IERR
      CHARACTER*(*) ENAMES(LIST_SIZE)
 
      end subroutine EQ_LIST_ENAMES
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_LIST_CHVALS
!
       INTERFACE EQ_LIST_CHVALS
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_LIST_CHVALS ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_LIST_CHVALS(
     > ID,LIST_SIZE,CHVALS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER ID
      INTEGER LIST_SIZE
      INTEGER IERR
      CHARACTER*(*) CHVALS(LIST_SIZE)
 
      end subroutine EQ_LIST_CHVALS
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_LIST_R8VALS
!
       INTERFACE EQ_LIST_R8VALS
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_LIST_R8VALS ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_LIST_R8VALS(
     > ID,LIST_SIZE,R8VALS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER ID
      INTEGER LIST_SIZE
      INTEGER IERR
      REAL*8 R8VALS(LIST_SIZE)
 
      end subroutine EQ_LIST_R8VALS
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_LIST_R4VALS
!
       INTERFACE EQ_LIST_R4VALS
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_LIST_R4VALS ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_LIST_R4VALS(
     > ID,LIST_SIZE,R4VALS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER ID
      INTEGER LIST_SIZE
      INTEGER IERR
      REAL*4 R4VALS(LIST_SIZE)
 
      end subroutine EQ_LIST_R4VALS
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_LIST_IVALS
!
       INTERFACE EQ_LIST_IVALS
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_LIST_IVALS ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_LIST_IVALS(
     > ID,LIST_SIZE,IVALS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER ID
      INTEGER LIST_SIZE
      INTEGER IERR
      INTEGER IVALS(LIST_SIZE)
 
      end subroutine EQ_LIST_IVALS
!
         END INTERFACE
! ( eqm_bbin )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_BBIN
!
       INTERFACE EQM_BBIN
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_BBIN ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_BBIN(
     > ZBB,IAUTO,INUM,ZTOL,ID,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IAUTO
      INTEGER INUM
      REAL*8 ZTOL
      INTEGER ID
      INTEGER IERR
      REAL*8 ZBB(INUM)
 
      end subroutine EQM_BBIN
!
      END INTERFACE
! ( eqm_brz )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_BRZ
!
      INTERFACE EQM_BRZ
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_BRZ ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_BRZ(
     > USERBVEC,ZSM,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      EXTERNAL USERBVEC
      REAL*8 ZSM
      INTEGER IERR
 
      end subroutine EQM_BRZ
!
      END INTERFACE
! ( eqm_cbdy )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_CBDY
!
      INTERFACE EQM_CBDY
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_CBDY ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_CBDY(
     > IPTS,RLIM,ZLIM,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IPTS
      INTEGER IERR
      REAL*8 RLIM(IPTS)
      REAL*8 ZLIM(IPTS)
 
      end subroutine EQM_CBDY
!
      END INTERFACE
! ( eqm_cbdy_grid )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_CBDY_GRID
!
      INTERFACE EQM_CBDY_GRID
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_CBDY_GRID ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_CBDY_GRID(
     > IPTS,RLIM,ZLIM,INUMR,INUMZ,ID_R,ID_Z,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IPTS
      INTEGER INUMR
      INTEGER INUMZ
      INTEGER ID_R
      INTEGER ID_Z
      INTEGER IERR
      REAL*8 RLIM(IPTS)
      REAL*8 ZLIM(IPTS)
 
      end subroutine EQM_CBDY_GRID
!
      END INTERFACE
! ( eqm_chi )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_CHI
!
      INTERFACE EQM_CHI
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_CHI ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_CHI(
     > ZCHI,IAUTO,INUM,ZTOL,ID,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IAUTO
      INTEGER INUM
      REAL*8 ZTOL
      INTEGER ID
      INTEGER IERR
      REAL*8 ZCHI(INUM)
 
      end subroutine EQM_CHI
!
      END INTERFACE
! ( eqm_dbdy )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_DBDY
!
      INTERFACE EQM_DBDY
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_DBDY ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_DBDY(
     > ZDIST,ZRMINI,ZRMAXI,ZZMINI,ZZMAXI,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      REAL*8 ZDIST
      REAL*8 ZRMINI
      REAL*8 ZRMAXI
      REAL*8 ZZMINI
      REAL*8 ZZMAXI
      INTEGER IERR
 
      end subroutine EQM_DBDY
!
      END INTERFACE
! ( eqm_dbdy_grid )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_DBDY_GRID
!
      INTERFACE EQM_DBDY_GRID
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_DBDY_GRID ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_DBDY_GRID(
     > ZDIST,ZRMINI,ZRMAXI,ZZMINI,ZZMAXI,INUMR,INUMZ,ID_R,ID_Z,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      REAL*8 ZDIST
      REAL*8 ZRMINI
      REAL*8 ZRMAXI
      REAL*8 ZZMINI
      REAL*8 ZZMAXI
      INTEGER INUMR
      INTEGER INUMZ
      INTEGER ID_R
      INTEGER ID_Z
      INTEGER IERR
 
      end subroutine EQM_DBDY_GRID
!
      END INTERFACE
! ( eqm_f1d )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_F1D
!
      INTERFACE EQM_F1D
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_F1D ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_F1D(
     > IORDER,ID_AXIS,ZLBL,ZDATA,IBC1,ZBC1,IBC2,ZBC2,ID_F1D,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IORDER
      INTEGER ID_AXIS
      CHARACTER*(*) ZLBL
      INTEGER IBC1
      REAL*8 ZBC1
      INTEGER IBC2
      REAL*8 ZBC2
      INTEGER ID_F1D
      INTEGER IERR
      REAL*8 ZDATA(*)
 
      end subroutine EQM_F1D
!
      END INTERFACE
! ( eqm_frhochi )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_FRHOCHI
!
      INTERFACE EQM_FRHOCHI
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_FRHOCHI ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_FRHOCHI(
     > IORDER,ID_AX1,ID_AX2,ZLBL,ZDATA,ID1,IBCRHO0,ZBCRHO0,IBCRHO1,
     > ZBCRHO1,ID_FUN,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IORDER
      INTEGER ID_AX1
      INTEGER ID_AX2
      CHARACTER*(*) ZLBL
      INTEGER ID1
      INTEGER IBCRHO0
      INTEGER IBCRHO1
      INTEGER ID_FUN
      INTEGER IERR
      REAL*8 ZDATA(ID1,*)
      REAL*8 ZBCRHO0(*)
      REAL*8 ZBCRHO1(*)
 
      end subroutine EQM_FRHOCHI
!
      END INTERFACE

! ( eqm_irhofun )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_IRHOFUN
!
      INTERFACE EQM_IRHOFUN
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_IRHOFUN ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_IRHOFUN(
     > ID_AXIS,ZLBL,INPROF,ZPROF,IFLAG,ID,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER ID_AXIS
      CHARACTER*(*) ZLBL
      INTEGER INPROF
      INTEGER IFLAG
      INTEGER ID
      INTEGER IERR
      REAL*8 ZPROF(INPROF)
 
      end subroutine EQM_IRHOFUN
!
      END INTERFACE
! ( eqm_list )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_LIST_CREATE
!
      INTERFACE EQM_LIST_CREATE
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_LIST_CREATE ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_LIST_CREATE(
     > ZLIST_NAME,ZLIST_LABEL,INUM,ELEM_NAMES,ID,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      CHARACTER*(*) ZLIST_NAME
      CHARACTER*(*) ZLIST_LABEL
      INTEGER INUM
      CHARACTER*(*) ELEM_NAMES
      INTEGER ID
      INTEGER IERR
 
      end subroutine EQM_LIST_CREATE
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQM_LIST_CHVAL
!
       INTERFACE EQM_LIST_CHVAL
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_LIST_CHVAL ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_LIST_CHVAL(
     > IDENT,INUM,ZCHVALS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IDENT
      INTEGER INUM
      CHARACTER*(*) ZCHVALS
      INTEGER IERR
 
      end subroutine EQM_LIST_CHVAL
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQM_LIST_IVAL
!
       INTERFACE EQM_LIST_IVAL
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_LIST_IVAL ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_LIST_IVAL(
     > IDENT,INUM,IVALS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IDENT
      INTEGER INUM
      INTEGER IVALS
      INTEGER IERR
 
      end subroutine EQM_LIST_IVAL
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQM_LIST_R8VAL
!
       INTERFACE EQM_LIST_R8VAL
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_LIST_R8VAL ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_LIST_R8VAL(
     > IDENT,INUM,R8VALS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IDENT
      INTEGER INUM
      REAL*8 R8VALS
      INTEGER IERR
 
      end subroutine EQM_LIST_R8VAL
!
         END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQM_LIST_R4VAL
!
       INTERFACE EQM_LIST_R4VAL
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_LIST_R4VAL ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_LIST_R4VAL(
     > IDENT,INUM,R4VALS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IDENT
      INTEGER INUM
      REAL R4VALS
      INTEGER IERR
 
      end subroutine EQM_LIST_R4VAL
!
         END INTERFACE
! ( eqm_msgs )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_MSGS
!
       INTERFACE EQM_MSGS
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_MSGS ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_MSGS(
     > ILUN,ZFILE,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER ILUN
      CHARACTER*(*) ZFILE
      INTEGER IERR
 
      end subroutine EQM_MSGS
!
         END INTERFACE
! ( eqmom_getall )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQMOM_RCOS
!
       INTERFACE EQMOM_RCOS
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQMOM_RCOS ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQMOM_RCOS(
     > X,NX,INORM,IM,MOMARR,IWARN)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER NX
      INTEGER INORM
      INTEGER IM
      INTEGER IWARN
      REAL*8 X(NX)
      REAL*8 MOMARR(NX)
 
      end subroutine EQMOM_RCOS
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQMOM_RSIN
!
      INTERFACE EQMOM_RSIN
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQMOM_RSIN ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQMOM_RSIN(
     > X,NX,INORM,IM,MOMARR,IWARN)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER NX
      INTEGER INORM
      INTEGER IM
      INTEGER IWARN
      REAL*8 X(NX)
      REAL*8 MOMARR(NX)
 
      end subroutine EQMOM_RSIN
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQMOM_ZCOS
!
      INTERFACE EQMOM_ZCOS
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQMOM_ZCOS ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQMOM_ZCOS(
     > X,NX,INORM,IM,MOMARR,IWARN)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER NX
      INTEGER INORM
      INTEGER IM
      INTEGER IWARN
      REAL*8 X(NX)
      REAL*8 MOMARR(NX)
 
      end subroutine EQMOM_ZCOS
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQMOM_ZSIN
!
      INTERFACE EQMOM_ZSIN
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQMOM_ZSIN ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQMOM_ZSIN(
     > X,NX,INORM,IM,MOMARR,IWARN)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER NX
      INTEGER INORM
      INTEGER IM
      INTEGER IWARN
      REAL*8 X(NX)
      REAL*8 MOMARR(NX)
 
      end subroutine EQMOM_ZSIN
!
      END INTERFACE
! ( eqm_rho )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_RHO
!
      INTERFACE EQM_RHO
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_RHO ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_RHO(
     > ZRHO,IBDY,ZTOL,ID,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IBDY
      REAL*8 ZTOL
      INTEGER ID
      INTEGER IERR
      REAL*8 ZRHO(IBDY)
 
      end subroutine EQM_RHO
!
      END INTERFACE
! ( eqm_rhofun )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_RHOFUN
!
      INTERFACE EQM_RHOFUN
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_RHOFUN ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_RHOFUN(
     > IORDER,ID_AXIS,ZLBL,ZDATA,IBC1,ZBC1,IBC2,ZBC2,ID_RHOFUN,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IORDER
      INTEGER ID_AXIS
      CHARACTER*(*) ZLBL
      INTEGER IBC1
      REAL*8 ZBC1
      INTEGER IBC2
      REAL*8 ZBC2
      INTEGER ID_RHOFUN
      INTEGER IERR
      REAL*8 ZDATA(*)
 
      end subroutine EQM_RHOFUN
!
      END INTERFACE
! ( eqm_rzfun2 )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_RZFUN2
!
      INTERFACE EQM_RZFUN2
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_RZFUN2 ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_RZFUN2(
     > ZNAME,IFUN,USERFCN,IARG,IORDER,ZSM,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      CHARACTER*(*) ZNAME
      INTEGER IFUN
      REAL*8 USERFCN
      EXTERNAL USERFCN
      INTEGER IARG
      INTEGER IORDER
      REAL*8 ZSM
      INTEGER IERR
 
      end subroutine EQM_RZFUN2
      END INTERFACE
! ( eqm_rzfunda )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_RZFUNDA
!
      INTERFACE EQM_RZFUNDA
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_RZFUNDA ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_RZFUNDA(
     > ZNAME,IFUN,ZDATA,INR,INZ,IORDER,ZSM,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      CHARACTER*(*) ZNAME
      INTEGER IFUN
      INTEGER INR
      INTEGER INZ
      INTEGER IORDER
      REAL*8 ZSM
      INTEGER IERR
      REAL*8 ZDATA(INR,INZ)
 
      end subroutine EQM_RZFUNDA
!
      END INTERFACE
! ( eqm_rzfun )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_RZFUN
!
      INTERFACE EQM_RZFUN
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_RZFUN ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_RZFUN(
     > IFUN,LAMDA,IORDER,ZSM,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IFUN
      REAL*8 LAMDA
      INTEGER IORDER
      REAL*8 ZSM
      INTEGER IERR
 
      end subroutine EQM_RZFUN
!
      END INTERFACE
! ( eqm_rzfunf )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_RZFUNF
!
      INTERFACE EQM_RZFUNF
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_RZFUNF ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_RZFUNF(
     > IFUN,USERFCN,IARG,IORDER,ZSM,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IFUN
      REAL*8 USERFCN
      EXTERNAL USERFCN
      INTEGER IARG
      INTEGER IORDER
      REAL*8 ZSM
      INTEGER IERR
 
      end subroutine EQM_RZFUNF
!
      END INTERFACE
! ( eqm_rzgrid )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_RZGRID
!
      INTERFACE EQM_RZGRID
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_RZGRID ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_RZGRID(
     > ZR,ZZ,IAUTOR,IAUTOZ,INUMR,INUMZ,ZTOL,ID_R,ID_Z,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IAUTOR
      INTEGER IAUTOZ
      INTEGER INUMR
      INTEGER INUMZ
      REAL*8 ZTOL
      INTEGER ID_R
      INTEGER ID_Z
      INTEGER IERR
      REAL*8 ZR(INUMR)
      REAL*8 ZZ(INUMZ)
 
      end subroutine EQM_RZGRID
!
      END INTERFACE
! ( eqm_rzmagb )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_RZMAGB
!
      INTERFACE EQM_RZMAGB
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_RZMAGB ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_RZMAGB(
     > RARR,ZARR,ID1,ID2,IDRHO,IBCR0,ZBCR0,IBCR1,ZBCR1,IBCZ0,ZBCZ0,
     > IBCZ1,ZBCZ1,ID_R,ID_Z,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER ID1
      INTEGER ID2
      INTEGER IDRHO
      INTEGER IBCR0
      INTEGER IBCR1
      INTEGER IBCZ0
      INTEGER IBCZ1
      INTEGER ID_R
      INTEGER ID_Z
      INTEGER IERR
      REAL*8 RARR(ID1,ID2)
      REAL*8 ZARR(ID1,ID2)
      REAL*8 ZBCR0(*)
      REAL*8 ZBCR1(*)
      REAL*8 ZBCZ0(*)
      REAL*8 ZBCZ1(*)
 
      end subroutine EQM_RZMAGB
!
      END INTERFACE
! ( eqm_rzmag )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_RZMAG
!
      INTERFACE EQM_RZMAG
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_RZMAG ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_RZMAG(
     > RARR,ZARR,ID1,ID2,IDRHO,ID_R,ID_Z,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER ID1
      INTEGER ID2
      INTEGER IDRHO
      INTEGER ID_R
      INTEGER ID_Z
      INTEGER IERR
      REAL*8 RARR(ID1,ID2)
      REAL*8 ZARR(ID1,ID2)
 
      end subroutine EQM_RZMAG
!
      END INTERFACE
! ( eqm_select )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_SELECT
!
      INTERFACE EQM_SELECT
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_SELECT ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_SELECT(
     > MODEL,ILAXI)
 
      IMPLICIT NONE
 
! argument declarations
      CHARACTER*(*) MODEL
      INTEGER ILAXI
 
      end subroutine EQM_SELECT
!
      END INTERFACE
! ( eqm_tbdy )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_TBDY
!
       INTERFACE EQM_TBDY
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_TBDY ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_TBDY(
     > ILINES,RL,ZL,THL,ICIRCS,RC,ZC,RAD,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER ILINES
      INTEGER ICIRCS
      INTEGER IERR
      REAL*8 RL(ILINES)
      REAL*8 ZL(ILINES)
      REAL*8 THL(ILINES)
      REAL*8 RC(ICIRCS)
      REAL*8 ZC(ICIRCS)
      REAL*8 RAD(ICIRCS)
 
      end subroutine EQM_TBDY
!
      END INTERFACE
! ( eqm_tbdy_grid )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_TBDY_GRID
!
      INTERFACE EQM_TBDY_GRID
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_TBDY_GRID ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_TBDY_GRID(
     > ILINES,RL,ZL,THL,ICIRCS,RC,ZC,RAD,INUMR,INUMZ,ID_R,ID_Z,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER ILINES
      INTEGER ICIRCS
      INTEGER INUMR
      INTEGER INUMZ
      INTEGER ID_R
      INTEGER ID_Z
      INTEGER IERR
      REAL*8 RL(ILINES)
      REAL*8 ZL(ILINES)
      REAL*8 THL(ILINES)
      REAL*8 RC(ICIRCS)
      REAL*8 ZC(ICIRCS)
      REAL*8 RAD(ICIRCS)
 
      end subroutine EQM_TBDY_GRID
!
      END INTERFACE
! ( eqm_time )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_TIME
!
      INTERFACE EQM_TIME
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_TIME ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_TIME(
     > ZTIME)
 
      IMPLICIT NONE
 
! argument declarations
      REAL*8 ZTIME
 
      end subroutine EQM_TIME
!
      END INTERFACE
! ( eqm_uaxis )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQM_UAXIS
!
      INTERFACE EQM_UAXIS
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQM_UAXIS ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQM_UAXIS(
     > ANAME,IKIN,IPER,ZAXIS,INUM,ZTOL,ID,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      CHARACTER*(*) ANAME
      INTEGER IKIN
      INTEGER IPER
      INTEGER INUM
      REAL*8 ZTOL
      INTEGER ID
      INTEGER IERR
      REAL*8 ZAXIS(INUM)
 
      end subroutine EQM_UAXIS
!
      END INTERFACE
! ( eq_nindx )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_NINDX
!
       INTERFACE EQ_NINDX
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_NINDX ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_NINDX(
     > IAXIS,IVEC,ZVAL,KINDX,IWARN)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IAXIS
      INTEGER IVEC
      INTEGER IWARN
      REAL*8 ZVAL(IVEC)
      INTEGER KINDX(IVEC)
 
      end subroutine EQ_NINDX
!
      END INTERFACE
! ( eq_psmom )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_PSMOM
!
      INTERFACE EQ_PSMOM
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_PSMOM ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_PSMOM(
     > IVEC,RHO,RHOMIN,NMOM,PHI1,IDMOM,PSMOM,GAMMA,NGRDB2,B2,ZERROR,IER)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 RHOMIN
      INTEGER NMOM
      REAL*8 PHI1
      INTEGER IDMOM
      INTEGER IER
      REAL*8 RHO(IVEC)
      REAL*8 PSMOM(IDMOM,IVEC)
      REAL*8 GAMMA(IVEC)
      REAL*8 NGRDB2(IVEC)
      REAL*8 B2(IVEC)
      REAL*8 ZERROR(IVEC)
 
      end subroutine EQ_PSMOM
!
      END INTERFACE
! ( eq_rcyl )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_RCYL
!
      INTERFACE EQ_RCYL
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_RCYL ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_RCYL(
     > IVEC,XX,YY,ZR,ZPHI)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZR(IVEC)
      REAL*8 ZPHI(IVEC)
 
      end subroutine EQ_RCYL
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_RCYLCS
!
      INTERFACE EQ_RCYLCS
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_RCYLCS ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_RCYLCS(
     > IVEC,XX,YY,ZR,ZPHI,ZCOSPHI,ZSINPHI)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZR(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZCOSPHI(IVEC)
      REAL*8 ZSINPHI(IVEC)
 
      end subroutine EQ_RCYLCS
!
      END INTERFACE
! ( eq_restore )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_RESTORE
!
      INTERFACE EQ_RESTORE
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_RESTORE ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_RESTORE(
     > FILENAME,IER)
 
      IMPLICIT NONE
 
! argument declarations
      CHARACTER*(*) FILENAME
      INTEGER IER
 
      end subroutine EQ_RESTORE
!
         END INTERFACE
! ( eq_rget_binsm )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_RGET_BINSM
!
       INTERFACE EQ_RGET_BINSM
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_RGET_BINSM ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_RGET_BINSM(
     > INRHO,ZRHO,ID,ZDELTA,IINT,ZVAL,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER INRHO
      INTEGER ID
      REAL*8 ZDELTA
      INTEGER IINT
      INTEGER IERR
      REAL*8 ZRHO(INRHO)
      REAL*8 ZVAL(INRHO)
 
      end subroutine EQ_RGET_BINSM
!
      END INTERFACE
! ( eq_rgetf )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_RGETF
!
      INTERFACE EQ_RGETF
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_RGETF ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_RGETF(
     > IVEC,ZRHO,IFCN,IWANT,ZVAL,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IFCN
      INTEGER IWANT
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZVAL(IVEC)
 
      end subroutine EQ_RGETF
!
      END INTERFACE
! ( eq_rgetff )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_RGETFF
!
      INTERFACE EQ_RGETFF
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_RGETFF ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_RGETFF(
     > IVEC,ZRHO,NLIST,IFCNS,IWANT,IVECD,ZVALS,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER NLIST
      INTEGER IWANT
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 ZVALS(IVECD,NLIST)
 
      end subroutine EQ_RGETFF
!
      END INTERFACE
! ( eq_rget_sm )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_RGET_SM
!
      INTERFACE EQ_RGET_SM
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_RGET_SM ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_RGET_SM(
     > INRHO,ZRHO,ID,ZDELTA,ZVAL,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER INRHO
      INTEGER ID
      REAL*8 ZDELTA
      INTEGER IERR
      REAL*8 ZRHO(INRHO)
      REAL*8 ZVAL(INRHO)
 
      end subroutine EQ_RGET_SM
!
      END INTERFACE
! ( eq_rholim )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_RHOLIM
!
      INTERFACE EQ_RHOLIM
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_RHOLIM ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_RHOLIM(
     > ZRHO_AXIS,ZRHO_BDY)
 
      IMPLICIT NONE
 
! argument declarations
      REAL*8 ZRHO_AXIS
      REAL*8 ZRHO_BDY
 
      end subroutine EQ_RHOLIM
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_RHOXLIM
!
      INTERFACE EQ_RHOXLIM
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_RHOXLIM ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_RHOXLIM(
     > ZRHO_BDY,ZRHO_EXTEND)
 
      IMPLICIT NONE
 
! argument declarations
      REAL*8 ZRHO_BDY
      REAL*8 ZRHO_EXTEND
 
      end subroutine EQ_RHOXLIM
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_RHOLIMA
!
      INTERFACE EQ_RHOLIMA
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_RHOLIMA ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_RHOLIMA(
     > ZRHO_AXIS,ZRHO_EXTEND)
 
      IMPLICIT NONE
 
! argument declarations
      REAL*8 ZRHO_AXIS
      REAL*8 ZRHO_EXTEND
 
      end subroutine EQ_RHOLIMA
!
      END INTERFACE
! ( eqrz_bffget )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQRZ_BFFGET
!
      INTERFACE EQRZ_BFFGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQRZ_BFFGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQRZ_BFFGET(
     > IVEC,ZR,ZZ,ZPHI,ZTOL,BVEC,NLIST,IFCNS,IVECD,FVALS,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 BVEC(3,IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQRZ_BFFGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQRZ_BFFGRAD
!
      INTERFACE EQRZ_BFFGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQRZ_BFFGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQRZ_BFFGRAD(
     > IVEC,ZR,ZZ,ZPHI,ZTOL,BVEC,GBTENSR,NLIST,IFCNS,IVECD,FVALS,FGRADS,
     > NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 BVEC(3,IVEC)
      REAL*8 GBTENSR(3,3,IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      REAL*8 FGRADS(3,IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQRZ_BFFGRAD
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQRZMAP_BFFGET
!
      INTERFACE EQRZMAP_BFFGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQRZMAP_BFFGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQRZMAP_BFFGET(
     > IVEC,ZR,ZZ,ZPHI,ZRHO,ZCHI,ZTOL,BVEC,NLIST,IFCNS,IVECD,FVALS,
     > NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 BVEC(3,IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQRZMAP_BFFGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQRZMAP_BFFGRAD
!
      INTERFACE EQRZMAP_BFFGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQRZMAP_BFFGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQRZMAP_BFFGRAD(
     > IVEC,ZR,ZZ,ZPHI,ZRHO,ZCHI,ZTOL,BVEC,GBTENSR,NLIST,IFCNS,IVECD,
     > FVALS,FGRADS,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 BVEC(3,IVEC)
      REAL*8 GBTENSR(3,3,IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      REAL*8 FGRADS(3,IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQRZMAP_BFFGRAD
!
      END INTERFACE
! ( eqrz_bget )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQRZ_BGET
!
      INTERFACE EQRZ_BGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQRZ_BGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQRZ_BGET(
     > IVEC,ZR,ZZ,ZPHI,ZTOL,BVEC,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 BVEC(3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQRZ_BGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQRZ_BGRAD
!
      INTERFACE EQRZ_BGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQRZ_BGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQRZ_BGRAD(
     > IVEC,ZR,ZZ,ZPHI,ZTOL,BVEC,GBTENSR,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 BVEC(3,IVEC)
      REAL*8 GBTENSR(3,3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQRZ_BGRAD
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQRZMAP_BGET
!
      INTERFACE EQRZMAP_BGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQRZMAP_BGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQRZMAP_BGET(
     > IVEC,ZR,ZZ,ZPHI,ZRHO,ZCHI,ZTOL,BVEC,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 BVEC(3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQRZMAP_BGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQRZMAP_BGRAD
!
      INTERFACE EQRZMAP_BGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQRZMAP_BGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQRZMAP_BGRAD(
     > IVEC,ZR,ZZ,ZPHI,ZRHO,ZCHI,ZTOL,BVEC,GBTENSR,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 BVEC(3,IVEC)
      REAL*8 GBTENSR(3,3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQRZMAP_BGRAD
!
      END INTERFACE
! ( eq_rzdist )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQX_DIST
!
      INTERFACE EQX_DIST
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQX_DIST ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQX_DIST(
     > IVEC,XX,YY,ZZ,ZDIST,ILPT,RLIM,ZLIM,PHILIM,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER ILPT
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZDIST(IVEC)
      REAL*8 RLIM(IVEC)
      REAL*8 ZLIM(IVEC)
      REAL*8 PHILIM(IVEC)
 
      end subroutine EQX_DIST
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_RZDIST
!
      INTERFACE EQ_RZDIST
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_RZDIST ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_RZDIST(
     > IVEC,ZR,ZZ,ZPHI,ZDIST,ILPT,RLIM,ZLIM,PHILIM,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER ILPT
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZDIST(IVEC)
      REAL*8 RLIM(IVEC)
      REAL*8 ZLIM(IVEC)
      REAL*8 PHILIM(IVEC)
 
      end subroutine EQ_RZDIST
!
      END INTERFACE
! ( eqrz_ffget )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQRZ_FFGET
!
      INTERFACE EQRZ_FFGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQRZ_FFGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQRZ_FFGET(
     > IVEC,ZR,ZZ,ZPHI,ZTOL,NLIST,IFCNS,IVECD,FVALS,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQRZ_FFGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQRZ_FFGRAD
!
      INTERFACE EQRZ_FFGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQRZ_FFGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQRZ_FFGRAD(
     > IVEC,ZR,ZZ,ZPHI,ZTOL,NLIST,IFCNS,IVECD,FVALS,FGRADS,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      REAL*8 FGRADS(3,IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQRZ_FFGRAD
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQRZMAP_FFGET
!
      INTERFACE EQRZMAP_FFGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQRZMAP_FFGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQRZMAP_FFGET(
     > IVEC,ZR,ZZ,ZPHI,ZRHO,ZCHI,ZTOL,NLIST,IFCNS,IVECD,FVALS,NREGION,
     > IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQRZMAP_FFGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQRZMAP_FFGRAD
!
      INTERFACE EQRZMAP_FFGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQRZMAP_FFGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQRZMAP_FFGRAD(
     > IVEC,ZR,ZZ,ZPHI,ZRHO,ZCHI,ZTOL,NLIST,IFCNS,IVECD,FVALS,FGRADS,
     > NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      REAL*8 FGRADS(3,IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQRZMAP_FFGRAD
!
      END INTERFACE
! ( eqrz_fget )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQRZ_FGET
!
      INTERFACE EQRZ_FGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQRZ_FGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQRZ_FGET(
     > IVEC,ZR,ZZ,ZPHI,ZTOL,IFCN,FVAL,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER IFCN
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 FVAL(IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQRZ_FGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQRZ_FGRAD
!
      INTERFACE EQRZ_FGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQRZ_FGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQRZ_FGRAD(
     > IVEC,ZR,ZZ,ZPHI,ZTOL,IFCN,FVAL,FGRAD,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER IFCN
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 FVAL(IVEC)
      REAL*8 FGRAD(3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQRZ_FGRAD
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQRZMAP_FGET
!
      INTERFACE EQRZMAP_FGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQRZMAP_FGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQRZMAP_FGET(
     > IVEC,ZR,ZZ,ZPHI,ZRHO,ZCHI,ZTOL,IFCN,FVAL,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER IFCN
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 FVAL(IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQRZMAP_FGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQRZMAP_FGRAD
!
      INTERFACE EQRZMAP_FGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQRZMAP_FGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQRZMAP_FGRAD(
     > IVEC,ZR,ZZ,ZPHI,ZRHO,ZCHI,ZTOL,IFCN,FVAL,FGRAD,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER IFCN
      INTEGER IERR
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 FVAL(IVEC)
      REAL*8 FGRAD(3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQRZMAP_FGRAD
!
      END INTERFACE
! ( eq_rzlims )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_RZLIMS
!
      INTERFACE EQ_RZLIMS
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_RZLIMS ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_RZLIMS(
     > RMIN,RMAX,ZMIN,ZMAX,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      REAL*8 RMIN
      REAL*8 RMAX
      REAL*8 ZMIN
      REAL*8 ZMAX
      INTEGER IERR
 
      end subroutine EQ_RZLIMS
!
      END INTERFACE
! ( eq_save )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_SAVE
!
      INTERFACE EQ_SAVE
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_SAVE ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_SAVE(
     > FILENAME,IER)
 
      IMPLICIT NONE
 
! argument declarations
      CHARACTER*(*) FILENAME
      INTEGER IER
 
      end subroutine EQ_SAVE
!
         END INTERFACE
! ( eq_sgaxis )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_SGAXIS
!
       INTERFACE EQ_SGAXIS
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_SGAXIS ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_SGAXIS(
     > B_AXIS,R_AXIS,Z_AXIS)
 
      IMPLICIT NONE
 
! argument declarations
      REAL*8 B_AXIS
      REAL*8 R_AXIS
      REAL*8 Z_AXIS
 
      end subroutine EQ_SGAXIS
!
      END INTERFACE
! ( eq_surfgeo )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_SURFGEO
!
      INTERFACE EQ_SURFGEO
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_SURFGEO ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_SURFGEO(
     > IVEC,RHO,PHI,NTHETA,ELONG,TRIANG,INDENT,ZMIDP,RMNMIDP,RMJMIDP,
     > LIMITS,IER)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER NTHETA
      INTEGER IER
      REAL*8 RHO(IVEC)
      REAL*8 PHI(IVEC)
      REAL*8 ELONG(IVEC)
      REAL*8 TRIANG(IVEC)
      REAL*8 INDENT(IVEC)
      REAL*8 ZMIDP(IVEC)
      REAL*8 RMNMIDP(IVEC)
      REAL*8 RMJMIDP(IVEC)
      REAL*8 LIMITS(20,IVEC)
 
      end subroutine EQ_SURFGEO
!
      END INTERFACE
! ( eq_time )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_TIME
!
      INTERFACE EQ_TIME
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_TIME ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_TIME(
     > ZTIME)
 
      IMPLICIT NONE
 
! argument declarations
      REAL*8 ZTIME
 
      end subroutine EQ_TIME
!
      END INTERFACE
! ( eq_volume )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_VOLUME
!
      INTERFACE EQ_VOLUME
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_VOLUME ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_VOLUME(
     > IVEC,ZRHO,IWANT,ZVAL,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IWANT
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZVAL(IVEC)
 
      end subroutine EQ_VOLUME
!
      END INTERFACE
! ( eq_xcyl )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_XCYL
!
      INTERFACE EQ_XCYL
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_XCYL ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_XCYL(
     > IVEC,ZR,ZPHI,XX,YY)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZR(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
 
      end subroutine EQ_XCYL
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_XCYLCS
!
      INTERFACE EQ_XCYLCS
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_XCYLCS ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_XCYLCS(
     > IVEC,ZR,ZPHI,XX,YY,ZCOSPHI,ZSINPHI)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZR(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZCOSPHI(IVEC)
      REAL*8 ZSINPHI(IVEC)
 
      end subroutine EQ_XCYLCS
!
      END INTERFACE
! ( eq_xget )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQ_XGET
!
      INTERFACE EQ_XGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_XGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_XGET(
     > IVEC,ZRHO,ZCHI,ZPHI,XX,YY,ZZ,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQ_XGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQ_RZGET
!
      INTERFACE EQ_RZGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQ_RZGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQ_RZGET(
     > IVEC,ZRHO,ZCHI,ZPHI,ZR,ZZ,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      INTEGER IERR
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 ZR(IVEC)
      REAL*8 ZZ(IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQ_RZGET
!
      END INTERFACE
! ( eqxyz_bffget )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQXYZ_BFFGET
!
      INTERFACE EQXYZ_BFFGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQXYZ_BFFGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQXYZ_BFFGET(
     > IVEC,XX,YY,ZZ,ZTOL,BVEC,NLIST,IFCNS,IVECD,FVALS,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 BVEC(3,IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQXYZ_BFFGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQXYZ_BFFGRAD
!
      INTERFACE EQXYZ_BFFGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQXYZ_BFFGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQXYZ_BFFGRAD(
     > IVEC,XX,YY,ZZ,ZTOL,BVEC,GBTENSR,NLIST,IFCNS,IVECD,FVALS,FGRADS,
     > NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 BVEC(3,IVEC)
      REAL*8 GBTENSR(3,3,IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      REAL*8 FGRADS(3,IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQXYZ_BFFGRAD
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQXYZMAP_BFFGET
!
      INTERFACE EQXYZMAP_BFFGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQXYZMAP_BFFGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQXYZMAP_BFFGET(
     > IVEC,XX,YY,ZZ,ZRHO,ZCHI,ZPHI,ZTOL,BVEC,NLIST,IFCNS,IVECD,FVALS,
     > NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 BVEC(3,IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQXYZMAP_BFFGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQXYZMAP_BFFGRAD
!
      INTERFACE EQXYZMAP_BFFGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQXYZMAP_BFFGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQXYZMAP_BFFGRAD(
     > IVEC,XX,YY,ZZ,ZRHO,ZCHI,ZPHI,ZTOL,BVEC,GBTENSR,NLIST,IFCNS,IVECD,
     > FVALS,FGRADS,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 BVEC(3,IVEC)
      REAL*8 GBTENSR(3,3,IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      REAL*8 FGRADS(3,IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQXYZMAP_BFFGRAD
!
      END INTERFACE
! ( eqxyz_bget )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQXYZ_BGET
!
      INTERFACE EQXYZ_BGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQXYZ_BGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQXYZ_BGET(
     > IVEC,XX,YY,ZZ,ZTOL,BVEC,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 BVEC(3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQXYZ_BGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQXYZMAP_BGET
!
      INTERFACE EQXYZMAP_BGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQXYZMAP_BGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQXYZMAP_BGET(
     > IVEC,XX,YY,ZZ,ZRHO,ZCHI,ZPHI,ZTOL,BVEC,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 BVEC(3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQXYZMAP_BGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQXYZ_BGRAD
!
      INTERFACE EQXYZ_BGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQXYZ_BGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQXYZ_BGRAD(
     > IVEC,XX,YY,ZZ,ZTOL,BVEC,GBTENSR,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 BVEC(3,IVEC)
      REAL*8 GBTENSR(3,3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQXYZ_BGRAD
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQXYZMAP_BGRAD
!
      INTERFACE EQXYZMAP_BGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQXYZMAP_BGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQXYZMAP_BGRAD(
     > IVEC,XX,YY,ZZ,ZRHO,ZCHI,ZPHI,ZTOL,BVEC,GBTENSR,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 BVEC(3,IVEC)
      REAL*8 GBTENSR(3,3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQXYZMAP_BGRAD
!
      END INTERFACE
! ( eqxyz_ffget )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQXYZ_FFGET
!
      INTERFACE EQXYZ_FFGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQXYZ_FFGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQXYZ_FFGET(
     > IVEC,XX,YY,ZZ,ZTOL,NLIST,IFCNS,IVECD,FVALS,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQXYZ_FFGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQXYZ_FFGRAD
!
      INTERFACE EQXYZ_FFGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQXYZ_FFGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQXYZ_FFGRAD(
     > IVEC,XX,YY,ZZ,ZTOL,NLIST,IFCNS,IVECD,FVALS,FGRADS,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      REAL*8 FGRADS(3,IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQXYZ_FFGRAD
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQXYZMAP_FFGET
!
      INTERFACE EQXYZMAP_FFGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQXYZMAP_FFGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQXYZMAP_FFGET(
     > IVEC,XX,YY,ZZ,ZRHO,ZCHI,ZPHI,ZTOL,NLIST,IFCNS,IVECD,FVALS,
     > NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQXYZMAP_FFGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQXYZMAP_FFGRAD
!
      INTERFACE EQXYZMAP_FFGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQXYZMAP_FFGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQXYZMAP_FFGRAD(
     > IVEC,XX,YY,ZZ,ZRHO,ZCHI,ZPHI,ZTOL,NLIST,IFCNS,IVECD,FVALS,FGRADS,
     > NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER NLIST
      INTEGER IVECD
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      INTEGER IFCNS(NLIST)
      REAL*8 FVALS(IVECD,NLIST)
      REAL*8 FGRADS(3,IVECD,NLIST)
      INTEGER NREGION(IVEC)
 
      end subroutine EQXYZMAP_FFGRAD
!
      END INTERFACE
! ( eqxyz_fget )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQXYZ_FGET
!
      INTERFACE EQXYZ_FGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQXYZ_FGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQXYZ_FGET(
     > IVEC,XX,YY,ZZ,ZTOL,IFCN,FVAL,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER IFCN
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 FVAL(IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQXYZ_FGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQXYZ_FGRAD
!
      INTERFACE EQXYZ_FGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQXYZ_FGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQXYZ_FGRAD(
     > IVEC,XX,YY,ZZ,ZTOL,IFCN,FVAL,FGRAD,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER IFCN
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 FVAL(IVEC)
      REAL*8 FGRAD(3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQXYZ_FGRAD
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQXYZMAP_FGET
!
      INTERFACE EQXYZMAP_FGET
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQXYZMAP_FGET ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQXYZMAP_FGET(
     > IVEC,XX,YY,ZZ,ZRHO,ZCHI,ZPHI,ZTOL,IFCN,FVAL,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER IFCN
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 FVAL(IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQXYZMAP_FGET
!
      END INTERFACE
!==============================================================
!  iface -- generated interface body module:  EQXYZMAP_FGRAD
!
      INTERFACE EQXYZMAP_FGRAD
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQXYZMAP_FGRAD ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQXYZMAP_FGRAD(
     > IVEC,XX,YY,ZZ,ZRHO,ZCHI,ZPHI,ZTOL,IFCN,FVAL,FGRAD,NREGION,IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER IVEC
      REAL*8 ZTOL
      INTEGER IFCN
      INTEGER IERR
      REAL*8 XX(IVEC)
      REAL*8 YY(IVEC)
      REAL*8 ZZ(IVEC)
      REAL*8 ZRHO(IVEC)
      REAL*8 ZCHI(IVEC)
      REAL*8 ZPHI(IVEC)
      REAL*8 FVAL(IVEC)
      REAL*8 FGRAD(3,IVEC)
      INTEGER NREGION(IVEC)
 
      end subroutine EQXYZMAP_FGRAD
!
      END INTERFACE
! ( eqxyz_fxcep )
 ! block file generated by iface.for -- 31Oct2005
!==============================================================
!  iface -- generated interface body module:  EQXYZ_FXCEP
!
      INTERFACE EQXYZ_FXCEP
 
!----------------------------------------------------------
!  iface:  interface block generated segment for subroutine
!  EQXYZ_FXCEP ... for meaning of arguments see the documentation
 
      SUBROUTINE    EQXYZ_FXCEP(
     > INUM,ITYPE,IDINIT,XA,YA,ZA,DA,XB,YB,ZB,DB,TOL,XX,YX,ZX,ISTAT,
     > IERR)
 
      IMPLICIT NONE
 
! argument declarations
      INTEGER INUM
      INTEGER ITYPE
      INTEGER IDINIT
      REAL*8 TOL
      INTEGER IERR
      REAL*8 XA(INUM)
      REAL*8 YA(INUM)
      REAL*8 ZA(INUM)
      REAL*8 DA(INUM)
      REAL*8 XB(INUM)
      REAL*8 YB(INUM)
      REAL*8 ZB(INUM)
      REAL*8 DB(INUM)
      REAL*8 XX(INUM)
      REAL*8 YX(INUM)
      REAL*8 ZX(INUM)
      INTEGER ISTAT(INUM)
 
      end subroutine EQXYZ_FXCEP
!
      END INTERFACE
      END MODULE XPLASMA_CALLS
