/*
 * math1_syslib.fp
 *
 * $Id: math1_syslib.fp,v 1.2 2000/11/27 01:55:25 keiko Exp $
 */

/*****************************************************
 * math1/syslib/glpget.f
 ****************************************************/
/* 
 *      SUBROUTINE GLPGET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
/*      SUBROUTINE GLPGET(
 *          CHARACTER*(*) CP
 *          INTEGER o IPARA
 *      )
 */

/* 
 *      ENTRY GLPSET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
/*      SUBROUTINE GLPSET(
 *          CHARACTER*(*) CP
 *          INTEGER IPARA
 *      )
 */

/* 
 *      ENTRY GLPSTX(CP, IPARA)
 *      CHARACTER CP*(*)
 */
/*      SUBROUTINE GLPSTX(
 *          CHARACTER*(*) CP
 *          INTEGER IPARA
 *      )
 */

/*****************************************************
 * math1/syslib/lchreq.f
 ****************************************************/
/* 
 *      LOGICAL FUNCTION LCHREQ(CH1,CH2)
 *      CHARACTER CH1*(*),CH2*(*)
 */
      LOGICAL FUNCTION LCHREQ(
          CHARACTER*(*) CH1
          CHARACTER*(*) CH2
      )

/*****************************************************
 * math1/syslib/msgdmp.f
 ****************************************************/
/* 
 *      SUBROUTINE MSGDMP(CLEV,CSUB,CMSG)
 *      CHARACTER CLEV*(*),CSUB*(*),CMSG*(*)
 */
      SUBROUTINE MSGDMP(
          CHARACTER*(*) CLEV
          CHARACTER*(*) CSUB
          CHARACTER*(*) CMSG
      )

/*****************************************************
 * math1/syslib/mszdmp.f
 ****************************************************/
/* 
 *      SUBROUTINE MSZDMP(CMSG,IUNIT,LNSIZE)
 *      CHARACTER CMSG*(*)
 */
      SUBROUTINE MSZDMP(
          CHARACTER*(*) CMSG
          INTEGER IUNIT
          INTEGER LNSIZE
      )

/*****************************************************
 * math1/syslib/glcget.f
 ****************************************************/
/* 
 *      SUBROUTINE GLCGET(CP,CPARA)
 *      CHARACTER CP*(*),CPARA*(*)
 */
      SUBROUTINE GLCGET(
          CHARACTER*(*) CP
          CHARACTER*(*) o CPARA
      )

/* 
 *      ENTRY GLCSET(CP,CPARA)
 *      CHARACTER CP*(*),CPARA*(*)
 */
      SUBROUTINE GLCSET(
          CHARACTER*(*) CP
          CHARACTER*(*) CPARA
      )

/* 
 *      ENTRY GLCSTX(CP,CPARA)
 *      CHARACTER CP*(*),CPARA*(*)
 */
      SUBROUTINE GLCSTX(
          CHARACTER*(*) CP
          CHARACTER*(*) CPARA
      )

/*****************************************************
 * math1/syslib/glqfnm.f
 ****************************************************/
/* 
 *      SUBROUTINE GLQFNM(CPARA,CFNAME)
 *      CHARACTER CPARA*(*),CFNAME*(*)
 */
      SUBROUTINE GLQFNM(
          CHARACTER*(*) CPARA
          CHARACTER*(*) o CFNAME
      )

/*****************************************************
 * math1/syslib/iufopn.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IUFOPN()
 */
      INTEGER FUNCTION IUFOPN(
      )

/*****************************************************
 * math1/syslib/cfsrch.f
 ****************************************************/
/* 
 *      SUBROUTINE CFSRCH(CPLIST,NP,CFLIST,NF,CFNAME)
 *      CHARACTER CPLIST(*)*80,CFLIST(*)*80,CFNAME*(*)
 */
      SUBROUTINE CFSRCH(
          CHARACTER*80 (NP) CPLIST
          INTEGER NP
          CHARACTER*80 (NP) CFLIST
          INTEGER NF
          CHARACTER*(*) o CFNAME
      )

/*****************************************************
 * math1/syslib/glpqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE GLPQNP(NCP)
 */
      SUBROUTINE GLPQNP(
          INTEGER o NCP
      )

/* 
 *      ENTRY GLPQID(CP, IDX)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE GLPQID(
          CHARACTER*(*) CP
          INTEGER o IDX
      )

/* 
 *      ENTRY GLPQCP(IDX, CP)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE GLPQCP(
          INTEGER IDX
          CHARACTER*(*) o CP
      )

/* 
 *      ENTRY GLPQCL(IDX, CP)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE GLPQCL(
          INTEGER IDX
          CHARACTER*(*) o CP
      )

/* 
 *      ENTRY GLPQIT(IDX, ITP)
 */
      SUBROUTINE GLPQIT(
          INTEGER IDX
          INTEGER o ITP
      )

/* 
 *      ENTRY GLPQVL(IDX, IPARA)
 */
      SUBROUTINE GLPQVL(
          INTEGER IDX
          INTEGER o IPARA
      )

/* 
 *      ENTRY GLPSVL(IDX, IPARA)
 */
      SUBROUTINE GLPSVL(
          INTEGER IDX
          INTEGER IPARA
      )

/* 
 *      ENTRY GLPQIN(CP, IN)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE GLPQIN(
          CHARACTER*(*) CP
          INTEGER o IN
      )

/*****************************************************
 * math1/syslib/gliget.f
 ****************************************************/
/* 
 *      SUBROUTINE GLIGET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE GLIGET(
          CHARACTER*(*) CP
          INTEGER o IPARA
      )

/* 
 *      ENTRY GLISET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE GLISET(
          CHARACTER*(*) CP
          INTEGER IPARA
      )

/* 
 *      ENTRY GLISTX(CP, IPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE GLISTX(
          CHARACTER*(*) CP
          INTEGER IPARA
      )

/*****************************************************
 * math1/syslib/gllget.f
 ****************************************************/
/* 
 *      SUBROUTINE GLLGET(CP, LPARA)
 *      CHARACTER CP*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE GLLGET(
          CHARACTER*(*) CP
          LOGICAL o LPARA
      )

/* 
 *      ENTRY GLLSET(CP, LPARA)
 *      CHARACTER CP*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE GLLSET(
          CHARACTER*(*) CP
          LOGICAL LPARA
      )

/* 
 *      ENTRY GLLSTX(CP, LPARA)
 *      CHARACTER CP*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE GLLSTX(
          CHARACTER*(*) CP
          LOGICAL LPARA
      )

/*****************************************************
 * math1/syslib/rpnenv.f
 ****************************************************/
/* 
 *      SUBROUTINE RPNENV
 */
      SUBROUTINE RPNENV(
      )

/* 
 *      ENTRY RTIENV(CPFIX, CP, IPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
 */
      SUBROUTINE RTIENV(
          CHARACTER*(*) CPFIX
          CHARACTER*(*) CP
          INTEGER o IPARA
      )

/* 
 *      ENTRY RTLENV(CPFIX, CP, LPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE RTLENV(
          CHARACTER*(*) CPFIX
          CHARACTER*(*) CP
          LOGICAL o LPARA
      )

/* 
 *      ENTRY RTRENV(CPFIX, CP, RPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
 */
      SUBROUTINE RTRENV(
          CHARACTER*(*) CPFIX
          CHARACTER*(*) CP
          REAL o RPARA
      )

/* 
 *      ENTRY RTCENV(CPFIX, CP, CPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
 */
      SUBROUTINE RTCENV(
          CHARACTER*(*) CPFIX
          CHARACTER*(*) CP
          CHARACTER*(*) o CPARA
      )

/* 
 *      ENTRY RLIENV(CP, IPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
 */
      SUBROUTINE RLIENV(
          CHARACTER*(*) CP
          INTEGER o IPARA
      )

/* 
 *      ENTRY RLLENV(CP, LPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE RLLENV(
          CHARACTER*(*) CP
          LOGICAL o LPARA
      )

/* 
 *      ENTRY RLRENV(CP, RPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
 */
      SUBROUTINE RLRENV(
          CHARACTER*(*) CP
          REAL o RPARA
      )

/* 
 *      ENTRY RLCENV(CP, CPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
 */
      SUBROUTINE RLCENV(
          CHARACTER*(*) CP
          CHARACTER*(*) o CPARA
      )

/*****************************************************
 * math1/syslib/glrget.f
 ****************************************************/
/* 
 *      SUBROUTINE GLRGET(CP, RPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE GLRGET(
          CHARACTER*(*) CP
          REAL o RPARA
      )

/* 
 *      ENTRY GLRSET(CP, RPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE GLRSET(
          CHARACTER*(*) CP
          REAL RPARA
      )

/* 
 *      ENTRY GLRSTX(CP, RPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE GLRSTX(
          CHARACTER*(*) CP
          REAL RPARA
      )

/*****************************************************
 * math1/syslib/gllqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE GLLQNP(NCP)
 */
      SUBROUTINE GLLQNP(
          INTEGER o NCP
      )

/* 
 *      ENTRY GLLQID(CP, IDX)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE GLLQID(
          CHARACTER*(*) CP
          INTEGER o IDX
      )

/* 
 *      ENTRY GLLQCP(IDX, CP)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE GLLQCP(
          INTEGER IDX
          CHARACTER*(*) o CP
      )

/* 
 *      ENTRY GLLQCL(IDX, CP)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE GLLQCL(
          INTEGER IDX
          CHARACTER*(*) o CP
      )

/* 
 *      ENTRY GLLQVL(IDX, LPARA)
 *      LOGICAL   LPARA
 */
      SUBROUTINE GLLQVL(
          INTEGER IDX
          LOGICAL o LPARA
      )

/* 
 *      ENTRY GLLSVL(IDX, LPARA)
 *      LOGICAL   LPARA
 */
      SUBROUTINE GLLSVL(
          INTEGER IDX
          LOGICAL LPARA
      )

/* 
 *      ENTRY GLLQIN(CP, IN)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE GLLQIN(
          CHARACTER*(*) CP
          INTEGER o IN
      )

/*****************************************************
 * math1/syslib/rpnget.f
 ****************************************************/
/* 
 *      SUBROUTINE RPNGET
 */
      SUBROUTINE RPNGET(
      )

/* 
 *      ENTRY RTIGET(CPFIX, CPS, IPARA, MAX)
 *      CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40
 *      INTEGER   IPARA(*)
 */
      SUBROUTINE RTIGET(
          CHARACTER*(*) CPFIX
          CHARACTER*8 (MAX) CPS
          INTEGER (MAX) o IPARA
          INTEGER MAX
      )

/* 
 *      ENTRY RTLGET(CPFIX, CPS, LPARA, MAX)
 *      CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40
 *      LOGICAL   LPARA(*)
 */
      SUBROUTINE RTLGET(
          CHARACTER*(*) CPFIX
          CHARACTER*8 (MAX) CPS
          LOGICAL (MAX) o LPARA
          INTEGER MAX
      )

/* 
 *      ENTRY RTRGET(CPFIX, CPS, RPARA, MAX)
 *      CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40
 *      REAL      RPARA(*)
 */
      SUBROUTINE RTRGET(
          CHARACTER*(*) CPFIX
          CHARACTER*8 (MAX) CPS
          REAL (MAX) o RPARA
          INTEGER MAX
      )

/* 
 *      ENTRY RTCGET(CPFIX, CPS, CPARA, MAX)
 *      CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40
 *      CHARACTER CPARA(*)*80
 */
      SUBROUTINE RTCGET(
          CHARACTER*(*) CPFIX
          CHARACTER*8 (MAX) CPS
          CHARACTER*80 (MAX) o CPARA
          INTEGER MAX
      )

/* 
 *      ENTRY RLIGET(CPL, IPARA, MAX)
 *      CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40
 *      INTEGER   IPARA(*)
 */
      SUBROUTINE RLIGET(
          CHARACTER*40 (MAX) CPL
          INTEGER (MAX) o IPARA
          INTEGER MAX
      )

/* 
 *      ENTRY RLLGET(CPL, LPARA, MAX)
 *      CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40
 *      LOGICAL   LPARA(*)
 */
      SUBROUTINE RLLGET(
          CHARACTER*40 (MAX) CPL
          LOGICAL (MAX) o LPARA
          INTEGER MAX
      )

/* 
 *      ENTRY RLRGET(CPL, RPARA, MAX)
 *      CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40
 *      REAL      RPARA(*)
 */
      SUBROUTINE RLRGET(
          CHARACTER*40 (MAX) CPL
          REAL (MAX) o RPARA
          INTEGER MAX
      )

/* 
 *      ENTRY RLCGET(CPL, CPARA, MAX)
 *      CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40
 *      CHARACTER CPARA(*)*80
 */
      SUBROUTINE RLCGET(
          CHARACTER*40 (MAX) CPL
          CHARACTER*80 (MAX) o CPARA
          INTEGER MAX
      )

/*****************************************************
 * math1/syslib/rpnopt.f
 ****************************************************/
/* 
 *      SUBROUTINE RPNOPT
 */
      SUBROUTINE RPNOPT(
      )

/* 
 *      ENTRY RTIOPT(CPFIX, CP, IPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
 */
      SUBROUTINE RTIOPT(
          CHARACTER*(*) CPFIX
          CHARACTER*(*) CP
          INTEGER o IPARA
      )

/* 
 *      ENTRY RTLOPT(CPFIX, CP, LPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE RTLOPT(
          CHARACTER*(*) CPFIX
          CHARACTER*(*) CP
          LOGICAL o LPARA
      )

/* 
 *      ENTRY RTROPT(CPFIX, CP, RPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
 */
      SUBROUTINE RTROPT(
          CHARACTER*(*) CPFIX
          CHARACTER*(*) CP
          REAL o RPARA
      )

/* 
 *      ENTRY RTCOPT(CPFIX, CP, CPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
 */
      SUBROUTINE RTCOPT(
          CHARACTER*(*) CPFIX
          CHARACTER*(*) CP
          CHARACTER*(*) o CPARA
      )

/* 
 *      ENTRY RLIOPT(CP, IPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
 */
      SUBROUTINE RLIOPT(
          CHARACTER*(*) CP
          INTEGER o IPARA
      )

/* 
 *      ENTRY RLLOPT(CP, LPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE RLLOPT(
          CHARACTER*(*) CP
          LOGICAL o LPARA
      )

/* 
 *      ENTRY RLROPT(CP, RPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
 */
      SUBROUTINE RLROPT(
          CHARACTER*(*) CP
          REAL o RPARA
      )

/* 
 *      ENTRY RLCOPT(CP, CPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
 */
      SUBROUTINE RLCOPT(
          CHARACTER*(*) CP
          CHARACTER*(*) o CPARA
      )

/*****************************************************
 * math1/syslib/rpnxfl.f
 ****************************************************/
/* 
 *      SUBROUTINE RPNXFL
 */
      SUBROUTINE RPNXFL(
      )

/* 
 *      ENTRY RTIXFL(CPFIX, CP, IPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CVAL*(*)
 */
      SUBROUTINE RTIXFL(
          CHARACTER*(*) CPFIX
          CHARACTER*(*) CP
          INTEGER o IPARA
      )

/* 
 *      ENTRY RTLXFL(CPFIX, CP, LPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CVAL*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE RTLXFL(
          CHARACTER*(*) CPFIX
          CHARACTER*(*) CP
          LOGICAL o LPARA
      )

/* 
 *      ENTRY RTRXFL(CPFIX, CP, RPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CVAL*(*)
 */
      SUBROUTINE RTRXFL(
          CHARACTER*(*) CPFIX
          CHARACTER*(*) CP
          REAL o RPARA
      )

/* 
 *      ENTRY RTCXFL(CPFIX, CP, CVAL)
 *      CHARACTER CPFIX*(*), CP*(*), CVAL*(*)
 */
      SUBROUTINE RTCXFL(
          CHARACTER*(*) CPFIX
          CHARACTER*(*) CP
          CHARACTER*(*) o CVAL
      )

/* 
 *      ENTRY RLIXFL(CP, IPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CVAL*(*)
 */
      SUBROUTINE RLIXFL(
          CHARACTER*(*) CP
          INTEGER o IPARA
      )

/* 
 *      ENTRY RLLXFL(CP, LPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CVAL*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE RLLXFL(
          CHARACTER*(*) CP
          LOGICAL o LPARA
      )

/* 
 *      ENTRY RLRXFL(CP, RPARA)
 *      CHARACTER CPFIX*(*), CP*(*), CVAL*(*)
 */
      SUBROUTINE RLRXFL(
          CHARACTER*(*) CP
          REAL o RPARA
      )

/* 
 *      ENTRY RLCXFL(CP, CVAL)
 *      CHARACTER CPFIX*(*), CP*(*), CVAL*(*)
 */
      SUBROUTINE RLCXFL(
          CHARACTER*(*) CP
          CHARACTER*(*) o CVAL
      )

/*****************************************************
 * math1/syslib/prcopn.f
 ****************************************************/
/* 
 *      SUBROUTINE PRCOPN(CPROC)
 *      CHARACTER CPROC*(*)
 */
      SUBROUTINE PRCOPN(
          CHARACTER*(*) CPROC
      )

/* 
 *      ENTRY PRCCLS(CPROC)
 *      CHARACTER CPROC*(*)
 */
      SUBROUTINE PRCCLS(
          CHARACTER*(*) CPROC
      )

/* 
 *      ENTRY PRCLVL(NLEV)
 */
      SUBROUTINE PRCLVL(
          INTEGER o NLEV
      )

/* 
 *      ENTRY PRCNAM(NLEV, CPROC)
 *      CHARACTER CPROC*(*)
 */
      SUBROUTINE PRCNAM(
          INTEGER NLEV
          CHARACTER*(*) o CPROC
      )