/* * grph1.f77proto * $Id: grph1.f77proto,v 1.2 2000/11/05 14:39:33 keiko Exp $ */ /***************************************************** * grph1/sgpack/sgopn.f ****************************************************/ /* * SUBROUTINE SGOPN(IWS) */ SUBROUTINE SGOPN( INTEGER IWS ) /* * ENTRY SGFRM */ SUBROUTINE SGFRM( ) /* * ENTRY SGCLS */ SUBROUTINE SGCLS( ) /***************************************************** * grph1/sgpack/sgpget.f ****************************************************/ /* * SUBROUTINE SGPGET(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE SGPGET( CHARACTER*(*) CP INTEGER o IPARA ) /* * ENTRY SGPSET(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE SGPSET( CHARACTER*(*) CP INTEGER IPARA ) /* * ENTRY SGPSTX(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE SGPSTX( CHARACTER*(*) CP INTEGER IPARA ) /***************************************************** * grph1/sgpack/sgpqnp.f ****************************************************/ /* * SUBROUTINE SGPQNP(NCP) */ SUBROUTINE SGPQNP( INTEGER o NCP ) /* * ENTRY SGPQID(CP, IDX) * CHARACTER CP*(*) */ SUBROUTINE SGPQID( CHARACTER*(*) CP INTEGER o IDX ) /* * ENTRY SGPQCP(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE SGPQCP( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SGPQCL(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE SGPQCL( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SGPQIT(IDX, ITP) */ SUBROUTINE SGPQIT( INTEGER IDX INTEGER o ITP ) /* * ENTRY SGPQVL(IDX, IPARA) */ SUBROUTINE SGPQVL( INTEGER IDX INTEGER o IPARA ) /* * ENTRY SGPSVL(IDX, IPARA) */ SUBROUTINE SGPSVL( INTEGER IDX INTEGER IPARA ) /* * ENTRY SGPQIN(CP, IN) * CHARACTER CP*(*) */ SUBROUTINE SGPQIN( CHARACTER*(*) CP INTEGER o IN ) /***************************************************** * grph1/sgpack/sgpwsn.f ****************************************************/ /* * SUBROUTINE SGPWSN */ SUBROUTINE SGPWSN( ) /***************************************************** * grph1/sgpack/sgsvpt.f ****************************************************/ /* * SUBROUTINE SGSVPT(VXMIN, VXMAX, VYMIN, VYMAX) */ SUBROUTINE SGSVPT( REAL VXMIN REAL VXMAX REAL VYMIN REAL VYMAX ) /* * ENTRY SGQVPT(VXMIN, VXMAX, VYMIN, VYMAX) */ SUBROUTINE SGQVPT( REAL o VXMIN REAL o VXMAX REAL o VYMIN REAL o VYMAX ) /***************************************************** * grph1/sgpack/sgswnd.f ****************************************************/ /* * SUBROUTINE SGSWND(UXMIN, UXMAX, UYMIN, UYMAX) */ SUBROUTINE SGSWND( REAL UXMIN REAL UXMAX REAL UYMIN REAL UYMAX ) /* * ENTRY SGQWND(UXMIN, UXMAX, UYMIN, UYMAX) */ SUBROUTINE SGQWND( REAL o UXMIN REAL o UXMAX REAL o UYMIN REAL o UYMAX ) /***************************************************** * grph1/sgpack/sgssim.f ****************************************************/ /* * SUBROUTINE SGSSIM(SIMFAC, VXOFF, VYOFF) */ SUBROUTINE SGSSIM( REAL SIMFAC REAL VXOFF REAL VYOFF ) /* * ENTRY SGQSIM(SIMFAC, VXOFF, VYOFF) */ SUBROUTINE SGQSIM( REAL o SIMFAC REAL o VXOFF REAL o VYOFF ) /***************************************************** * grph1/sgpack/sgsmpl.f ****************************************************/ /* * SUBROUTINE SGSMPL(PLX, PLY, PLROT) */ SUBROUTINE SGSMPL( REAL PLX REAL PLY REAL PLROT ) /* * ENTRY SGQMPL(PLX, PLY, PLROT) */ SUBROUTINE SGQMPL( REAL o PLX REAL o PLY REAL o PLROT ) /***************************************************** * grph1/sgpack/sgstxy.f ****************************************************/ /* * SUBROUTINE SGSTXY(TXMIN, TXMAX, TYMIN, TYMAX) */ SUBROUTINE SGSTXY( REAL TXMIN REAL TXMAX REAL TYMIN REAL TYMAX ) /* * ENTRY SGQTXY(TXMIN, TXMAX, TYMIN, TYMAX) */ SUBROUTINE SGQTXY( REAL o TXMIN REAL o TXMAX REAL o TYMIN REAL o TYMAX ) /***************************************************** * grph1/sgpack/sgstrn.f ****************************************************/ /* * SUBROUTINE SGSTRN(ITR) */ SUBROUTINE SGSTRN( INTEGER ITR ) /* * ENTRY SGQTRN(ITR) */ SUBROUTINE SGQTRN( INTEGER o ITR ) /***************************************************** * grph1/sgpack/sgstrf.f ****************************************************/ /* * SUBROUTINE SGSTRF */ SUBROUTINE SGSTRF( ) /***************************************************** * grph1/sgpack/sgtrqf.f ****************************************************/ /* * SUBROUTINE SGTRQF(NTX,LTR) * LOGICAL LTR */ SUBROUTINE SGTRQF( INTEGER NTX LOGICAL o LTR ) /* * ENTRY SGTRSL(CTS,CTL) * CHARACTER CTS*(*),CTL*(*) */ SUBROUTINE SGTRSL( CHARACTER*(*) CTS CHARACTER*(*) o CTL ) /* * ENTRY SGTRSN(CTS,NTX) * CHARACTER CTS*(*),CTL*(*) */ SUBROUTINE SGTRSN( CHARACTER*(*) CTS INTEGER o NTX ) /* * ENTRY SGTRLS(CTL,CTS) * CHARACTER CTS*(*),CTL*(*) */ SUBROUTINE SGTRLS( CHARACTER*(*) CTL CHARACTER*(*) o CTS ) /* * ENTRY SGTRLN(CTL,NTX) * CHARACTER CTS*(*),CTL*(*) */ SUBROUTINE SGTRLN( CHARACTER*(*) CTL INTEGER o NTX ) /* * ENTRY SGTRNS(NTX,CTS) * CHARACTER CTS*(*),CTL*(*) */ SUBROUTINE SGTRNS( INTEGER NTX CHARACTER*(*) o CTS ) /* * ENTRY SGTRNL(NTX,CTL) * CHARACTER CTS*(*),CTL*(*) */ SUBROUTINE SGTRNL( INTEGER NTX CHARACTER*(*) o CTL ) /***************************************************** * grph1/sgpack/isgtrc.f ****************************************************/ /* * INTEGER FUNCTION ISGTRC(CTR) * CHARACTER CTR*(*) */ INTEGER FUNCTION ISGTRC( CHARACTER*(*) CTR ) /***************************************************** * grph1/sgpack/sgplu.f ****************************************************/ /* * SUBROUTINE SGPLU(N,UPX,UPY) * REAL UPX(*),UPY(*),VPX(*),VPY(*),RPX(*),RPY(*) */ SUBROUTINE SGPLU( INTEGER N REAL (*) UPX REAL (*) UPY ) /* * ENTRY SGPLV(N,VPX,VPY) * REAL UPX(*),UPY(*),VPX(*),VPY(*),RPX(*),RPY(*) */ SUBROUTINE SGPLV( INTEGER N REAL (*) VPX REAL (*) VPY ) /* * ENTRY SGPLR(N,RPX,RPY) * REAL UPX(*),UPY(*),VPX(*),VPY(*),RPX(*),RPY(*) */ SUBROUTINE SGPLR( INTEGER N REAL (*) RPX REAL (*) RPY ) /* * ENTRY SGSPLT(ITYPE) */ SUBROUTINE SGSPLT( INTEGER ITYPE ) /* * ENTRY SGQPLT(ITYPE) */ SUBROUTINE SGQPLT( INTEGER o ITYPE ) /* * ENTRY SGSPLI(INDEX) */ SUBROUTINE SGSPLI( INTEGER INDEX ) /* * ENTRY SGQPLI(INDEX) */ SUBROUTINE SGQPLI( INTEGER o INDEX ) /***************************************************** * grph1/sgpack/sgplzu.f ****************************************************/ /* * SUBROUTINE SGPLZU(N,UPX,UPY,ITYPE,INDEX) * REAL UPX(*),UPY(*) */ SUBROUTINE SGPLZU( INTEGER N REAL (*) UPX REAL (*) UPY INTEGER ITYPE INTEGER INDEX ) /***************************************************** * grph1/sgpack/sgplzv.f ****************************************************/ /* * SUBROUTINE SGPLZV(N,VPX,VPY,ITYPE,INDEX) * REAL VPX(*),VPY(*) */ SUBROUTINE SGPLZV( INTEGER N REAL (*) VPX REAL (*) VPY INTEGER ITYPE INTEGER INDEX ) /***************************************************** * grph1/sgpack/sgplzr.f ****************************************************/ /* * SUBROUTINE SGPLZR(N,RPX,RPY,ITYPE,INDEX) * REAL RPX(*),RPY(*) */ SUBROUTINE SGPLZR( INTEGER N REAL (*) RPX REAL (*) RPY INTEGER ITYPE INTEGER INDEX ) /***************************************************** * grph1/sgpack/sgpmu.f ****************************************************/ /* * SUBROUTINE SGPMU(N,UPX,UPY) * REAL UPX(*),UPY(*),VPX(*),VPY(*),RPX(*),RPY(*) */ SUBROUTINE SGPMU( INTEGER N REAL (*) UPX REAL (*) UPY ) /* * ENTRY SGPMV(N,VPX,VPY) * REAL UPX(*),UPY(*),VPX(*),VPY(*),RPX(*),RPY(*) */ SUBROUTINE SGPMV( INTEGER N REAL (*) VPX REAL (*) VPY ) /* * ENTRY SGPMR(N,RPX,RPY) * REAL UPX(*),UPY(*),VPX(*),VPY(*),RPX(*),RPY(*) */ SUBROUTINE SGPMR( INTEGER N REAL (*) RPX REAL (*) RPY ) /* * ENTRY SGSPMT(ITYPE) */ SUBROUTINE SGSPMT( INTEGER ITYPE ) /* * ENTRY SGQPMT(ITYPE) */ SUBROUTINE SGQPMT( INTEGER o ITYPE ) /* * ENTRY SGSPMI(INDEX) */ SUBROUTINE SGSPMI( INTEGER INDEX ) /* * ENTRY SGQPMI(INDEX) */ SUBROUTINE SGQPMI( INTEGER o INDEX ) /* * ENTRY SGSPMS(RSIZE) */ SUBROUTINE SGSPMS( REAL RSIZE ) /* * ENTRY SGQPMS(RSIZE) */ SUBROUTINE SGQPMS( REAL o RSIZE ) /***************************************************** * grph1/sgpack/sgtxu.f ****************************************************/ /* * SUBROUTINE SGTXU(UX,UY,CHARS) * CHARACTER CHARS*(*) */ SUBROUTINE SGTXU( REAL UX REAL UY CHARACTER*(*) CHARS ) /* * ENTRY SGTXV(VX,VY,CHARS) * CHARACTER CHARS*(*) */ SUBROUTINE SGTXV( REAL VX REAL VY CHARACTER*(*) CHARS ) /* * ENTRY SGTXR(RX,RY,CHARS) * CHARACTER CHARS*(*) */ SUBROUTINE SGTXR( REAL RX REAL RY CHARACTER*(*) CHARS ) /* * ENTRY SGSTXS(RSIZE) */ SUBROUTINE SGSTXS( REAL RSIZE ) /* * ENTRY SGQTXS(RSIZE) */ SUBROUTINE SGQTXS( REAL o RSIZE ) /* * ENTRY SGSTXR(IROTA) */ SUBROUTINE SGSTXR( INTEGER IROTA ) /* * ENTRY SGQTXR(IROTA) */ SUBROUTINE SGQTXR( INTEGER o IROTA ) /* * ENTRY SGSTXC(ICENT) */ SUBROUTINE SGSTXC( INTEGER ICENT ) /* * ENTRY SGQTXC(ICENT) */ SUBROUTINE SGQTXC( INTEGER o ICENT ) /* * ENTRY SGSTXI(INDEX) */ SUBROUTINE SGSTXI( INTEGER INDEX ) /* * ENTRY SGQTXI(INDEX) */ SUBROUTINE SGQTXI( INTEGER o INDEX ) /***************************************************** * grph1/sgpack/sgpmzu.f ****************************************************/ /* * SUBROUTINE SGPMZU(N,UPX,UPY,ITYPE,INDEX,RSIZE) * REAL UPX(*),UPY(*) */ SUBROUTINE SGPMZU( INTEGER N REAL (*) UPX REAL (*) UPY INTEGER ITYPE INTEGER INDEX REAL RSIZE ) /***************************************************** * grph1/sgpack/sgpmzv.f ****************************************************/ /* * SUBROUTINE SGPMZV(N,VPX,VPY,ITYPE,INDEX,RSIZE) * REAL VPX(*),VPY(*) */ SUBROUTINE SGPMZV( INTEGER N REAL (*) VPX REAL (*) VPY INTEGER ITYPE INTEGER INDEX REAL RSIZE ) /***************************************************** * grph1/sgpack/sgpmzr.f ****************************************************/ /* * SUBROUTINE SGPMZR(N,RPX,RPY,ITYPE,INDEX,RSIZE) * REAL RPX(*),RPY(*) */ SUBROUTINE SGPMZR( INTEGER N REAL (*) RPX REAL (*) RPY INTEGER ITYPE INTEGER INDEX REAL RSIZE ) /***************************************************** * grph1/sgpack/sgtxzu.f ****************************************************/ /* * SUBROUTINE SGTXZU(UX,UY,CHARS,RSIZE,IROTA,ICENT,INDEX) * CHARACTER CHARS*(*) */ SUBROUTINE SGTXZU( REAL UX REAL UY CHARACTER*(*) CHARS REAL RSIZE INTEGER IROTA INTEGER ICENT INTEGER INDEX ) /***************************************************** * grph1/sgpack/sgtxzv.f ****************************************************/ /* * SUBROUTINE SGTXZV(VX,VY,CHARS,RSIZE,IROTA,ICENT,INDEX) * CHARACTER CHARS*(*) */ SUBROUTINE SGTXZV( REAL VX REAL VY CHARACTER*(*) CHARS REAL RSIZE INTEGER IROTA INTEGER ICENT INTEGER INDEX ) /***************************************************** * grph1/sgpack/sgtxzr.f ****************************************************/ /* * SUBROUTINE SGTXZR(RX,RY,CHARS,RSIZE,IROTA,ICENT,INDEX) * CHARACTER CHARS*(*) */ SUBROUTINE SGTXZR( REAL RX REAL RY CHARACTER*(*) CHARS REAL RSIZE INTEGER IROTA INTEGER ICENT INTEGER INDEX ) /***************************************************** * grph1/sgpack/sgtnu.f ****************************************************/ /* * SUBROUTINE SGTNU(N,UPX,UPY) * REAL UPX(*),UPY(*),VPX(*),VPY(*),RPX(*),RPY(*) */ SUBROUTINE SGTNU( INTEGER N REAL (*) UPX REAL (*) UPY ) /* * ENTRY SGTNV(N,VPX,VPY) * REAL UPX(*),UPY(*),VPX(*),VPY(*),RPX(*),RPY(*) */ SUBROUTINE SGTNV( INTEGER N REAL (*) VPX REAL (*) VPY ) /* * ENTRY SGTNR(N,RPX,RPY) * REAL UPX(*),UPY(*),VPX(*),VPY(*),RPX(*),RPY(*) */ SUBROUTINE SGTNR( INTEGER N REAL (*) RPX REAL (*) RPY ) /* * ENTRY SGSTNP(ITPAT) */ SUBROUTINE SGSTNP( INTEGER ITPAT ) /* * ENTRY SGQTNP(ITPAT) */ SUBROUTINE SGQTNP( INTEGER o ITPAT ) /***************************************************** * grph1/sgpack/sgtnzu.f ****************************************************/ /* * SUBROUTINE SGTNZU(N,UPX,UPY,ITPAT) * REAL UPX(*),UPY(*) */ SUBROUTINE SGTNZU( INTEGER N REAL (*) UPX REAL (*) UPY INTEGER ITPAT ) /***************************************************** * grph1/sgpack/sgtnzv.f ****************************************************/ /* * SUBROUTINE SGTNZV(N,VPX,VPY,ITPAT) * REAL VPX(*),VPY(*) */ SUBROUTINE SGTNZV( INTEGER N REAL (*) VPX REAL (*) VPY INTEGER ITPAT ) /***************************************************** * grph1/sgpack/sgtnzr.f ****************************************************/ /* * SUBROUTINE SGTNZR(N,RPX,RPY,ITPAT) * REAL RPX(*),RPY(*) */ SUBROUTINE SGTNZR( INTEGER N REAL (*) RPX REAL (*) RPY INTEGER ITPAT ) /***************************************************** * grph1/sgpack/sglnu.f ****************************************************/ /* * SUBROUTINE SGLNU(UX1,UY1,UX2,UY2) */ SUBROUTINE SGLNU( REAL UX1 REAL UY1 REAL UX2 REAL UY2 ) /* * ENTRY SGLNV(VX1,VY1,VX2,VY2) */ SUBROUTINE SGLNV( REAL VX1 REAL VY1 REAL VX2 REAL VY2 ) /* * ENTRY SGLNR(RX1,RY1,RX2,RY2) */ SUBROUTINE SGLNR( REAL RX1 REAL RY1 REAL RX2 REAL RY2 ) /* * ENTRY SGSLNI(INDEX) */ SUBROUTINE SGSLNI( INTEGER INDEX ) /* * ENTRY SGQLNI(INDEX) */ SUBROUTINE SGQLNI( INTEGER o INDEX ) /***************************************************** * grph1/sgpack/sglnzu.f ****************************************************/ /* * SUBROUTINE SGLNZU(UX1,UY1,UX2,UY2,INDEX) */ SUBROUTINE SGLNZU( REAL UX1 REAL UY1 REAL UX2 REAL UY2 INTEGER INDEX ) /***************************************************** * grph1/sgpack/sglnzv.f ****************************************************/ /* * SUBROUTINE SGLNZV(VX1,VY1,VX2,VY2,INDEX) */ SUBROUTINE SGLNZV( REAL VX1 REAL VY1 REAL VX2 REAL VY2 INTEGER INDEX ) /***************************************************** * grph1/sgpack/sglnzr.f ****************************************************/ /* * SUBROUTINE SGLNZR(RX1,RY1,RX2,RY2,INDEX) */ SUBROUTINE SGLNZR( REAL RX1 REAL RY1 REAL RX2 REAL RY2 INTEGER INDEX ) /***************************************************** * grph1/sgpack/sglau.f ****************************************************/ /* * SUBROUTINE SGLAU(UX1,UY1,UX2,UY2) */ SUBROUTINE SGLAU( REAL UX1 REAL UY1 REAL UX2 REAL UY2 ) /* * ENTRY SGLAV(VX1,VY1,VX2,VY2) */ SUBROUTINE SGLAV( REAL VX1 REAL VY1 REAL VX2 REAL VY2 ) /* * ENTRY SGLAR(RX1,RY1,RX2,RY2) */ SUBROUTINE SGLAR( REAL RX1 REAL RY1 REAL RX2 REAL RY2 ) /* * ENTRY SGSLAT(ITYPE) */ SUBROUTINE SGSLAT( INTEGER ITYPE ) /* * ENTRY SGQLAT(ITYPE) */ SUBROUTINE SGQLAT( INTEGER o ITYPE ) /* * ENTRY SGSLAI(INDEX) */ SUBROUTINE SGSLAI( INTEGER INDEX ) /* * ENTRY SGQLAI(INDEX) */ SUBROUTINE SGQLAI( INTEGER o INDEX ) /***************************************************** * grph1/sgpack/sglazu.f ****************************************************/ /* * SUBROUTINE SGLAZU(UX1,UY1,UX2,UY2,ITYPE,INDEX) */ SUBROUTINE SGLAZU( REAL UX1 REAL UY1 REAL UX2 REAL UY2 INTEGER ITYPE INTEGER INDEX ) /***************************************************** * grph1/sgpack/sglazv.f ****************************************************/ /* * SUBROUTINE SGLAZV(VX1,VY1,VX2,VY2,ITYPE,INDEX) */ SUBROUTINE SGLAZV( REAL VX1 REAL VY1 REAL VX2 REAL VY2 INTEGER ITYPE INTEGER INDEX ) /***************************************************** * grph1/sgpack/sglazr.f ****************************************************/ /* * SUBROUTINE SGLAZR(RX1,RY1,RX2,RY2,ITYPE,INDEX) */ SUBROUTINE SGLAZR( REAL RX1 REAL RY1 REAL RX2 REAL RY2 INTEGER ITYPE INTEGER INDEX ) /***************************************************** * grph1/sgpack/sgsplc.f ****************************************************/ /* * SUBROUTINE SGSPLC(CHARX) * CHARACTER CHARX*(*) */ SUBROUTINE SGSPLC( CHARACTER*(*) CHARX ) /* * ENTRY SGQPLC(CHARX) * CHARACTER CHARX*(*) */ SUBROUTINE SGQPLC( CHARACTER*(*) o CHARX ) /* * ENTRY SGSPLS(RSIZE) */ SUBROUTINE SGSPLS( REAL RSIZE ) /* * ENTRY SGQPLS(RSIZE) */ SUBROUTINE SGQPLS( REAL o RSIZE ) /* * ENTRY SGNPLC */ SUBROUTINE SGNPLC( ) /***************************************************** * grph1/sgpack/sgiget.f ****************************************************/ /* * SUBROUTINE SGIGET(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE SGIGET( CHARACTER*(*) CP INTEGER o IPARA ) /* * ENTRY SGISET(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE SGISET( CHARACTER*(*) CP INTEGER IPARA ) /* * ENTRY SGISTX(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE SGISTX( CHARACTER*(*) CP INTEGER IPARA ) /***************************************************** * grph1/sgpack/sgiqnp.f ****************************************************/ /* * SUBROUTINE SGIQNP(NCP) */ SUBROUTINE SGIQNP( INTEGER o NCP ) /* * ENTRY SGIQID(CP, IDX) * CHARACTER CP*(*) */ SUBROUTINE SGIQID( CHARACTER*(*) CP INTEGER o IDX ) /* * ENTRY SGIQCP(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE SGIQCP( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SGIQCL(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE SGIQCL( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SGIQVL(IDX, IPARA) */ SUBROUTINE SGIQVL( INTEGER IDX INTEGER o IPARA ) /* * ENTRY SGISVL(IDX, IPARA) */ SUBROUTINE SGISVL( INTEGER IDX INTEGER IPARA ) /* * ENTRY SGIQIN(CP, IN) * CHARACTER CP*(*) */ SUBROUTINE SGIQIN( CHARACTER*(*) CP INTEGER o IN ) /***************************************************** * grph1/sgpack/sglget.f ****************************************************/ /* * SUBROUTINE SGLGET(CP, LPARA) * CHARACTER CP*(*) * LOGICAL LPARA */ SUBROUTINE SGLGET( CHARACTER*(*) CP LOGICAL o LPARA ) /* * ENTRY SGLSET(CP, LPARA) * CHARACTER CP*(*) * LOGICAL LPARA */ SUBROUTINE SGLSET( CHARACTER*(*) CP LOGICAL LPARA ) /* * ENTRY SGLSTX(CP, LPARA) * CHARACTER CP*(*) * LOGICAL LPARA */ SUBROUTINE SGLSTX( CHARACTER*(*) CP LOGICAL LPARA ) /***************************************************** * grph1/sgpack/sglqnp.f ****************************************************/ /* * SUBROUTINE SGLQNP(NCP) */ SUBROUTINE SGLQNP( INTEGER o NCP ) /* * ENTRY SGLQID(CP, IDX) * CHARACTER CP*(*) */ SUBROUTINE SGLQID( CHARACTER*(*) CP INTEGER o IDX ) /* * ENTRY SGLQCP(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE SGLQCP( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SGLQCL(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE SGLQCL( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SGLQVL(IDX, LPARA) * LOGICAL LPARA */ SUBROUTINE SGLQVL( INTEGER IDX LOGICAL o LPARA ) /* * ENTRY SGLSVL(IDX, LPARA) * LOGICAL LPARA */ SUBROUTINE SGLSVL( INTEGER IDX LOGICAL LPARA ) /* * ENTRY SGLQIN(CP, IN) * CHARACTER CP*(*) */ SUBROUTINE SGLQIN( CHARACTER*(*) CP INTEGER o IN ) /***************************************************** * grph1/sgpack/sgoopn.f ****************************************************/ /* * SUBROUTINE SGOOPN(CPRC, COM) * CHARACTER CPRC*(*), COM*(*) */ SUBROUTINE SGOOPN( CHARACTER*(*) CPRC CHARACTER*(*) COM ) /* * ENTRY SGOCLS(CPRC) * CHARACTER CPRC*(*), COM*(*) */ SUBROUTINE SGOCLS( CHARACTER*(*) CPRC ) /***************************************************** * grph1/sgpack/sgrget.f ****************************************************/ /* * SUBROUTINE SGRGET(CP, RPARA) * CHARACTER CP*(*) */ SUBROUTINE SGRGET( CHARACTER*(*) CP REAL o RPARA ) /* * ENTRY SGRSET(CP, RPARA) * CHARACTER CP*(*) */ SUBROUTINE SGRSET( CHARACTER*(*) CP REAL RPARA ) /* * ENTRY SGRSTX(CP, RPARA) * CHARACTER CP*(*) */ SUBROUTINE SGRSTX( CHARACTER*(*) CP REAL RPARA ) /***************************************************** * grph1/sgpack/sgrqnp.f ****************************************************/ /* * SUBROUTINE SGRQNP(NCP) */ SUBROUTINE SGRQNP( INTEGER o NCP ) /* * ENTRY SGRQID(CP, IDX) * CHARACTER CP*(*) */ SUBROUTINE SGRQID( CHARACTER*(*) CP INTEGER o IDX ) /* * ENTRY SGRQCP(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE SGRQCP( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SGRQCL(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE SGRQCL( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SGRQVL(IDX, RPARA) */ SUBROUTINE SGRQVL( INTEGER IDX REAL o RPARA ) /* * ENTRY SGRSVL(IDX, RPARA) */ SUBROUTINE SGRSVL( INTEGER IDX REAL RPARA ) /* * ENTRY SGRQIN(CP, IN) * CHARACTER CP*(*) */ SUBROUTINE SGRQIN( CHARACTER*(*) CP INTEGER o IN ) /***************************************************** * grph1/szpack/szplop.f ****************************************************/ /* * SUBROUTINE SZPLOP(ITYPE,INDEX) */ SUBROUTINE SZPLOP( INTEGER ITYPE INTEGER INDEX ) /* * ENTRY SZPLCL */ SUBROUTINE SZPLCL( ) /***************************************************** * grph1/szpack/szplzu.f ****************************************************/ /* * SUBROUTINE SZPLZU(N,UPX,UPY) * REAL UPX(*),UPY(*) */ SUBROUTINE SZPLZU( INTEGER N REAL (*) UPX REAL (*) UPY ) /***************************************************** * grph1/szpack/szplzv.f ****************************************************/ /* * SUBROUTINE SZPLZV(N,VPX,VPY) * REAL VPX(*),VPY(*) */ SUBROUTINE SZPLZV( INTEGER N REAL (*) VPX REAL (*) VPY ) /***************************************************** * grph1/szpack/szplzr.f ****************************************************/ /* * SUBROUTINE SZPLZR(N,RPX,RPY) * REAL RPX(*),RPY(*) */ SUBROUTINE SZPLZR( INTEGER N REAL (*) RPX REAL (*) RPY ) /***************************************************** * grph1/szpack/szpmop.f ****************************************************/ /* * SUBROUTINE SZPMOP(ITYPE,INDEX,RSIZE) */ SUBROUTINE SZPMOP( INTEGER ITYPE INTEGER INDEX REAL RSIZE ) /* * ENTRY SZPMCL */ SUBROUTINE SZPMCL( ) /***************************************************** * grph1/szpack/szpmzu.f ****************************************************/ /* * SUBROUTINE SZPMZU(N,UPX,UPY) * REAL UPX(*),UPY(*) */ SUBROUTINE SZPMZU( INTEGER N REAL (*) UPX REAL (*) UPY ) /***************************************************** * grph1/szpack/szpmzv.f ****************************************************/ /* * SUBROUTINE SZPMZV(N,VPX,VPY) * REAL VPX(*),VPY(*) */ SUBROUTINE SZPMZV( INTEGER N REAL (*) VPX REAL (*) VPY ) /***************************************************** * grph1/szpack/szpmzr.f ****************************************************/ /* * SUBROUTINE SZPMZR(N,RPX,RPY) * REAL RPX(*),RPY(*) */ SUBROUTINE SZPMZR( INTEGER N REAL (*) RPX REAL (*) RPY ) /***************************************************** * grph1/szpack/sztxop.f ****************************************************/ /* * SUBROUTINE SZTXOP(RSIZE,IROTA,ICENT,INDEX) */ SUBROUTINE SZTXOP( REAL RSIZE INTEGER IROTA INTEGER ICENT INTEGER INDEX ) /* * ENTRY SZTXCL */ SUBROUTINE SZTXCL( ) /***************************************************** * grph1/szpack/sztxzu.f ****************************************************/ /* * SUBROUTINE SZTXZU(UX,UY,CHARS) * CHARACTER CHARS*(*) */ SUBROUTINE SZTXZU( REAL UX REAL UY CHARACTER*(*) CHARS ) /***************************************************** * grph1/szpack/sztxzv.f ****************************************************/ /* * SUBROUTINE SZTXZV(VX,VY,CHARS) * CHARACTER CHARS*(*) */ SUBROUTINE SZTXZV( REAL VX REAL VY CHARACTER*(*) CHARS ) /***************************************************** * grph1/szpack/sztxzr.f ****************************************************/ /* * SUBROUTINE SZTXZR(RX,RY,CHARS) * CHARACTER CHARS*(*) */ SUBROUTINE SZTXZR( REAL RX REAL RY CHARACTER*(*) CHARS ) /***************************************************** * grph1/szpack/sztnop.f ****************************************************/ /* * SUBROUTINE SZTNOP(ITPAT) */ SUBROUTINE SZTNOP( INTEGER ITPAT ) /* * ENTRY SZTNCL */ SUBROUTINE SZTNCL( ) /***************************************************** * grph1/szpack/sztnzu.f ****************************************************/ /* * SUBROUTINE SZTNZU(N,UPX,UPY) * REAL UPX(*),UPY(*) */ SUBROUTINE SZTNZU( INTEGER N REAL (*) UPX REAL (*) UPY ) /***************************************************** * grph1/szpack/sztnzv.f ****************************************************/ /* * SUBROUTINE SZTNZV(N,VPX,VPY) * REAL VPX(*),VPY(*) */ SUBROUTINE SZTNZV( INTEGER N REAL (*) VPX REAL (*) VPY ) /***************************************************** * grph1/szpack/sztnzr.f ****************************************************/ /* * SUBROUTINE SZTNZR(N,RPX,RPY) * REAL RPX(*),RPY(*) */ SUBROUTINE SZTNZR( INTEGER N REAL (*) RPX REAL (*) RPY ) /***************************************************** * grph1/szpack/szlnop.f ****************************************************/ /* * SUBROUTINE SZLNOP(INDEX) */ SUBROUTINE SZLNOP( INTEGER INDEX ) /* * ENTRY SZLNCL */ SUBROUTINE SZLNCL( ) /***************************************************** * grph1/szpack/szlnzu.f ****************************************************/ /* * SUBROUTINE SZLNZU(UX1,UY1,UX2,UY2) */ SUBROUTINE SZLNZU( REAL UX1 REAL UY1 REAL UX2 REAL UY2 ) /***************************************************** * grph1/szpack/szlnzv.f ****************************************************/ /* * SUBROUTINE SZLNZV(VX1,VY1,VX2,VY2) */ SUBROUTINE SZLNZV( REAL VX1 REAL VY1 REAL VX2 REAL VY2 ) /***************************************************** * grph1/szpack/szlnzr.f ****************************************************/ /* * SUBROUTINE SZLNZR(RX1,RY1,RX2,RY2) */ SUBROUTINE SZLNZR( REAL RX1 REAL RY1 REAL RX2 REAL RY2 ) /***************************************************** * grph1/szpack/szlaop.f ****************************************************/ /* * SUBROUTINE SZLAOP(ITYPE,INDEX) */ SUBROUTINE SZLAOP( INTEGER ITYPE INTEGER INDEX ) /* * ENTRY SZLACL */ SUBROUTINE SZLACL( ) /***************************************************** * grph1/szpack/szlazu.f ****************************************************/ /* * SUBROUTINE SZLAZU(UX1,UY1,UX2,UY2) */ SUBROUTINE SZLAZU( REAL UX1 REAL UY1 REAL UX2 REAL UY2 ) /***************************************************** * grph1/szpack/szlazv.f ****************************************************/ /* * SUBROUTINE SZLAZV(VX1,VY1,VX2,VY2) */ SUBROUTINE SZLAZV( REAL VX1 REAL VY1 REAL VX2 REAL VY2 ) /***************************************************** * grph1/szpack/szlazr.f ****************************************************/ /* * SUBROUTINE SZLAZR(RX1,RY1,RX2,RY2) */ SUBROUTINE SZLAZR( REAL RX1 REAL RY1 REAL RX2 REAL RY2 ) /***************************************************** * grph1/szpack/szl3op.f ****************************************************/ /* * SUBROUTINE SZL3OP(INDEX) */ SUBROUTINE SZL3OP( INTEGER INDEX ) /* * ENTRY SZL3CL */ SUBROUTINE SZL3CL( ) /***************************************************** * grph1/szpack/szl3zu.f ****************************************************/ /* * SUBROUTINE SZL3ZU(N,U3X,U3Y,U3Z) * REAL U3X(N),U3Y(N),U3Z(N) */ SUBROUTINE SZL3ZU( INTEGER N REAL (N) U3X REAL (N) U3Y REAL (N) U3Z ) /***************************************************** * grph1/szpack/szl3zv.f ****************************************************/ /* * SUBROUTINE SZL3ZV(N,V3X,V3Y,V3Z) * REAL V3X(N),V3Y(N),V3Z(N) */ SUBROUTINE SZL3ZV( INTEGER N REAL (N) V3X REAL (N) V3Y REAL (N) V3Z ) /***************************************************** * grph1/szpack/szm3op.f ****************************************************/ /* * SUBROUTINE SZM3OP(ITYPE,INDEX,RSIZE) */ SUBROUTINE SZM3OP( INTEGER ITYPE INTEGER INDEX REAL RSIZE ) /* * ENTRY SZM3CL */ SUBROUTINE SZM3CL( ) /***************************************************** * grph1/szpack/szm3zu.f ****************************************************/ /* * SUBROUTINE SZM3ZU(N,UPX,UPY,UPZ) * REAL UPX(*),UPY(*),UPZ(*) */ SUBROUTINE SZM3ZU( INTEGER N REAL (*) UPX REAL (*) UPY REAL (*) UPZ ) /***************************************************** * grph1/szpack/szm3zv.f ****************************************************/ /* * SUBROUTINE SZM3ZV(N,VPX,VPY,VPZ) * REAL VPX(*),VPY(*),VPZ(*) */ SUBROUTINE SZM3ZV( INTEGER N REAL (*) VPX REAL (*) VPY REAL (*) VPZ ) /***************************************************** * grph1/szpack/szt3op.f ****************************************************/ /* * SUBROUTINE SZT3OP(ITPAT1,ITPAT2) */ SUBROUTINE SZT3OP( INTEGER ITPAT1 INTEGER ITPAT2 ) /* * ENTRY SZT3CL */ SUBROUTINE SZT3CL( ) /***************************************************** * grph1/szpack/szt3zu.f ****************************************************/ /* * SUBROUTINE SZT3ZU(UPX,UPY,UPZ) * REAL UPX(3), UPY(3), UPZ(3), RX(3), RY(3) */ SUBROUTINE SZT3ZU( REAL (3) UPX REAL (3) UPY REAL (3) UPZ ) /***************************************************** * grph1/szpack/szt3zv.f ****************************************************/ /* * SUBROUTINE SZT3ZV(VPX,VPY,VPZ) * REAL VPX(3), VPY(3), VPZ(3), RX(3), RY(3) */ SUBROUTINE SZT3ZV( REAL (3) VPX REAL (3) VPY REAL (3) VPZ ) /***************************************************** * grph1/szpack/szslti.f ****************************************************/ /* * SUBROUTINE SZSLTI(ITYPE,INDEX) */ SUBROUTINE SZSLTI( INTEGER ITYPE INTEGER INDEX ) /***************************************************** * grph1/szpack/szstyp.f ****************************************************/ /* * SUBROUTINE SZSTYP(ITYPE) */ SUBROUTINE SZSTYP( INTEGER ITYPE ) /* * ENTRY SZQTYP(ITYPE) */ SUBROUTINE SZQTYP( INTEGER o ITYPE ) /***************************************************** * grph1/szpack/szsidx.f ****************************************************/ /* * SUBROUTINE SZSIDX(INDEX) */ SUBROUTINE SZSIDX( INTEGER INDEX ) /* * ENTRY SZQIDX(INDEX) */ SUBROUTINE SZQIDX( INTEGER o INDEX ) /***************************************************** * grph1/szpack/szoplu.f ****************************************************/ /* * SUBROUTINE SZOPLU */ SUBROUTINE SZOPLU( ) /* * ENTRY SZMVLU(UX, UY) */ SUBROUTINE SZMVLU( REAL UX REAL UY ) /* * ENTRY SZPLLU(UX, UY) */ SUBROUTINE SZPLLU( REAL UX REAL UY ) /* * ENTRY SZCLLU */ SUBROUTINE SZCLLU( ) /***************************************************** * grph1/szpack/szoplt.f ****************************************************/ /* * SUBROUTINE SZOPLT */ SUBROUTINE SZOPLT( ) /* * ENTRY SZMVLT(TX, TY) */ SUBROUTINE SZMVLT( REAL TX REAL TY ) /* * ENTRY SZPLLT(TX, TY) */ SUBROUTINE SZPLLT( REAL TX REAL TY ) /* * ENTRY SZCLLT */ SUBROUTINE SZCLLT( ) /***************************************************** * grph1/szpack/szoplv.f ****************************************************/ /* * SUBROUTINE SZOPLV */ SUBROUTINE SZOPLV( ) /* * ENTRY SZMVLV(VX, VY) */ SUBROUTINE SZMVLV( REAL VX REAL VY ) /* * ENTRY SZPLLV(VX, VY) */ SUBROUTINE SZPLLV( REAL VX REAL VY ) /* * ENTRY SZCLLV */ SUBROUTINE SZCLLV( ) /***************************************************** * grph1/szpack/szopsv.f ****************************************************/ /* * SUBROUTINE SZOPSV */ SUBROUTINE SZOPSV( ) /* * ENTRY SZMVSV(VX,VY) */ SUBROUTINE SZMVSV( REAL VX REAL VY ) /* * ENTRY SZPLSV(VX,VY) */ SUBROUTINE SZPLSV( REAL VX REAL VY ) /* * ENTRY SZCLSV */ SUBROUTINE SZCLSV( ) /***************************************************** * grph1/szpack/szoplc.f ****************************************************/ /* * SUBROUTINE SZOPLC */ SUBROUTINE SZOPLC( ) /* * ENTRY SZMVLC(VX,VY) */ SUBROUTINE SZMVLC( REAL VX REAL VY ) /* * ENTRY SZPLLC(VX,VY) */ SUBROUTINE SZPLLC( REAL VX REAL VY ) /* * ENTRY SZCLLC */ SUBROUTINE SZCLLC( ) /* * ENTRY SZSCHZ(CH,H) * CHARACTER CH*(*) */ SUBROUTINE SZSCHZ( CHARACTER*(*) CH REAL H ) /* * ENTRY SZQCHZ(CH,H) * CHARACTER CH*(*) */ SUBROUTINE SZQCHZ( CHARACTER*(*) o CH REAL o H ) /* * ENTRY SZCRST */ SUBROUTINE SZCRST( ) /***************************************************** * grph1/szpack/szopld.f ****************************************************/ /* * SUBROUTINE SZOPLD */ SUBROUTINE SZOPLD( ) /* * ENTRY SZMVLD(VX,VY) */ SUBROUTINE SZMVLD( REAL VX REAL VY ) /* * ENTRY SZPLLD(VX,VY) */ SUBROUTINE SZPLLD( REAL VX REAL VY ) /* * ENTRY SZCLLD */ SUBROUTINE SZCLLD( ) /* * ENTRY SZSTYZ(IPAT) */ SUBROUTINE SZSTYZ( INTEGER IPAT ) /* * ENTRY SZQTYZ(IPAT) */ SUBROUTINE SZQTYZ( INTEGER o IPAT ) /***************************************************** * grph1/szpack/szoplp.f ****************************************************/ /* * SUBROUTINE SZOPLP */ SUBROUTINE SZOPLP( ) /* * ENTRY SZMVLP(VX, VY) */ SUBROUTINE SZMVLP( REAL VX REAL VY ) /* * ENTRY SZPLLP(VX, VY) */ SUBROUTINE SZPLLP( REAL VX REAL VY ) /* * ENTRY SZCLLP */ SUBROUTINE SZCLLP( ) /***************************************************** * grph1/szpack/szoplr.f ****************************************************/ /* * SUBROUTINE SZOPLR */ SUBROUTINE SZOPLR( ) /* * ENTRY SZMVLR(RX, RY) */ SUBROUTINE SZMVLR( REAL RX REAL RY ) /* * ENTRY SZPLLR(RX, RY) */ SUBROUTINE SZPLLR( REAL RX REAL RY ) /* * ENTRY SZCLLR */ SUBROUTINE SZCLLR( ) /***************************************************** * grph1/szpack/szoplz.f ****************************************************/ /* * SUBROUTINE SZOPLZ */ SUBROUTINE SZOPLZ( ) /* * ENTRY SZMVLZ(RX, RY) */ SUBROUTINE SZMVLZ( REAL RX REAL RY ) /* * ENTRY SZPLLZ(RX, RY) */ SUBROUTINE SZPLLZ( REAL RX REAL RY ) /* * ENTRY SZCLLZ */ SUBROUTINE SZCLLZ( ) /***************************************************** * grph1/szpack/szopl3.f ****************************************************/ /* * SUBROUTINE SZOPL3 */ SUBROUTINE SZOPL3( ) /* * ENTRY SZMVL3(SX, SY, SZ) */ SUBROUTINE SZMVL3( REAL SX REAL SY REAL SZ ) /* * ENTRY SZPLL3(SX, SY, SZ) */ SUBROUTINE SZPLL3( REAL SX REAL SY REAL SZ ) /* * ENTRY SZCLL3 */ SUBROUTINE SZCLL3( ) /***************************************************** * grph1/szpack/szstni.f ****************************************************/ /* * SUBROUTINE SZSTNI(ITPAT) */ SUBROUTINE SZSTNI( INTEGER ITPAT ) /* * ENTRY SZQTNI(ITPAT) */ SUBROUTINE SZQTNI( INTEGER o ITPAT ) /***************************************************** * grph1/szpack/szoptu.f ****************************************************/ /* * SUBROUTINE SZOPTU */ SUBROUTINE SZOPTU( ) /* * ENTRY SZSTTU(UX,UY) */ SUBROUTINE SZSTTU( REAL UX REAL UY ) /* * ENTRY SZCLTU */ SUBROUTINE SZCLTU( ) /***************************************************** * grph1/szpack/szoptt.f ****************************************************/ /* * SUBROUTINE SZOPTT */ SUBROUTINE SZOPTT( ) /* * ENTRY SZSTTT(TX, TY) */ SUBROUTINE SZSTTT( REAL TX REAL TY ) /* * ENTRY SZCLTT */ SUBROUTINE SZCLTT( ) /***************************************************** * grph1/szpack/szoptv.f ****************************************************/ /* * SUBROUTINE SZOPTV */ SUBROUTINE SZOPTV( ) /* * ENTRY SZSTTV(VX, VY) */ SUBROUTINE SZSTTV( REAL VX REAL VY ) /* * ENTRY SZCLTV */ SUBROUTINE SZCLTV( ) /***************************************************** * grph1/szpack/szoptp.f ****************************************************/ /* * SUBROUTINE SZOPTP */ SUBROUTINE SZOPTP( ) /* * ENTRY SZSTTP(VX,VY) */ SUBROUTINE SZSTTP( REAL VX REAL VY ) /* * ENTRY SZCLTP */ SUBROUTINE SZCLTP( ) /* * ENTRY SZSTMD(LHARD) * LOGICAL LHARD */ SUBROUTINE SZSTMD( LOGICAL LHARD ) /* * ENTRY SZQTMD(LHARD) * LOGICAL LHARD */ SUBROUTINE SZQTMD( LOGICAL o LHARD ) /***************************************************** * grph1/szpack/szoptr.f ****************************************************/ /* * SUBROUTINE SZOPTR */ SUBROUTINE SZOPTR( ) /* * ENTRY SZSTTR(RX, RY) */ SUBROUTINE SZSTTR( REAL RX REAL RY ) /* * ENTRY SZCLTR */ SUBROUTINE SZCLTR( ) /***************************************************** * grph1/szpack/szoptz.f ****************************************************/ /* * SUBROUTINE SZOPTZ */ SUBROUTINE SZOPTZ( ) /* * ENTRY SZSTTZ(RX, RY) */ SUBROUTINE SZSTTZ( REAL RX REAL RY ) /* * ENTRY SZCLTZ */ SUBROUTINE SZCLTZ( ) /* * ENTRY SZTITZ(ITPAT) */ SUBROUTINE SZTITZ( INTEGER ITPAT ) /***************************************************** * grph1/szpack/szopts.f ****************************************************/ /* * SUBROUTINE SZOPTS */ SUBROUTINE SZOPTS( ) /* * ENTRY SZSTTS(VX,VY) */ SUBROUTINE SZSTTS( REAL VX REAL VY ) /* * ENTRY SZCLTS */ SUBROUTINE SZCLTS( ) /* * ENTRY SZTITS(ITPAT) */ SUBROUTINE SZTITS( INTEGER ITPAT ) /***************************************************** * grph1/szpack/sztnsv.f ****************************************************/ /* * SUBROUTINE SZTNSV(N,VPX,VPY,IROTA,RSPCE,ITYPE,INDEX) * REAL VPX(*),VPY(*) */ SUBROUTINE SZTNSV( INTEGER N REAL (*) VPX REAL (*) VPY INTEGER IROTA REAL RSPCE INTEGER ITYPE INTEGER INDEX ) /***************************************************** * grph1/szpack/sztxwv.f ****************************************************/ /* * SUBROUTINE SZTXWV(VX,VY,CHARS) * CHARACTER CHARS*(*) */ SUBROUTINE SZTXWV( REAL VX REAL VY CHARACTER*(*) CHARS ) /***************************************************** * grph1/szpack/szqtxw.f ****************************************************/ /* * SUBROUTINE SZQTXW(CHARS,NC,WXCH,WYCH) * CHARACTER CHARS*(*) */ SUBROUTINE SZQTXW( CHARACTER*(*) CHARS INTEGER o NC REAL o WXCH REAL o WYCH ) /***************************************************** * grph1/szpack/szfont.f ****************************************************/ /* * SUBROUTINE SZFONT(IFONT,IPOSX,NCHAR,CKX,CKY,LEN) * INTEGER IPOSX(NCHAR) * CHARACTER CKX(LEN)*1,CKY(LEN)*1 */ SUBROUTINE SZFONT( INTEGER IFONT INTEGER (NCHAR) o IPOSX INTEGER NCHAR CHARACTER*1 (LEN) o CKX CHARACTER*1 (LEN) o CKY INTEGER LEN ) /***************************************************** * grph1/szpack/szcltn.f ****************************************************/ /* * SUBROUTINE SZCLTN(ICPAT,MAXCLI) * INTEGER ICPAT(*) */ SUBROUTINE SZCLTN( INTEGER (*) o ICPAT INTEGER MAXCLI ) /***************************************************** * grph1/szpack/szpipl.f ****************************************************/ /* * SUBROUTINE SZPIPL(X0,Y0, X1, Y1, MODE) */ SUBROUTINE SZPIPL( REAL X0 REAL Y0 REAL X1 REAL Y1 INTEGER MODE ) /* * ENTRY SZGIPL(X, Y, LCONT) * LOGICAL LINT, LCONT, LREQA */ SUBROUTINE SZGIPL( REAL o X REAL o Y LOGICAL o LCONT ) /***************************************************** * grph1/szpack/szpipt.f ****************************************************/ /* * SUBROUTINE SZPIPT(TX0, TY0, TX1, TY1, MODE) */ SUBROUTINE SZPIPT( REAL TX0 REAL TY0 REAL TX1 REAL TY1 INTEGER MODE ) /* * ENTRY SZGIPT(TX, TY, LCONT) * LOGICAL LINTT, LREQA, LXMOD, LSTD, LCONT, LMAP */ SUBROUTINE SZGIPT( REAL o TX REAL o TY LOGICAL o LCONT ) /***************************************************** * grph1/szpack/szpipz.f ****************************************************/ /* * SUBROUTINE SZPIPZ(UXP0,UYP0,UXP1,UYP1,NN) */ SUBROUTINE SZPIPZ( REAL UXP0 REAL UYP0 REAL UXP1 REAL UYP1 INTEGER NN ) /* * ENTRY SZGIPZ(UXG0,UYG0,UXG1,UYG1,N0) */ SUBROUTINE SZGIPZ( REAL o UXG0 REAL o UYG0 REAL o UXG1 REAL o UYG1 INTEGER N0 ) /***************************************************** * grph1/szpack/szpclx.f ****************************************************/ /* * SUBROUTINE SZPCLX(TX0, TY0, TX1, TY1, LVALID, LBOUND) * LOGICAL LCONT, LMOVE, LPOLE, LBRDR, LINNR, LVALID, */ SUBROUTINE SZPCLX( REAL TX0 REAL TY0 REAL TX1 REAL TY1 LOGICAL o LVALID INTEGER LBOUND ) /* * ENTRY SZGCLX(TX, TY, LCONT, LMOVE) * LOGICAL LCONT, LMOVE, LPOLE, LBRDR, LINNR, LVALID, */ SUBROUTINE SZGCLX( REAL o TX REAL o TY LOGICAL o LCONT LOGICAL o LMOVE ) /* * ENTRY SZSCLX(XBND1, XBND2) */ SUBROUTINE SZSCLX( REAL XBND1 REAL XBND2 ) /* * ENTRY SZQCLX(XBND1, XBND2) */ SUBROUTINE SZQCLX( REAL o XBND1 REAL o XBND2 ) /***************************************************** * grph1/szpack/szpcly.f ****************************************************/ /* * SUBROUTINE SZPCLY(TX0, TY0, TX1, TY1, LVALID, LBOUND) * LOGICAL LVALID, LBOUND, LCONT, LIN0, LIN1, LRLTA, LRLEA */ SUBROUTINE SZPCLY( REAL TX0 REAL TY0 REAL TX1 REAL TY1 LOGICAL o LVALID LOGICAL LBOUND ) /* * ENTRY SZGCLY(TX, TY, LCONT) * LOGICAL LVALID, LBOUND, LCONT, LIN0, LIN1, LRLTA, LRLEA */ SUBROUTINE SZGCLY( REAL o TX REAL o TY LOGICAL o LCONT ) /* * ENTRY SZSCLY(YBND1, YBND2) */ SUBROUTINE SZSCLY( REAL YBND1 REAL YBND2 ) /* * ENTRY SZQCLY(YBND1, YBND2) */ SUBROUTINE SZQCLY( REAL o YBND1 REAL o YBND2 ) /***************************************************** * grph1/szpack/szpcll.f ****************************************************/ /* * SUBROUTINE SZPCLL(VX0,VY0,VX1,VY1,LVALID,II) * LOGICAL LVALID,LCONT,LMOVE */ SUBROUTINE SZPCLL( REAL VX0 REAL VY0 REAL VX1 REAL VY1 LOGICAL o LVALID INTEGER II ) /* * ENTRY SZGCLL(XX, YY, LCONT, LMOVE, II) * LOGICAL LVALID,LCONT,LMOVE */ SUBROUTINE SZGCLL( REAL o XX REAL o YY LOGICAL o LCONT LOGICAL o LMOVE INTEGER II ) /* * ENTRY SZSCLL(VXMIN,VXMAX,VYMIN,VYMAX,II) */ SUBROUTINE SZSCLL( REAL VXMIN REAL VXMAX REAL VYMIN REAL VYMAX INTEGER II ) /* * ENTRY SZQCLL(VXMIN,VXMAX,VYMIN,VYMAX,II) */ SUBROUTINE SZQCLL( REAL o VXMIN REAL o VXMAX REAL o VYMIN REAL o VYMAX INTEGER II ) /***************************************************** * grph1/szpack/szsgcl.f ****************************************************/ /* * SUBROUTINE SZSGCL(TX0, TY0, TX1, TY1) */ SUBROUTINE SZSGCL( REAL TX0 REAL TY0 REAL TX1 REAL TY1 ) /* * ENTRY SZQGCY(TX, TY) */ SUBROUTINE SZQGCY( REAL o TX REAL o TY ) /* * ENTRY SZQGCX(TY, TX) */ SUBROUTINE SZQGCX( REAL o TY REAL o TX ) /***************************************************** * grph1/szpack/szxmod.f ****************************************************/ /* * REAL FUNCTION SZXMOD(X) */ REAL FUNCTION SZXMOD( REAL X ) /***************************************************** * grph1/szpack/szfint.f ****************************************************/ /* * SUBROUTINE SZFINT(NCNT) */ SUBROUTINE SZFINT( INTEGER o NCNT ) /* * ENTRY SZQFNT(JPOSX,CLX,CLY) * INTEGER JPOSX(*) * CHARACTER CLX(*)*1,CLY(*)*1 */ SUBROUTINE SZQFNT( INTEGER (*) o JPOSX CHARACTER*1 (*) o CLX CHARACTER*1 (*) o CLY ) /* * ENTRY SZQFNW(WX1,WX2) * REAL WX1(*),WX2(*) */ SUBROUTINE SZQFNW( REAL (*) o WX1 REAL (*) o WX2 ) /***************************************************** * 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 ) /***************************************************** * grph1/csgi/csgi.f.other ****************************************************/ /* * CHARACTER*1 FUNCTION CSGI(IC) */ CHARACTER*1 FUNCTION CSGI( INTEGER IC ) /***************************************************** * grph1/csgi/isgc.f.other ****************************************************/ /* * INTEGER FUNCTION ISGC(CH) * CHARACTER CH*1 */ INTEGER FUNCTION ISGC( CHARACTER*1 CH ) /***************************************************** * grph1/swpack/swpack.f ****************************************************/ /* * SUBROUTINE SWDOPN */ SUBROUTINE SWDOPN( ) /* * ENTRY SWDCLS */ SUBROUTINE SWDCLS( ) /* * ENTRY SWPOPN */ SUBROUTINE SWPOPN( ) /* * ENTRY SWPCLS */ SUBROUTINE SWPCLS( ) /* * ENTRY SWOOPN(COBJ, COMM) * CHARACTER COBJ*(*), COMM*(*) */ SUBROUTINE SWOOPN( CHARACTER*(*) COBJ CHARACTER*(*) COMM ) /* * ENTRY SWOCLS(COBJ) * CHARACTER COBJ*(*), COMM*(*) */ SUBROUTINE SWOCLS( CHARACTER*(*) COBJ ) /* * ENTRY SWSWDI(IWDIDX) */ SUBROUTINE SWSWDI( INTEGER IWDIDX ) /* * ENTRY SWSCLI(ICLIDX) */ SUBROUTINE SWSCLI( INTEGER ICLIDX ) /* * ENTRY SWGOPN */ SUBROUTINE SWGOPN( ) /* * ENTRY SWGMOV(WX,WY) */ SUBROUTINE SWGMOV( REAL WX REAL WY ) /* * ENTRY SWGPLT(WX,WY) */ SUBROUTINE SWGPLT( REAL WX REAL WY ) /* * ENTRY SWGCLS */ SUBROUTINE SWGCLS( ) /* * ENTRY SWGTON(NP,WPX,WPY,ITPAT) * REAL WPX(*), WPY(*) */ SUBROUTINE SWGTON( INTEGER NP REAL (*) WPX REAL (*) WPY INTEGER ITPAT ) /* * ENTRY SWIOPN(IWX,IWY,IMW,IMH) */ SUBROUTINE SWIOPN( INTEGER IWX INTEGER IWY INTEGER IMW INTEGER IMH ) /* * ENTRY SWIDAT(IMAGE, NLEN) * INTEGER IMAGE(*) */ SUBROUTINE SWIDAT( INTEGER (*) IMAGE INTEGER NLEN ) /* * ENTRY SWICLS */ SUBROUTINE SWICLS( ) /* * ENTRY SWQPNT(WX,WY,MB) */ SUBROUTINE SWQPNT( REAL o WX REAL o WY INTEGER o MB ) /* * ENTRY SWFINT(WX, WY, IWX, IWY) */ SUBROUTINE SWFINT( REAL WX REAL WY INTEGER o IWX INTEGER o IWY ) /* * ENTRY SWIINT(IWX, IWY, WX, WY) */ SUBROUTINE SWIINT( INTEGER IWX INTEGER IWY REAL o WX REAL o WY ) /* * ENTRY SWQWDC(LWDATR) * LOGICAL LWDATR, LCLATR, LTNATR, LIMATR, LPTATR */ SUBROUTINE SWQWDC( LOGICAL o LWDATR ) /* * ENTRY SWQCLC(LCLATR) * LOGICAL LWDATR, LCLATR, LTNATR, LIMATR, LPTATR */ SUBROUTINE SWQCLC( LOGICAL o LCLATR ) /* * ENTRY SWQTNC(LTNATR) * LOGICAL LWDATR, LCLATR, LTNATR, LIMATR, LPTATR */ SUBROUTINE SWQTNC( LOGICAL o LTNATR ) /* * ENTRY SWQIMC(LIMATR) * LOGICAL LWDATR, LCLATR, LTNATR, LIMATR, LPTATR */ SUBROUTINE SWQIMC( LOGICAL o LIMATR ) /* * ENTRY SWQPTC(LPTATR) * LOGICAL LWDATR, LCLATR, LTNATR, LIMATR, LPTATR */ SUBROUTINE SWQPTC( LOGICAL o LPTATR ) /* * ENTRY SWQRCT(WSXMN,WSXMX,WSYMN,WSYMX,FACT) */ SUBROUTINE SWQRCT( REAL o WSXMN REAL o WSXMX REAL o WSYMN REAL o WSYMX REAL o FACT ) /* * ENTRY SWSROT(IWTROT) */ SUBROUTINE SWSROT( INTEGER IWTROT ) /***************************************************** * grph1/swpack/swpqnp.f ****************************************************/ /* * SUBROUTINE SWPQNP(NCP) */ SUBROUTINE SWPQNP( INTEGER o NCP ) /* * ENTRY SWPQID(CP, IDX) * CHARACTER CP*(*) */ SUBROUTINE SWPQID( CHARACTER*(*) CP INTEGER o IDX ) /* * ENTRY SWPQCP(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE SWPQCP( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SWPQCL(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE SWPQCL( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SWPQIT(IDX, ITP) */ SUBROUTINE SWPQIT( INTEGER IDX INTEGER o ITP ) /* * ENTRY SWPQVL(IDX, IPARA) */ SUBROUTINE SWPQVL( INTEGER IDX INTEGER o IPARA ) /* * ENTRY SWPSVL(IDX, IPARA) */ SUBROUTINE SWPSVL( INTEGER IDX INTEGER IPARA ) /* * ENTRY SWPQIN(CP, IN) * CHARACTER CP*(*) */ SUBROUTINE SWPQIN( CHARACTER*(*) CP INTEGER o IN ) /***************************************************** * grph1/swpack/swpget.f ****************************************************/ /* * SUBROUTINE SWPGET(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE SWPGET( CHARACTER*(*) CP INTEGER o IPARA ) /* * ENTRY SWPSET(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE SWPSET( CHARACTER*(*) CP INTEGER IPARA ) /* * ENTRY SWPSTX(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE SWPSTX( CHARACTER*(*) CP INTEGER IPARA ) /***************************************************** * grph1/swpack/swcget.f ****************************************************/ /* * SUBROUTINE SWCGET(CP, CPARA) * CHARACTER CP*(*), CPARA*(*) */ SUBROUTINE SWCGET( CHARACTER*(*) CP CHARACTER*(*) o CPARA ) /* * ENTRY SWCSET(CP, CPARA) * CHARACTER CP*(*), CPARA*(*) */ SUBROUTINE SWCSET( CHARACTER*(*) CP CHARACTER*(*) CPARA ) /* * ENTRY SWCSTX(CP, CPARA) * CHARACTER CP*(*), CPARA*(*) */ SUBROUTINE SWCSTX( CHARACTER*(*) CP CHARACTER*(*) CPARA ) /***************************************************** * grph1/swpack/swqfnm.f ****************************************************/ /* * SUBROUTINE SWQFNM(CPARA,CFNAME) * CHARACTER CPARA*(*),CFNAME*(*) */ SUBROUTINE SWQFNM( CHARACTER*(*) CPARA CHARACTER*(*) o CFNAME ) /***************************************************** * grph1/swpack/swcqnp.f ****************************************************/ /* * SUBROUTINE SWCQNP(NCP) */ SUBROUTINE SWCQNP( INTEGER o NCP ) /* * ENTRY SWCQID(CP, IDX) * CHARACTER CP*(*), CVAL*(*) */ SUBROUTINE SWCQID( CHARACTER*(*) CP INTEGER o IDX ) /* * ENTRY SWCQCP(IDX, CP) * CHARACTER CP*(*), CVAL*(*) */ SUBROUTINE SWCQCP( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SWCQCL(IDX, CP) * CHARACTER CP*(*), CVAL*(*) */ SUBROUTINE SWCQCL( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SWCQVL(IDX, CVAL) * CHARACTER CP*(*), CVAL*(*) */ SUBROUTINE SWCQVL( INTEGER IDX CHARACTER*(*) o CVAL ) /* * ENTRY SWCSVL(IDX, CVAL) * CHARACTER CP*(*), CVAL*(*) */ SUBROUTINE SWCSVL( INTEGER IDX CHARACTER*(*) CVAL ) /* * ENTRY SWCQIN(CP, IN) * CHARACTER CP*(*), CVAL*(*) */ SUBROUTINE SWCQIN( CHARACTER*(*) CP INTEGER o IN ) /***************************************************** * grph1/swpack/swiget.f ****************************************************/ /* * SUBROUTINE SWIGET(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE SWIGET( CHARACTER*(*) CP INTEGER o IPARA ) /* * ENTRY SWISET(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE SWISET( CHARACTER*(*) CP INTEGER IPARA ) /* * ENTRY SWISTX(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE SWISTX( CHARACTER*(*) CP INTEGER IPARA ) /***************************************************** * grph1/swpack/swiqnp.f ****************************************************/ /* * SUBROUTINE SWIQNP(NCP) */ SUBROUTINE SWIQNP( INTEGER o NCP ) /* * ENTRY SWIQID(CP, IDX) * CHARACTER CP*(*) */ SUBROUTINE SWIQID( CHARACTER*(*) CP INTEGER o IDX ) /* * ENTRY SWIQCP(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE SWIQCP( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SWIQCL(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE SWIQCL( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SWIQVL(IDX, IPARA) */ SUBROUTINE SWIQVL( INTEGER IDX INTEGER o IPARA ) /* * ENTRY SWISVL(IDX, IPARA) */ SUBROUTINE SWISVL( INTEGER IDX INTEGER IPARA ) /* * ENTRY SWIQIN(CP, IN) * CHARACTER CP*(*) */ SUBROUTINE SWIQIN( CHARACTER*(*) CP INTEGER o IN ) /***************************************************** * grph1/swpack/swlget.f ****************************************************/ /* * SUBROUTINE SWLGET(CP, LPARA) * CHARACTER CP*(*) * LOGICAL LPARA */ SUBROUTINE SWLGET( CHARACTER*(*) CP LOGICAL o LPARA ) /* * ENTRY SWLSET(CP, LPARA) * CHARACTER CP*(*) * LOGICAL LPARA */ SUBROUTINE SWLSET( CHARACTER*(*) CP LOGICAL LPARA ) /* * ENTRY SWLSTX(CP, LPARA) * CHARACTER CP*(*) * LOGICAL LPARA */ SUBROUTINE SWLSTX( CHARACTER*(*) CP LOGICAL LPARA ) /***************************************************** * grph1/swpack/swlqnp.f ****************************************************/ /* * SUBROUTINE SWLQNP(NCP) */ SUBROUTINE SWLQNP( INTEGER o NCP ) /* * ENTRY SWLQID(CP, IDX) * CHARACTER CP*(*) */ SUBROUTINE SWLQID( CHARACTER*(*) CP INTEGER o IDX ) /* * ENTRY SWLQCP(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE SWLQCP( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SWLQCL(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE SWLQCL( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SWLQVL(IDX, LPARA) * LOGICAL LPARA */ SUBROUTINE SWLQVL( INTEGER IDX LOGICAL o LPARA ) /* * ENTRY SWLSVL(IDX, LPARA) * LOGICAL LPARA */ SUBROUTINE SWLSVL( INTEGER IDX LOGICAL LPARA ) /* * ENTRY SWLQIN(CP, IN) * CHARACTER CP*(*) */ SUBROUTINE SWLQIN( CHARACTER*(*) CP INTEGER o IN ) /***************************************************** * grph1/swpack/swrget.f ****************************************************/ /* * SUBROUTINE SWRGET(CP, RPARA) * CHARACTER CP*(*) */ SUBROUTINE SWRGET( CHARACTER*(*) CP REAL o RPARA ) /* * ENTRY SWRSET(CP, RPARA) * CHARACTER CP*(*) */ SUBROUTINE SWRSET( CHARACTER*(*) CP REAL RPARA ) /* * ENTRY SWRSTX(CP, RPARA) * CHARACTER CP*(*) */ SUBROUTINE SWRSTX( CHARACTER*(*) CP REAL RPARA ) /***************************************************** * grph1/swpack/swrqnp.f ****************************************************/ /* * SUBROUTINE SWRQNP(NCP) */ SUBROUTINE SWRQNP( INTEGER o NCP ) /* * ENTRY SWRQID(CP, IDX) * CHARACTER CP*(*) */ SUBROUTINE SWRQID( CHARACTER*(*) CP INTEGER o IDX ) /* * ENTRY SWRQCP(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE SWRQCP( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SWRQCL(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE SWRQCL( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY SWRQVL(IDX, RPARA) */ SUBROUTINE SWRQVL( INTEGER IDX REAL o RPARA ) /* * ENTRY SWRSVL(IDX, RPARA) */ SUBROUTINE SWRSVL( INTEGER IDX REAL RPARA ) /* * ENTRY SWRQIN(CP, IN) * CHARACTER CP*(*) */ SUBROUTINE SWRQIN( CHARACTER*(*) CP INTEGER o IN ) /***************************************************** * 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 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 ) /***************************************************** * grph1/scpack/scsobj.f ****************************************************/ /* * SUBROUTINE SCSOBJ(XOBJ3, YOBJ3, ZOBJ3) */ SUBROUTINE SCSOBJ( REAL XOBJ3 REAL YOBJ3 REAL ZOBJ3 ) /* * ENTRY SCQOBJ(XOBJ3, YOBJ3, ZOBJ3) */ SUBROUTINE SCQOBJ( REAL o XOBJ3 REAL o YOBJ3 REAL o ZOBJ3 ) /***************************************************** * grph1/scpack/scseye.f ****************************************************/ /* * SUBROUTINE SCSEYE(XEYE3, YEYE3, ZEYE3) */ SUBROUTINE SCSEYE( REAL XEYE3 REAL YEYE3 REAL ZEYE3 ) /* * ENTRY SCQEYE(XEYE3, YEYE3, ZEYE3) */ SUBROUTINE SCQEYE( REAL o XEYE3 REAL o YEYE3 REAL o ZEYE3 ) /***************************************************** * grph1/scpack/scspln.f ****************************************************/ /* * SUBROUTINE SCSPLN(IXAX, IYAX, SECT) */ SUBROUTINE SCSPLN( INTEGER IXAX INTEGER IYAX REAL SECT ) /* * ENTRY SCQPLN(IXAX, IYAX, SECT) */ SUBROUTINE SCQPLN( INTEGER o IXAX INTEGER o IYAX REAL o SECT ) /***************************************************** * grph1/scpack/scsprj.f ****************************************************/ /* * SUBROUTINE SCSPRJ */ SUBROUTINE SCSPRJ( ) /***************************************************** * grph1/scpack/scsvpt.f ****************************************************/ /* * SUBROUTINE SCSVPT(VXMIN, VXMAX, VYMIN, VYMAX, VZMIN, VZMAX) */ SUBROUTINE SCSVPT( REAL VXMIN REAL VXMAX REAL VYMIN REAL VYMAX REAL VZMIN REAL VZMAX ) /* * ENTRY SCQVPT(VXMIN, VXMAX, VYMIN, VYMAX, VZMIN, VZMAX) */ SUBROUTINE SCQVPT( REAL o VXMIN REAL o VXMAX REAL o VYMIN REAL o VYMAX REAL o VZMIN REAL o VZMAX ) /***************************************************** * grph1/scpack/scswnd.f ****************************************************/ /* * SUBROUTINE SCSWND(UXMIN, UXMAX, UYMIN, UYMAX, UZMIN, UZMAX) */ SUBROUTINE SCSWND( REAL UXMIN REAL UXMAX REAL UYMIN REAL UYMAX REAL UZMIN REAL UZMAX ) /* * ENTRY SCQWND(UXMIN, UXMAX, UYMIN, UYMAX, UZMIN, UZMAX) */ SUBROUTINE SCQWND( REAL o UXMIN REAL o UXMAX REAL o UYMIN REAL o UYMAX REAL o UZMIN REAL o UZMAX ) /***************************************************** * grph1/scpack/scslog.f ****************************************************/ /* * SUBROUTINE SCSLOG(LXLOG3, LYLOG3, LZLOG3) * LOGICAL LXLOG3, LYLOG3, LZLOG3 */ SUBROUTINE SCSLOG( LOGICAL LXLOG3 LOGICAL LYLOG3 LOGICAL LZLOG3 ) /* * ENTRY SCQLOG(LXLOG3, LYLOG3, LZLOG3) * LOGICAL LXLOG3, LYLOG3, LZLOG3 */ SUBROUTINE SCQLOG( LOGICAL o LXLOG3 LOGICAL o LYLOG3 LOGICAL o LZLOG3 ) /***************************************************** * grph1/scpack/scsorg.f ****************************************************/ /* * SUBROUTINE SCSORG(SIMFAC, VXORG3, VYORG3, VZORG3) */ SUBROUTINE SCSORG( REAL SIMFAC REAL VXORG3 REAL VYORG3 REAL VZORG3 ) /* * ENTRY SCQORG(SIMFAC, VXORG3, VYORG3, VZORG3) */ SUBROUTINE SCQORG( REAL o SIMFAC REAL o VXORG3 REAL o VYORG3 REAL o VZORG3 ) /***************************************************** * grph1/scpack/scstrn.f ****************************************************/ /* * SUBROUTINE SCSTRN(ITR3) */ SUBROUTINE SCSTRN( INTEGER ITR3 ) /* * ENTRY SCQTRN(ITR3) */ SUBROUTINE SCQTRN( INTEGER o ITR3 ) /***************************************************** * grph1/scpack/scstrf.f ****************************************************/ /* * SUBROUTINE SCSTRF */ SUBROUTINE SCSTRF( ) /***************************************************** * grph1/scpack/scplu.f ****************************************************/ /* * SUBROUTINE SCPLU(N,UPX,UPY,UPZ) * REAL UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*) */ SUBROUTINE SCPLU( INTEGER N REAL (*) UPX REAL (*) UPY REAL (*) UPZ ) /* * ENTRY SCPLV(N,VPX,VPY,VPZ) * REAL UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*) */ SUBROUTINE SCPLV( INTEGER N REAL (*) VPX REAL (*) VPY REAL (*) VPZ ) /* * ENTRY SCSPLI(INDEX) */ SUBROUTINE SCSPLI( INTEGER INDEX ) /* * ENTRY SCQPLI(INDEX) */ SUBROUTINE SCQPLI( INTEGER o INDEX ) /***************************************************** * grph1/scpack/scplzu.f ****************************************************/ /* * SUBROUTINE SCPLZU(N,UPX,UPY,UPZ,INDEX) * REAL UPX(*),UPY(*),UPZ(*) */ SUBROUTINE SCPLZU( INTEGER N REAL (*) UPX REAL (*) UPY REAL (*) UPZ INTEGER INDEX ) /***************************************************** * grph1/scpack/scplzv.f ****************************************************/ /* * SUBROUTINE SCPLZV(N,VPX,VPY,VPZ,INDEX) * REAL VPX(*),VPY(*),VPZ(*) */ SUBROUTINE SCPLZV( INTEGER N REAL (*) VPX REAL (*) VPY REAL (*) VPZ INTEGER INDEX ) /***************************************************** * grph1/scpack/scpmu.f ****************************************************/ /* * SUBROUTINE SCPMU(N,UPX,UPY,UPZ) * REAL UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*) */ SUBROUTINE SCPMU( INTEGER N REAL (*) UPX REAL (*) UPY REAL (*) UPZ ) /* * ENTRY SCPMV(N,VPX,VPY,VPZ) * REAL UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*) */ SUBROUTINE SCPMV( INTEGER N REAL (*) VPX REAL (*) VPY REAL (*) VPZ ) /* * ENTRY SCSPMT(ITYPE) */ SUBROUTINE SCSPMT( INTEGER ITYPE ) /* * ENTRY SCQPMT(ITYPE) */ SUBROUTINE SCQPMT( INTEGER o ITYPE ) /* * ENTRY SCSPMI(INDEX) */ SUBROUTINE SCSPMI( INTEGER INDEX ) /* * ENTRY SCQPMI(INDEX) */ SUBROUTINE SCQPMI( INTEGER o INDEX ) /* * ENTRY SCSPMS(RSIZE) */ SUBROUTINE SCSPMS( REAL RSIZE ) /* * ENTRY SCQPMS(RSIZE) */ SUBROUTINE SCQPMS( REAL o RSIZE ) /***************************************************** * grph1/scpack/scpmzu.f ****************************************************/ /* * SUBROUTINE SCPMZU(N,UPX,UPY,UPZ,ITYPE,INDEX,RSIZE) * REAL UPX(*),UPY(*),UPZ(*) */ SUBROUTINE SCPMZU( INTEGER N REAL (*) UPX REAL (*) UPY REAL (*) UPZ INTEGER ITYPE INTEGER INDEX REAL RSIZE ) /***************************************************** * grph1/scpack/scpmzv.f ****************************************************/ /* * SUBROUTINE SCPMZV(N,VPX,VPY,VPZ,ITYPE,INDEX,RSIZE) * REAL VPX(*),VPY(*),VPZ(*) */ SUBROUTINE SCPMZV( INTEGER N REAL (*) VPX REAL (*) VPY REAL (*) VPZ INTEGER ITYPE INTEGER INDEX REAL RSIZE ) /***************************************************** * grph1/scpack/sctnu.f ****************************************************/ /* * SUBROUTINE SCTNU(UPX,UPY,UPZ) * REAL UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*) */ SUBROUTINE SCTNU( REAL (*) UPX REAL (*) UPY REAL (*) UPZ ) /* * ENTRY SCTNV(VPX,VPY,VPZ) * REAL UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*) */ SUBROUTINE SCTNV( REAL (*) VPX REAL (*) VPY REAL (*) VPZ ) /* * ENTRY SCSTNP(ITPAT1, ITPAT2) */ SUBROUTINE SCSTNP( INTEGER ITPAT1 INTEGER ITPAT2 ) /* * ENTRY SCQTNP(ITPAT1, ITPAT2) */ SUBROUTINE SCQTNP( INTEGER o ITPAT1 INTEGER o ITPAT2 ) /***************************************************** * grph1/scpack/sctnzu.f ****************************************************/ /* * SUBROUTINE SCTNZU(UPX,UPY,UPZ,ITPAT1,ITPAT2) * REAL UPX(*),UPY(*),UPZ(*) */ SUBROUTINE SCTNZU( REAL (*) UPX REAL (*) UPY REAL (*) UPZ INTEGER ITPAT1 INTEGER ITPAT2 ) /***************************************************** * grph1/scpack/sctnzv.f ****************************************************/ /* * SUBROUTINE SCTNZV(VPX,VPY,VPZ,ITPAT1,ITPAT2) * REAL VPX(*),VPY(*),VPZ(*) */ SUBROUTINE SCTNZV( REAL (*) VPX REAL (*) VPY REAL (*) VPZ INTEGER ITPAT1 INTEGER ITPAT2 )