ruby-dcl 1.6.2

data/GenWrapper/proto/grph2_uupack.fp

@@ -0,0 +1,663 @@
+/*
+ * grph2_uupack.fp
+ *
+ * $Id: grph2_uupack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * grph2/uupack/uulin.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UULIN(N,UPX,UPY)
+ *      REAL      UPX(*),UPY(*)
+ */
+      SUBROUTINE UULIN(
+          INTEGER N
+          REAL (N) UPX
+          REAL (N) UPY
+      )
+
+/*****************************************************
+ * grph2/uupack/uulinz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UULINZ(N,UPX,UPY,ITYPE,INDEX)
+ *      REAL      UPX(*),UPY(*)
+ */
+      SUBROUTINE UULINZ(
+          INTEGER N
+          REAL (N) UPX
+          REAL (N) UPY
+          INTEGER ITYPE
+          INTEGER INDEX
+      )
+
+/*****************************************************
+ * grph2/uupack/uumrk.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UUMRK(N,UPX,UPY)
+ *      REAL      UPX(*),UPY(*)
+ */
+      SUBROUTINE UUMRK(
+          INTEGER N
+          REAL (N) UPX
+          REAL (N) UPY
+      )
+
+/*****************************************************
+ * grph2/uupack/uumrkz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UUMRKZ(N,UPX,UPY,ITYPE,INDEX,RSIZE)
+ *      REAL      UPX(*),UPY(*)
+ */
+      SUBROUTINE UUMRKZ(
+          INTEGER N
+          REAL (N) UPX
+          REAL (N) UPY
+          INTEGER ITYPE
+          INTEGER INDEX
+          REAL RSIZE
+      )
+
+/*****************************************************
+ * grph2/uupack/uupget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UUPGET(CP,IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UUPGET(
+ *          CHARACTER*(*) CP
+ *          INTEGER o IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY UUPSET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UUPSET(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY UUPSTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UUPSTX(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/*****************************************************
+ * grph2/uupack/uupqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UUPQNP(NCP)
+ */
+      SUBROUTINE UUPQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UUPQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UUPQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UUPQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UUPQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UUPQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UUPQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UUPQIT(IDX, ITP)
+ */
+      SUBROUTINE UUPQIT(
+          INTEGER IDX
+          INTEGER o ITP
+      )
+
+/* 
+ *      ENTRY UUPQVL(IDX, IPARA)
+ */
+      SUBROUTINE UUPQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UUPSVL(IDX, IPARA)
+ */
+      SUBROUTINE UUPSVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UUPQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UUPQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/uupack/uuinit.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UUINIT
+ */
+      SUBROUTINE UUINIT(
+      )
+
+/*****************************************************
+ * grph2/uupack/uuslnt.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UUSLNT(ITYPE)
+ */
+      SUBROUTINE UUSLNT(
+          INTEGER ITYPE
+      )
+
+/* 
+ *      ENTRY UUQLNT(ITYPE)
+ */
+      SUBROUTINE UUQLNT(
+          INTEGER o ITYPE
+      )
+
+/* 
+ *      ENTRY UUSLNI(INDEX)
+ */
+      SUBROUTINE UUSLNI(
+          INTEGER INDEX
+      )
+
+/* 
+ *      ENTRY UUQLNI(INDEX)
+ */
+      SUBROUTINE UUQLNI(
+          INTEGER o INDEX
+      )
+
+/*****************************************************
+ * grph2/uupack/uusmkt.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UUSMKT(ITYPE)
+ */
+      SUBROUTINE UUSMKT(
+          INTEGER ITYPE
+      )
+
+/* 
+ *      ENTRY UUQMKT(ITYPE)
+ */
+      SUBROUTINE UUQMKT(
+          INTEGER o ITYPE
+      )
+
+/* 
+ *      ENTRY UUSMKI(INDEX)
+ */
+      SUBROUTINE UUSMKI(
+          INTEGER INDEX
+      )
+
+/* 
+ *      ENTRY UUQMKI(INDEX)
+ */
+      SUBROUTINE UUQMKI(
+          INTEGER o INDEX
+      )
+
+/* 
+ *      ENTRY UUSMKS(RSIZE)
+ */
+      SUBROUTINE UUSMKS(
+          REAL RSIZE
+      )
+
+/* 
+ *      ENTRY UUQMKS(RSIZE)
+ */
+      SUBROUTINE UUQMKS(
+          REAL o RSIZE
+      )
+
+/*****************************************************
+ * grph2/uupack/uusebt.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UUSEBT(ITYPE)
+ */
+      SUBROUTINE UUSEBT(
+          INTEGER ITYPE
+      )
+
+/* 
+ *      ENTRY UUQEBT(ITYPE)
+ */
+      SUBROUTINE UUQEBT(
+          INTEGER o ITYPE
+      )
+
+/* 
+ *      ENTRY UUSEBI(INDEX)
+ */
+      SUBROUTINE UUSEBI(
+          INTEGER INDEX
+      )
+
+/* 
+ *      ENTRY UUQEBI(INDEX)
+ */
+      SUBROUTINE UUQEBI(
+          INTEGER o INDEX
+      )
+
+/* 
+ *      ENTRY UUSEBS(RSIZE)
+ */
+      SUBROUTINE UUSEBS(
+          REAL RSIZE
+      )
+
+/* 
+ *      ENTRY UUQEBS(RSIZE)
+ */
+      SUBROUTINE UUQEBS(
+          REAL o RSIZE
+      )
+
+/*****************************************************
+ * grph2/uupack/uusbrs.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UUSBRS(RSIZE)
+ */
+      SUBROUTINE UUSBRS(
+          REAL RSIZE
+      )
+
+/* 
+ *      ENTRY UUQBRS(RSIZE)
+ */
+      SUBROUTINE UUQBRS(
+          REAL o RSIZE
+      )
+
+/*****************************************************
+ * grph2/uupack/uusfrt.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UUSFRT(ITYPE)
+ */
+      SUBROUTINE UUSFRT(
+          INTEGER ITYPE
+      )
+
+/* 
+ *      ENTRY UUQFRT(ITYPE)
+ */
+      SUBROUTINE UUQFRT(
+          INTEGER o ITYPE
+      )
+
+/* 
+ *      ENTRY UUSFRI(INDEX)
+ */
+      SUBROUTINE UUSFRI(
+          INTEGER INDEX
+      )
+
+/* 
+ *      ENTRY UUQFRI(INDEX)
+ */
+      SUBROUTINE UUQFRI(
+          INTEGER o INDEX
+      )
+
+/*****************************************************
+ * grph2/uupack/uusarp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UUSARP(ITPT1,ITPT2)
+ */
+      SUBROUTINE UUSARP(
+          INTEGER ITPT1
+          INTEGER ITPT2
+      )
+
+/* 
+ *      ENTRY UUQARP(ITPT1,ITPT2)
+ */
+      SUBROUTINE UUQARP(
+          INTEGER o ITPT1
+          INTEGER o ITPT2
+      )
+
+/*****************************************************
+ * grph2/uupack/uusidv.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UUSIDV(UMIN, UMAX)
+ */
+      SUBROUTINE UUSIDV(
+          REAL UMIN
+          REAL UMAX
+      )
+
+/* 
+ *      ENTRY UUQIDV(UMIN, UMAX)
+ */
+      SUBROUTINE UUQIDV(
+          REAL o UMIN
+          REAL o UMAX
+      )
+
+/*****************************************************
+ * grph2/uupack/uuiget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UUIGET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UUIGET(
+          CHARACTER*(*) CP
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UUISET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UUISET(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UUISTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UUISTX(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/*****************************************************
+ * grph2/uupack/uuiqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UUIQNP(NCP)
+ */
+      SUBROUTINE UUIQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UUIQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UUIQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UUIQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UUIQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UUIQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UUIQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UUIQVL(IDX, IPARA)
+ */
+      SUBROUTINE UUIQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UUISVL(IDX, IPARA)
+ */
+      SUBROUTINE UUISVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UUIQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UUIQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/uupack/uulget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UULGET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UULGET(
+          CHARACTER*(*) CP
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY UULSET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UULSET(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY UULSTX(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UULSTX(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/*****************************************************
+ * grph2/uupack/uulqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UULQNP(NCP)
+ */
+      SUBROUTINE UULQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UULQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UULQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UULQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UULQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UULQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UULQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UULQVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UULQVL(
+          INTEGER IDX
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY UULSVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UULSVL(
+          INTEGER IDX
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY UULQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UULQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/uupack/uurget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UURGET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UURGET(
+          CHARACTER*(*) CP
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY UURSET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UURSET(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY UURSTX(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UURSTX(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/*****************************************************
+ * grph2/uupack/uurqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UURQNP(NCP)
+ */
+      SUBROUTINE UURQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UURQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UURQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UURQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UURQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UURQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UURQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UURQVL(IDX, RPARA)
+ */
+      SUBROUTINE UURQVL(
+          INTEGER IDX
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY UURSVL(IDX, RPARA)
+ */
+      SUBROUTINE UURSVL(
+          INTEGER IDX
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY UURQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UURQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+