ruby-dcl 1.6.2

data/GenWrapper/proto/math1_rfblib.fp

@@ -0,0 +1,51 @@
+/*
+ * math1_rfblib.fp
+ *
+ * $Id: math1_rfblib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * math1/rfblib/rprd.f
+ ****************************************************/
+/* 
+ *      REAL FUNCTION RPRD(RX,RY,N,JX,JY)
+ *      REAL      RX(*),RY(*)
+ */
+      REAL FUNCTION RPRD(
+          REAL (JX*(N-1)+1) RX
+          REAL (JY*(N-1)+1) RY
+          INTEGER N
+          INTEGER JX
+          INTEGER JY
+      )
+
+/*****************************************************
+ * math1/rfblib/rcov.f
+ ****************************************************/
+/* 
+ *      REAL FUNCTION RCOV(RX,RY,N,JX,JY)
+ *      REAL      RX(*),RY(*)
+ */
+      REAL FUNCTION RCOV(
+          REAL (JX*(N-1)+1) RX
+          REAL (JY*(N-1)+1) RY
+          INTEGER N
+          INTEGER JX
+          INTEGER JY
+      )
+
+/*****************************************************
+ * math1/rfblib/rcor.f
+ ****************************************************/
+/* 
+ *      REAL FUNCTION RCOR(RX,RY,N,JX,JY)
+ *      REAL      RX(*),RY(*)
+ */
+      REAL FUNCTION RCOR(
+          REAL (JX*(N-1)+1) RX
+          REAL (JX*(N-1)+1) RY
+          INTEGER N
+          INTEGER JX
+          INTEGER JY
+      )
+

data/GenWrapper/proto/math1_sublib.fp

@@ -0,0 +1,60 @@
+/*
+ * math1_sublib.fp
+ *
+ * $Id: math1_sublib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * math1/sublib/vignn.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE VIGNN(IX,N,JX)
+ *      INTEGER   IX(*)
+ */
+      SUBROUTINE VIGNN(
+          INTEGER (JX*(N-1)+1) o IX
+          INTEGER N
+          INTEGER JX
+      )
+
+/*****************************************************
+ * math1/sublib/vrgnn.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE VRGNN(RX,N,JX)
+ *      REAL      RX(*)
+ */
+      SUBROUTINE VRGNN(
+          REAL (JX*(N-1)+1) o RX
+          INTEGER N
+          INTEGER JX
+      )
+
+/*****************************************************
+ * math1/sublib/dxfloc.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE DXFLOC(ND,NS,NP,NCP)
+ *      INTEGER   NS(*),NP(*)
+ */
+      SUBROUTINE DXFLOC(
+          INTEGER ND
+          INTEGER (ND) NS
+          INTEGER (ND) NP
+          INTEGER o NCP
+      )
+
+/*****************************************************
+ * math1/sublib/dxiloc.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE DXILOC(ND,NS,NP,NCP)
+ *      INTEGER   NS(*),NP(*)
+ */
+      SUBROUTINE DXILOC(
+          INTEGER ND
+          INTEGER (ND) NS
+          INTEGER (ND) o NP
+          INTEGER NCP
+      )
+

data/GenWrapper/proto/math1_syslib.fp

@@ -0,0 +1,767 @@
+/*
+ * math1_syslib.fp
+ *
+ * $Id: math1_syslib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout 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
+      )
+