ruby-dcl 1.6.2

data/GenWrapper/proto/grph1_slpack.fp

@@ -0,0 +1,316 @@
+/*
+ * grph1_slpack.fp
+ *
+ * $Id: grph1_slpack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * grph1/slpack/slinit.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLINIT(WXMAX,WYMAX,FACT)
+ */
+      SUBROUTINE SLINIT(
+          REAL WXMAX
+          REAL WYMAX
+          REAL FACT
+      )
+
+/* 
+ *      ENTRY SLSIZE(CSZEZ)
+ *      CHARACTER CSZEZ*(*)
+ */
+      SUBROUTINE SLSIZE(
+          CHARACTER*(*) CSZEZ
+      )
+
+/* 
+ *      ENTRY SLFORM(DXA,DYA)
+ */
+      SUBROUTINE SLFORM(
+          REAL DXA
+          REAL DYA
+      )
+
+/*****************************************************
+ * grph1/slpack/sldiv.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLDIV(CFORM,IX,IY)
+ *      CHARACTER CFORM*(*)
+ */
+      SUBROUTINE SLDIV(
+          CHARACTER*(*) CFORM
+          INTEGER IX
+          INTEGER IY
+      )
+
+/*****************************************************
+ * grph1/slpack/slmgn.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLMGN(XL,XR,YB,YT)
+ */
+      SUBROUTINE SLMGN(
+          REAL XL
+          REAL XR
+          REAL YB
+          REAL YT
+      )
+
+/*****************************************************
+ * grph1/slpack/slrat.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLRAT(RX,RY)
+ */
+      SUBROUTINE SLRAT(
+          REAL RX
+          REAL RY
+      )
+
+/*****************************************************
+ * grph1/slpack/slqrct.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLQRCT(LEV,IFRM,XAMIN,XAMAX,YAMIN,YAMAX)
+ */
+/*
+      SUBROUTINE SLQRCT(
+          INTEGER LEV
+          INTEGER IFRM
+          REAL o XAMIN
+          REAL o XAMAX
+          REAL o YAMIN
+          REAL o YAMAX
+      )
+ */
+
+/*****************************************************
+ * grph1/slpack/slpage.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLPAGE(LEV,IFRM,IPAGE)
+ */
+/*
+      SUBROUTINE SLPAGE(
+          INTEGER LEV
+          INTEGER IFRM
+          INTEGER o IPAGE
+      )
+ */
+
+/*****************************************************
+ * grph1/slpack/slpcnr.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLPCNR
+ */
+/*
+      SUBROUTINE SLPCNR(
+      )
+ */
+
+/*****************************************************
+ * grph1/slpack/slsttl.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLSTTL(CTTL,CSIDE,PX,PY,HT,NT)
+ *      CHARACTER CTTL*(*),CSIDE*(*)
+ */
+      SUBROUTINE SLSTTL(
+          CHARACTER*(*) CTTL
+          CHARACTER*(*) CSIDE
+          REAL PX
+          REAL PY
+          REAL HT
+          INTEGER NT
+      )
+
+/* 
+ *      ENTRY SLDTTL(NT)
+ */
+      SUBROUTINE SLDTTL(
+          INTEGER NT
+      )
+
+/* 
+ *      ENTRY SLPTTL
+ */
+/*
+      SUBROUTINE SLPTTL(
+      )
+ */
+
+/*****************************************************
+ * grph1/slpack/sltlcv.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLTLCV(CTLIN,CTLOUT,LOUT)
+ *      CHARACTER CTLIN*(*),CTLOUT*(*)
+ */
+/*
+      SUBROUTINE SLTLCV(
+          CHARACTER*(*) CTLIN
+          CHARACTER*(*) o CTLOUT
+          INTEGER o LOUT
+      )
+ */
+
+/*****************************************************
+ * grph1/slpack/slpvpr.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLPVPR(INDEX)
+ */
+      SUBROUTINE SLPVPR(
+          INTEGER INDEX
+      )
+
+/*****************************************************
+ * grph1/slpack/slpwwr.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLPWWR(INDEX)
+ */
+      SUBROUTINE SLPWWR(
+          INTEGER INDEX
+      )
+
+/*****************************************************
+ * grph1/slpack/slpwvr.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLPWVR(INDEX)
+ */
+      SUBROUTINE SLPWVR(
+          INTEGER INDEX
+      )
+
+/*****************************************************
+ * grph1/slpack/slpvpc.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLPVPC(INDEX,RC)
+ */
+      SUBROUTINE SLPVPC(
+          INTEGER INDEX
+          REAL RC
+      )
+
+/*****************************************************
+ * grph1/slpack/slpwwc.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLPWWC(INDEX,RC)
+ */
+      SUBROUTINE SLPWWC(
+          INTEGER INDEX
+          REAL RC
+      )
+
+/*****************************************************
+ * grph1/slpack/slpwvc.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLPWVC(INDEX,RC)
+ */
+      SUBROUTINE SLPWVC(
+          INTEGER INDEX
+          REAL RC
+      )
+
+/*****************************************************
+ * grph1/slpack/slzttl.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLZTTL(CSIDE,CTTL,PX,PY,RSIZE,INDEX)
+ *      CHARACTER CTTL*(*),CSIDE*(*)
+ */
+/*
+      SUBROUTINE SLZTTL(
+          CHARACTER*(*) CSIDE
+          CHARACTER*(*) CTTL
+          REAL PX
+          REAL PY
+          REAL RSIZE
+          INTEGER INDEX
+      )
+ */
+
+/*****************************************************
+ * grph1/slpack/sldivz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLDIVZ(XAMIN,XAMAX,YAMIN,YAMAX,CFORM,IX,IY,
+ *     +                  XBMIN,XBMAX,YBMIN,YBMAX)
+ *      CHARACTER CFORM*(*)
+ *      REAL      XBMIN(IX*IY),XBMAX(IX*IY),YBMIN(IX*IY),YBMAX(IX*IY)
+ */
+/*
+      SUBROUTINE SLDIVZ(
+          REAL XAMIN
+          REAL XAMAX
+          REAL YAMIN
+          REAL YAMAX
+          CHARACTER*(*) CFORM
+          INTEGER IX
+          INTEGER IY
+          REAL (IX*IY) o XBMIN
+          REAL (IX*IY) o XBMAX
+          REAL (IX*IY) o YBMIN
+          REAL (IX*IY) o YBMAX
+      )
+ */
+
+/*****************************************************
+ * grph1/slpack/slmgnz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLMGNZ(XAMIN,XAMAX,YAMIN,YAMAX,XL,XR,YB,YT)
+ */
+/*
+      SUBROUTINE SLMGNZ(
+          REAL io XAMIN
+          REAL io XAMAX
+          REAL io YAMIN
+          REAL io YAMAX
+          REAL XL
+          REAL XR
+          REAL YB
+          REAL YT
+      )
+ */
+
+/*****************************************************
+ * grph1/slpack/slratz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLRATZ(XAMIN,XAMAX,YAMIN,YAMAX,RX,RY)
+ */
+/*
+      SUBROUTINE SLRATZ(
+          REAL io XAMIN
+          REAL io XAMAX
+          REAL io YAMIN
+          REAL io YAMAX
+          REAL RX
+          REAL RY
+      )
+ */
+
+/*****************************************************
+ * grph1/slpack/slqsiz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SLQSIZ(CSIZE,DX,DY)
+ *      CHARACTER CSIZE*(*)
+ */
+/*
+      SUBROUTINE SLQSIZ(
+          CHARACTER*(*) CSIZE
+          REAL o DX
+          REAL o DY
+      )
+ */
+

data/GenWrapper/proto/grph1_stpack.fp

@@ -0,0 +1,411 @@
+/*
+ * grph1_stpack.fp
+ *
+ * $Id: grph1_stpack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*
+ * Wrappers of STFTRF, STITRF, STFPR2, and STIPR2 are made in
+ * ../dcl_narrayed_funcs.rb
+ */
+
+/*****************************************************
+ * grph1/stpack/stftrf.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE STFTRF(UX, UY, VX, VY)
+ */
+/* 
+ *      SUBROUTINE STFTRF(
+ *          REAL UX
+ *          REAL UY
+ *          REAL o VX
+ *          REAL o VY
+ *      )
+ */
+
+/* 
+ *      ENTRY STITRF(VX, VY, UX, UY)
+ */
+/* 
+ *      SUBROUTINE STITRF(
+ *          REAL VX
+ *          REAL VY
+ *          REAL o UX
+ *          REAL o UY
+ *      )
+ */
+
+/* 
+ *      ENTRY STQTRF(LMAPA)
+ *      LOGICAL   LMAPA
+ */
+      SUBROUTINE STQTRF(
+          LOGICAL o LMAPA
+      )
+
+/* 
+ *      ENTRY STSTRF(LMAPA)
+ *      LOGICAL   LMAPA
+ */
+      SUBROUTINE STSTRF(
+          LOGICAL LMAPA
+      )
+
+/*****************************************************
+ * grph1/stpack/stftrn.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE STFTRN(UX, UY, VX, VY)
+ */
+      SUBROUTINE STFTRN(
+          REAL UX
+          REAL UY
+          REAL o VX
+          REAL o VY
+      )
+
+/* 
+ *      ENTRY STITRN(VX, VY, UX, UY)
+ */
+      SUBROUTINE STITRN(
+          REAL VX
+          REAL VY
+          REAL o UX
+          REAL o UY
+      )
+
+/* 
+ *      ENTRY STSTRI(ITR)
+ */
+#if DCLVER >= 530
+      SUBROUTINE STSTRI(
+          INTEGER ITR
+      )
+#endif
+
+/* 
+ *      ENTRY STSTRP(CXA, CYA, VXOFF, VYOFF)
+ */
+#if DCLVER >= 530
+      SUBROUTINE  STSTRP(
+           REAL CXA
+           REAL CYA
+           REAL VXOFF
+           REAL VYOFF
+      )
+#endif
+
+/*****************************************************
+ * grph1/stpack/stftrn.f  if DCL52
+ ****************************************************/
+/* 
+ *      ENTRY STSTRN(ITR, CXA, CYA, VXOFF, VYOFF)
+ */
+/*****************************************************
+ * grph1/stpack/ststrn.f  if DCL53
+ ****************************************************/
+/* 
+ *      SUBROUTINE STSTRN(ITR, CXA, CYA, VXOFF, VYOFF)
+ */
+      SUBROUTINE STSTRN(
+          INTEGER ITR
+          REAL CXA
+          REAL CYA
+          REAL VXOFF
+          REAL VYOFF
+      )
+
+/*****************************************************
+ * grph1/stpack/stfrot.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE STFROT(UX, UY, TX, TY)
+ */
+      SUBROUTINE STFROT(
+          REAL UX
+          REAL UY
+          REAL o TX
+          REAL o TY
+      )
+
+/* 
+ *      ENTRY STIROT(TX, TY, UX, UY)
+ */
+      SUBROUTINE STIROT(
+          REAL TX
+          REAL TY
+          REAL o UX
+          REAL o UY
+      )
+
+/* 
+ *      ENTRY STSROT(THETA, PHI, PSI)
+ */
+      SUBROUTINE STSROT(
+          REAL THETA
+          REAL PHI
+          REAL PSI
+      )
+
+/*****************************************************
+ * grph1/stpack/stfrad.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE STFRAD(X, Y, RX, RY)
+ */
+      SUBROUTINE STFRAD(
+          REAL X
+          REAL Y
+          REAL o RX
+          REAL o RY
+      )
+
+/* 
+ *      ENTRY STIRAD(RX, RY, X, Y)
+ */
+      SUBROUTINE STIRAD(
+          REAL RX
+          REAL RY
+          REAL o X
+          REAL o Y
+      )
+
+/* 
+ *      ENTRY STSRAD(LXDEG, LYDEG)
+ *      LOGICAL   LXDEG, LYDEG
+ */
+      SUBROUTINE STSRAD(
+          LOGICAL LXDEG
+          LOGICAL LYDEG
+      )
+
+/*****************************************************
+ * grph1/stpack/stfusr.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE STFUSR(UX, UY, XX, YY)
+ */
+      SUBROUTINE STFUSR(
+          REAL UX
+          REAL UY
+          REAL o XX
+          REAL o YY
+      )
+
+/* 
+ *      ENTRY STIUSR(XX, YY, UX, UY)
+ */
+      SUBROUTINE STIUSR(
+          REAL XX
+          REAL YY
+          REAL o UX
+          REAL o UY
+      )
+
+/* 
+ *      ENTRY STSUSR
+ */
+      SUBROUTINE STSUSR(
+      )
+
+/*****************************************************
+ * grph1/stpack/stfwtr.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE STFWTR(RX,RY,WX,WY)
+ */
+      SUBROUTINE STFWTR(
+          REAL RX
+          REAL RY
+          REAL o WX
+          REAL o WY
+      )
+
+/* 
+ *      ENTRY STIWTR(WX,WY,RX,RY)
+ */
+      SUBROUTINE STIWTR(
+          REAL WX
+          REAL WY
+          REAL o RX
+          REAL o RY
+      )
+
+/* 
+ *      ENTRY STSWTR(RXMIN,RXMAX,RYMIN,RYMAX,
+ *     +             WXMIN,WXMAX,WYMIN,WYMAX,IWTRF)
+ */
+      SUBROUTINE STSWTR(
+          REAL RXMIN
+          REAL RXMAX
+          REAL RYMIN
+          REAL RYMAX
+          REAL WXMIN
+          REAL WXMAX
+          REAL WYMIN
+          REAL WYMAX
+          INTEGER IWTRF
+      )
+
+/* 
+ *      ENTRY STQWTR(RXMIN,RXMAX,RYMIN,RYMAX,
+ *     +             WXMIN,WXMAX,WYMIN,WYMAX,IWTRF)
+ */
+      SUBROUTINE STQWTR(
+          REAL o RXMIN
+          REAL o RXMAX
+          REAL o RYMIN
+          REAL o RYMAX
+          REAL o WXMIN
+          REAL o WXMAX
+          REAL o WYMIN
+          REAL o WYMAX
+          INTEGER o IWTRF
+      )
+
+/* 
+ *      ENTRY STSWRC(WSXMN,WSXMX,WSYMN,WSYMX)
+ */
+      SUBROUTINE STSWRC(
+          REAL WSXMN
+          REAL WSXMX
+          REAL WSYMN
+          REAL WSYMX
+      )
+
+/* 
+ *      ENTRY STQWRC(WSXMN,WSXMX,WSYMN,WSYMX)
+ */
+      SUBROUTINE STQWRC(
+          REAL o WSXMN
+          REAL o WSXMX
+          REAL o WSYMN
+          REAL o WSYMX
+      )
+
+/*****************************************************
+ * grph1/stpack/stfpr3.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE STFPR3(X, Y, Z, RX, RY)
+ */
+      SUBROUTINE STFPR3(
+          REAL X
+          REAL Y
+          REAL Z
+          REAL o RX
+          REAL o RY
+      )
+
+/* 
+ *      ENTRY STSPR3(XFC, YFC, ZFC, THETA, PHI, PSI, FAC,
+ *     +             ZVIEW, RXOFF, RYOFF)
+ */
+      SUBROUTINE STSPR3(
+          REAL XFC
+          REAL YFC
+          REAL ZFC
+          REAL THETA
+          REAL PHI
+          REAL PSI
+          REAL FAC
+          REAL ZVIEW
+          REAL RXOFF
+          REAL RYOFF
+      )
+
+/* 
+ *      ENTRY STFPR2(X, Y, RX, RY)
+ */
+/* 
+ *      SUBROUTINE STFPR2(
+ *          REAL X
+ *          REAL Y
+ *          REAL o RX
+ *          REAL o RY
+ *      )
+ */
+
+/* 
+ *      ENTRY STIPR2(RX, RY, X, Y)
+ */
+/* 
+ *      SUBROUTINE STIPR2(
+ *          REAL RX
+ *          REAL RY
+ *          REAL o X
+ *          REAL o Y
+ *      )
+ */
+
+/* 
+ *      ENTRY STSPR2(IX, IY, SECT)
+ */
+      SUBROUTINE STSPR2(
+          INTEGER IX
+          INTEGER IY
+          REAL SECT
+      )
+
+/* 
+ *      ENTRY STEPR2
+ */
+      SUBROUTINE STEPR2(
+      )
+
+/* 
+ *      ENTRY STRPR2
+ */
+      SUBROUTINE STRPR2(
+      )
+
+/*****************************************************
+ * grph1/stpack/stftr3.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE STFTR3(UX, UY, UZ, VX, VY, VZ)
+ */
+      SUBROUTINE STFTR3(
+          REAL UX
+          REAL UY
+          REAL UZ
+          REAL o VX
+          REAL o VY
+          REAL o VZ
+      )
+
+/* 
+ *      ENTRY STSTR3(ITR, CXA, CYA, CZA, VXOFF, VYOFF, VZOFF)
+ */
+      SUBROUTINE STSTR3(
+          INTEGER ITR
+          REAL CXA
+          REAL CYA
+          REAL CZA
+          REAL VXOFF
+          REAL VYOFF
+          REAL VZOFF
+      )
+
+/* 
+ *      ENTRY STSRD3(LXRD, LYRD, LZRD)
+ *      LOGICAL   LXRD, LYRD, LZRD, LXLG, LYLG, LZLG
+ */
+      SUBROUTINE STSRD3(
+          LOGICAL LXRD
+          LOGICAL LYRD
+          LOGICAL LZRD
+      )
+
+/* 
+ *      ENTRY STSLG3(LXLG, LYLG, LZLG)
+ *      LOGICAL   LXRD, LYRD, LZRD, LXLG, LYLG, LZLG
+ */
+      SUBROUTINE STSLG3(
+          LOGICAL LXLG
+          LOGICAL LYLG
+          LOGICAL LZLG
+      )
+
+