ruby-dcl 1.7.1 → 1.8.0

data/GenWrapper/proto/grph1_slpack.fp

@@ -1,316 +0,0 @@
-/*
- * 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

@@ -1,455 +0,0 @@
-/*
- * grph1_stpack.fp
- *
- * $Id: grph1_stpack.fp,v 1.2 2012/03/02 17:18:53 koshiro 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
- ****************************************************/
-#if DCLVER >= 544
-/* 
- *      SUBROUTINE STFUSR(XLON, YLAT, X, Y)
- */
-      SUBROUTINE STFUSR(
-          REAL XLON
-          REAL YLAT
-          REAL o XX
-          REAL o YY
-      )
-#else
-/* 
- *      SUBROUTINE STFUSR(UX, UY, XX, YY)
- */
-      SUBROUTINE STFUSR(
-          REAL UX
-          REAL UY
-          REAL o XX
-          REAL o YY
-      )
-#endif
-
-#if DCLVER >= 544
-/* 
- *      ENTRY STIUSR(XX, YY, XLON, YLAT)
- */
-      SUBROUTINE STIUSR(
-          REAL XX
-          REAL YY
-          REAL o XLON
-          REAL o YLAT
-      )
-#else
-/* 
- *      ENTRY STIUSR(XX, YY, UX, UY)
- */
-      SUBROUTINE STIUSR(
-          REAL XX
-          REAL YY
-          REAL o UX
-          REAL o UY
-      )
-#endif
-
-/* 
- *      ENTRY STSUSR
- */
-      SUBROUTINE STSUSR(
-      )
-
-/* 
- *      ENTRY STNUSR(KPROJ)
- */
-#if DCLVER >= 544
-      SUBROUTINE STNUSR(
-          INTEGER KPROJ
-      )
-#endif
-
-/* 
- *      ENTRY STCUSR(I,CTTL)
-        CHARACTER CTTL*(*)
- */
-#if DCLVER >= 544
-      SUBROUTINE STCUSR(
-          INTEGER I
-          CHARACTER*(*) o CTTL
-      )
-#endif
-
-/*****************************************************
- * 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
-      )
-
-