Subject: dcl new interface ( sakai group ) From: Akihiko Kawaguchi To: dennou_davis@gfd-dennou.org Date: Wed, 04 Aug 1999 15:37:37 +0900 X-Mailer: Becky! ver 1.25.06 Delivery-Date: Wed, 04 Aug 1999 15:38:50 +0900 Mailing-List: contact dennou_davis-help@gfd-dennou.org; run by ezmlm 統合ルーチン DclGetParm(cpEX, ipara) cpEX = XX:cp DclSetParm(cpEX, ipara) DclSetParmEx(cpEX, ipara) 各パッケージ共通 xxPGET(CP,IPARA) DclXXGetParm (cp,ipara) generic xxIGET(CP,IPARA) DclXXGetInteger(cp) function xxRGET(CP,IPARA) DclXXGetReal (cp) function xxLGET(CP,IPARA) DclXXGetLogical(cp) function xxCGET(CP,CPARA) DclXXGetChar (cp) function xxPSET(CP,IPARA) DclXXSetParm (cp,ipara) generic xxISET(CP,IPARA) DclXXSetInteger(cp,ipara) xxRSET(CP,IPARA) DclXXSetReal (cp,rpara) xxLSET(CP,IPARA) DclXXSetLogical(cp,lpara) xxCSET(CP,CPARA) DclXXSetChar (cp,cpara) xxPSTX(CP,IPARA) DclXXSetParmEx (cp,ipara) generic xxISTX(CP,IPARA) DclXXSetIntegerEx(cp,ipara) xxRSTX(CP,IPARA) DclXXSetRealEx (cp,rpara) xxLSTX(CP,IPARA) DclXXSetLogicalEx(cp,lpara) xxCSTX(CP,IPARA) DclXXSetCharEx (cp,cpara) xxPQNP(NCP) --- xxPQID(CP,IDX) --- xxPQCP(IDX,CP) --- xxPQVL(IDX,IPARA) --- xxPSVL(IDX,IPARA) --- xxINIT --- ---------- grpack ---------- SUBROUTINE GROPN(IWS) DclOpen(iws) ENTRY GRFRM DclNewFrame ENTRY GRFIG DclNewFig ENTRY GRCLS DclClose SUBROUTINE GRSMPL(PLX, PLY, PLROT) DclSetMapPole (plx,ply,plrot) SUBROUTINE GRSSIM(SIMFAC, VXOFF, VYOFF) DclSetSimlarity (simfac,vxoff,vyoff) SUBROUTINE GRSTRF DclSetTransform SUBROUTINE GRSTRN(ITR) DclSetTrNumber (itr) SUBROUTINE GRSTXY(TXMIN, TXMAX, TYMIN, TYMAX) DclSetProjectionWindow(txmin,txmax,tymin,tymax) SUBROUTINE GRSVPT(VXMIN, VXMAX, VYMIN, VYMAX) DclSetViewPort(vxmin,vxmax,vymin,vymax) SUBROUTINE GRSWND(UXMIN, UXMAX, UYMIN, UYMAX) DclSetWindow(uxmin,uxmax,uymin,uymax) ---------- ucpack ---------- FUNCTION NUCCHR(CS,ND) --- FUNCTION NUCDAY(CS,ND) --- SUBROUTINE UCXACL(CSIDE,JD0,ND) DclDrawXAxisCalendar (cside,jd0,nd) SUBROUTINE UCXADY(CSIDE,JD0,ND) DclDrawXAxisDay (cside,jd0,nd) SUBROUTINE UCXAMN(CSIDE,JD0,ND) DclDrawXAxisMonth(cside,jd0,nd) SUBROUTINE UCXAYR(CSIDE,JD0,ND) DclDrawXAxisYear (cside,jd0,nd) SUBROUTINE UCYACL(CSIDE,JD0,ND) DclDrawYAxisCalendar (cside,jd0,nd) SUBROUTINE UCYADY(CSIDE,JD0,ND) DclDrawYAxisDay (cside,jd0,nd) SUBROUTINE UCYAMN(CSIDE,JD0,ND) DclDrawYAxisMonth(cside,jd0,nd) SUBROUTINE UCYAYR(CSIDE,JD0,ND) DclDrawYAxisYear (cside,jd0,nd) ---------- udpack ---------- FUNCTION LUDCHK(I,J,K,L,IBR) --- FUNCTION RUDLEV(NLEV) DclGetContourInterval(nlev) FUNCTION RUDVAL(ZZ,CZ) --- SUBROUTINE UDBCLR(I,J,K,L,IBR) --- SUBROUTINE UDBSET(I,J,K,L,IBR) --- SUBROUTINE UDCNTR(Z,MX,NX,NY) DclDrawContour(z) (z,nx,ny) SUBROUTINE UDCNTZ(Z,MX,NX,NY,IBR,NBR2) --- SUBROUTINE UDGCLA(XMIN,XMAX,DX) DclSetContourA(xmin, xmax, dx) SUBROUTINE UDGCLB(Z,MX,NX,NY,DX) DclSetContourB(z,dx) (z,dx, nx,ny) generic DclSetContour(xmin, xmax, dx) (z, dx) SUBROUTINE UDGRDN(MODE,IX,IY,K,JX,JY,JK) --- SUBROUTINE UDICLR(IX,N) --- SUBROUTINE UDICLV DclClearCounourLevel ENTRY UDSCLV(ZLEV,INDX,ITYP,CLV,HL) DclSetContourLine(zlev) (zlev,indx,itype, clv, hl) ENTRY UDQCLV(ZLEV,INDX,ITYP,CLV,HL,NLEV) DclGetContourLine ENTRY UDQCLN(NLEV) DclGetCLNumber ENTRY UDDCLV(ZLEV) DclDelContourLevel(zlev) ENTRY UDSCLZ(LSET) --- ENTRY UDQCLZ(LSET) --- SUBROUTINE UDLABL(VAL,CVAL) --- ENTRY UDSFMT(CFMT) DclSetContourLabelFormat(cfmt) ENTRY UDQFMT(CFMT) DclGetContourLabelFormat(cfmt) SUBROUTINE UDLINE(Z,MX,KX,KY,KK,CX,LOPEN,IBR) --- SUBROUTINE UDUXUY(Z,MX,IX,IY,K,CX,UX,UY) --- ---------- uepack ---------- FUNCTION IUETON(ZLEV) --- SUBROUTINE UEAREA(XP,YP,ZP,VLVM,AX,AY,NP,NI,NG) --- ENTRY UEAINT --- SUBROUTINE UEGTLA(XMIN,XMAX,DX) DclSetHatchA SUBROUTINE UEGTLB(Z,MX,NX,NY,DX) DclSetHatchB generic DclSetHatch SUBROUTINE UEITLV DclClearHatchLevel ENTRY UESTLV(TLEV1,TLEV2,IPAT) DclSetHatchLevel ENTRY UEQTLV(TLEV1,TLEV2,IPAT,ITON) DclGetHatchLevel ENTRY UEQNTL(NTON) DclGetHatchLevelNumber ENTRY UESTLZ(LSET) --- ENTRY UEQTLZ(LSET) --- SUBROUTINE UESTLN(TLEVN,IPATN,NTON) DclSetHatchLevel SUBROUTINE UETONC (Z,MX,NX,NY) --- SUBROUTINE UETONE (Z,MX,NX,NY) DclDrawHatch(z) SUBROUTINE UETONF (Z,MX,NX,NY) DclDrawHatchEx(z) SUBROUTINE UEZCHK(Z,MX,NX,NY,CNAME,ISTAT) --- ---------- ugpack ---------- SUBROUTINE UGSUT(CSIDE,CTTL) DclSetUnitVectorTitle ENTRY UGDUT --- SUBROUTINE UGUNIT --- SUBROUTINE UGVECT(U,MU,V,MV,NX,NY) DclDrawVectors ---------- ulpack ---------- SUBROUTINE ULXLBL ( BL, NBL, INUM ) --- ENTRY ULSXBL ( BL, NBL ) DclSetXLogLabel ENTRY ULQXBL ( BL, NBL ) DclGetXLogLabel SUBROUTINE ULXLOG ( CSIDE, NLBL, NTICKS ) DclDrawXLogAxis ENTRY ULXSFM ( CXFMT ) DclSetXLogFormat ENTRY ULXQFM ( CXFMT ) DclGetXLogFormat SUBROUTINE ULYLBL ( BL, NBL, INUM ) --- ENTRY ULSYBL ( BL, NBL ) DclSetYLogLabel ENTRY ULQYBL ( BL, NBL ) DclGetYLogLabel SUBROUTINE ULYLOG ( CSIDE, NLBL, NTICKS ) DclDrawYLogAxis ENTRY ULYSFM ( CYFMT ) DclSetYLogFormat ENTRY ULYQFM ( CYFMT ) DclGetYLogFormat ---------- umpack ---------- SUBROUTINE UMBNDC(XMIN, XMAX, YMIN, YMAX) SUBROUTINE UMBNDP(VXMIN, VXMAX, VYMIN, VYMAX) SUBROUTINE UMBNDR(FUNC, FTR, SUBROUTINE UMPFIT DclFitMapParm SUBROUTINE UMPGLB DclDrawGlobe? SUBROUTINE UMPGRD DclDrawGrid SUBROUTINE UMPLIM SUBROUTINE UMPMAP(CDSN) DclDrawMap SUBROUTINE UMQFNM(CPARA,CFNAME) SUBROUTINE UMQTXY(TXMINZ, TXMAXZ, TYMINZ, TYMAXZ) SUBROUTINE UMSCNT(XCNT, YCNT, ROT) ENTRY UMQCNT(XCNT, YCNT, ROT) SUBROUTINE UMSCOM SUBROUTINE UMSCWD(XCNTR, YCNTR, R) ENTRY UMQCWD(XCNTR, YCNTR, R) SUBROUTINE UMSGRD SUBROUTINE UMSPCT DclSetMapCenter SUBROUTINE UMSPCW SUBROUTINE UMSPDF SUBROUTINE UMSPNT(N, UX, UY) DclSetMapPoint ENTRY UMQPNT(N, UXA, UYA) ENTRY UMQPTN(N) ENTRY UMRPNT SUBROUTINE UMSPPT SUBROUTINE UMSPWD SUBROUTINE UMSTVZ ---------- uspack ---------- FUNCTION CSBLBL(UFAC, UOFF, CUNIT) --- SUBROUTINE USCHVL(X, CHX) --- SUBROUTINE USDAXS DclDrawAxis SUBROUTINE USGRPH(N, X, Y) DclDrawGraph SUBROUTINE USPFIT DclFitScalingParm SUBROUTINE USSPNT(N, X, Y) DclScalingPoint SUBROUTINE USSTTL(CXTTL, CXUNIT, CYTTL, CYUNIT) DclSetTitle SUBROUTINE USURDL(UMIN, UMAX, VMIN, VMAX) --- SUBROUTINE USURDT(UMIN, UMAX, VMIN, VMAX, DUT) --- SUBROUTINE USUSCL(CAXIS, UMIN, UMAX, VMIN, VMAX) --- SUBROUTINE USUSCU(CAXIS, UMIN, UMAX, VMIN, VMAX, MODE) --- SUBROUTINE USWAPZ(X1, X2, N) --- SUBROUTINE USXAXL(CXS) --- SUBROUTINE USXAXS(CSIDE) DclDrawXaxis(cside) SUBROUTINE USXAXU(CXS) --- SUBROUTINE USXOFF(CXS) --- SUBROUTINE USXSUB(CXA, CYA, CLABEL, RLBL) --- SUBROUTINE USYAXL(CYS) --- SUBROUTINE USYAXS(CSIDE) DclDrawYaxis(cside) SUBROUTINE USYAXU(CYS) --- SUBROUTINE USYOFF(CYS) --- SUBROUTINE USYSUB(CYA, CXA, CLABEL, RLBL) --- SUBROUTINE USZDGT(UMIN, UMAX, DUL, MAXDGT, --- ---------- uupack ---------- SUBROUTINE UULIN(N,UPX,UPY) DclDrawLine SUBROUTINE UULINZ(N,UPX,UPY,ITYPE,INDEX) SUBROUTINE UUMRK(N,UPX,UPY) DclDrawMarker SUBROUTINE UUMRKZ(N,UPX,UPY,ITYPE,INDEX,RSIZE) SUBROUTINE UUSARP(ITPT1,ITPT2) DclSetAreaPattern ENTRY UUQARP(ITPT1,ITPT2) SUBROUTINE UUSBRS(RSIZE) DclSetBarSize ENTRY UUQBRS(RSIZE) SUBROUTINE UUSEBT(ITYPE) DclSetErrorBarLineType ENTRY UUQEBT(ITYPE) ENTRY UUSEBI(INDEX) DclSetErrorBarLineIndex ENTRY UUQEBI(INDEX) ENTRY UUSEBS(RSIZE) DclSetErrorBarSize ENTRY UUQEBS(RSIZE) SUBROUTINE UUSFRT(ITYPE) DclSetFrameType ENTRY UUQFRT(ITYPE) ENTRY UUSFRI(INDEX) DclSetFrameIndex ENTRY UUQFRI(INDEX) SUBROUTINE UUSIDV(UMIN, UMAX) DclSet定義域 ENTRY UUQIDV(UMIN, UMAX) SUBROUTINE UUSLNT(ITYPE) DclSetLineType ENTRY UUQLNT(ITYPE) ENTRY UUSLNI(INDEX) DclSetLineIndex ENTRY UUQLNI(INDEX) SUBROUTINE UUSMKT(ITYPE) DclSetMarkerType ENTRY UUQMKT(ITYPE) ENTRY UUSMKI(INDEX) DclSetMarkerIndex ENTRY UUQMKI(INDEX) ENTRY UUSMKS(RSIZE) DclSetMarkerSize ENTRY UUQMKS(RSIZE) ---------- uhpack ---------- SUBROUTINE UHBRA (N,UPX1,UPX2,UPY) DclHatchBarArea SUBROUTINE UHBRAZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2,RSIZE) SUBROUTINE UHBRF (N,UPX1,UPX2,UPY) DclDrawBarFrame SUBROUTINE UHBRFZ(N,UPX1,UPX2,UPY,ITYPE,INDEX,RSIZE) SUBROUTINE UHBRL (N,UPX,UPY) DclDrawEnvelopLine SUBROUTINE UHBRLZ(N,UPX,UPY,ITYPE,INDEX,RSIZE) SUBROUTINE UHBXA (N,UPX1,UPX2,UPY) DclDrawBox SUBROUTINE UHBXAZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2) SUBROUTINE UHBXF (N,UPX1,UPX2,UPY) SUBROUTINE UHBXFZ(N,UPX1,UPX2,UPY,ITYPE,INDEX) SUBROUTINE UHBXL (N,UPX,UPY) SUBROUTINE UHBXLZ(N,UPX,UPY,ITYPE,INDEX) SUBROUTINE UHDIF (N,UPX1,UPX2,UPY) SUBROUTINE UHDIFZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2) SUBROUTINE UHERB (N,UPX1,UPX2,UPY) SUBROUTINE UHERBZ(N,UPX1,UPX2,UPY,ITYPE,INDEX,RSIZE) ---------- uvpack ---------- SUBROUTINE UVBRA(N,UPX,UPY1,UPY2) SUBROUTINE UVBRAZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2,RSIZE) SUBROUTINE UVBRF(N,UPX,UPY1,UPY2) SUBROUTINE UVBRFZ(N,UPX,UPY1,UPY2,ITYPE,INDEX,RSIZE) SUBROUTINE UVBRL(N,UPX,UPY) SUBROUTINE UVBRLZ(N,UPX,UPY,ITYPE,INDEX,RSIZE) SUBROUTINE UVBXA(N,UPX,UPY1,UPY2) SUBROUTINE UVBXAZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2) SUBROUTINE UVBXF(N,UPX,UPY1,UPY2) SUBROUTINE UVBXFZ(N,UPX,UPY1,UPY2,ITYPE,INDEX) SUBROUTINE UVBXL(N,UPX,UPY) SUBROUTINE UVBXLZ(N,UPX,UPY,ITYPE,INDEX) SUBROUTINE UVDIF(N,UPX,UPY1,UPY2) SUBROUTINE UVDIFZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2) SUBROUTINE UVERB(N,UPX,UPY1,UPY2) SUBROUTINE UVERBZ(N,UPX,UPY1,UPY2,ITYPE,INDEX,RSIZE) ---------- uwpack ---------- FUNCTION IUWGX(UX) DclGetGridNumberX FUNCTION IUWGY(UY) DclGetGridNumberY FUNCTION RUWGX(IX) DclGetGridX FUNCTION RUWGY(IY) DclGetGridY SUBROUTINE UWDFLT(NX,NY) SUBROUTINE UWQGXI(UX,IUX,FRAC) ENTRY UWIGXI --- SUBROUTINE UWQGYI(UY,IUY,FRAC) ENTRY UWIGYI --- SUBROUTINE UWSGXA(XP,NX) DclSetGridX ENTRY UWQGXA(XP,NX) DclGetGridX ENTRY UWSGXB(UXMIN,UXMAX,NX) DclSetEvenGridX ENTRY UWQGXB(UXMIN,UXMAX,NX) DclGetEvenGridY ENTRY UWSGXZ(LSETX) --- ENTRY UWQGXZ(LSETX) --- SUBROUTINE UWSGYA(YP,NY) DclSetGridY ENTRY UWQGYA(YP,NY) DclGetGridY ENTRY UWSGYB(UYMIN,UYMAX,NY) DclSetEvenGridY ENTRY UWQGYB(UYMIN,UYMAX,NY) DclGetEvenGridY ENTRY UWSGYZ(LSETY) --- ENTRY UWQGYZ(LSETY) --- ---------- uxpack ---------- FUNCTION LUXCHK(CSIDE) --- SUBROUTINE UXAXDV(CSIDE,DX1,DX2) DclDrawXAxisInterval SUBROUTINE UXAXLB(CSIDE,UX1,N1,UX2,CH,NC,N2) DclDrawXAxisLabel SUBROUTINE UXAXNM(CSIDE,UX1,N1,UX2,N2) DclDrawXAxisValue SUBROUTINE UXMTTL(CSIDE,CTTL,PX) DclDrawXTitle SUBROUTINE UXPAXS(CSIDE,ISLCT) --- SUBROUTINE UXPLBA(UX,CH,NC,N,UPY,ROFFX,RSIZE,IROTA,ICENT,INDEX) --- SUBROUTINE UXPLBB(UX,CH,NC,N,UPY,ROFFX,RSIZE,IROTA,ICENT,INDEX) --- SUBROUTINE UXPLBL(CSIDE,ISLCT,UX,CH,NC,N) --- SUBROUTINE UXPNUM(CSIDE,ISLCT,UX,N) --- ENTRY UXSFMT(CFMT) DclSetXAxisFormat ? ENTRY UXQFMT(CFMT) DclgetXAxisFormat ? SUBROUTINE UXPTMK(CSIDE,ISLCT,UX,N) --- SUBROUTINE UXPTMZ(UX,N,UPY,ROFFX,RTICK,INDEX) --- SUBROUTINE UXPTTL(CSIDE,ISLCT,CTTL,PX) --- SUBROUTINE UXSAXS(CSIDE) ??? SUBROUTINE UXSAXZ(CSIDE,ROFFX) --- SUBROUTINE UXSOFF --- ENTRY UXROFF --- SUBROUTINE UXSTTL(CSIDE,CTTL,PX) DclDrawXTitleSmall ---------- uypack ---------- FUNCTION LUYCHK(CSIDE) --- SUBROUTINE UYAXDV(CSIDE,DY1,DY2) DclDrawYAxisInterval SUBROUTINE UYAXLB(CSIDE,UY1,N1,UY2,CH,NC,N2) DclDrawYAxisLabel SUBROUTINE UYAXNM(CSIDE,UY1,N1,UY2,N2) DclDrawYAxisValue SUBROUTINE UYMTTL(CSIDE,CTTL,PX) DclDrawYTitle SUBROUTINE UYPAXS(CSIDE,ISLCT) --- SUBROUTINE UYPLBA(UY,CH,NC,N,UPX,ROFFY,RSIZE,IROTA,ICENT,INDEX) --- SUBROUTINE UYPLBB(UY,CH,NC,N,UPX,ROFFY,RSIZE,IROTA,ICENT,INDEX, --- SUBROUTINE UYPLBL(CSIDE,ISLCT,UY,CH,NC,N) --- SUBROUTINE UYPNUM(CSIDE,ISLCT,UY,N) --- ENTRY UYSFMT(CFMT) DclSetYAxisFormat ? ENTRY UYQFMT(CFMT) DclSetYAxisFormat ? SUBROUTINE UYPTMK(CSIDE,ISLCT,UY,N) --- SUBROUTINE UYPTMZ(UY,N,UPX,ROFFY,RTICK,INDEX) --- SUBROUTINE UYPTTL(CSIDE,ISLCT,CTTL,PX) --- SUBROUTINE UYSAXS(CSIDE) --- SUBROUTINE UYSAXZ(CSIDE,ROFFY) --- SUBROUTINE UYSOFF --- ENTRY UYROFF --- SUBROUTINE UYSTTL(CSIDE,CTTL,PX) DclDrawYAxisSmall ---------- uzpack ---------- SUBROUTINE UZFACT(RFACT) DclSetAxisFactor