/* * grph2_umpack.fp * * $Id: grph2_umpack.fp,v 1.1 2000/11/19 16:00:15 keiko Exp $ */ /***************************************************** * grph2/umpack/umpmap.f ****************************************************/ /* * SUBROUTINE UMPMAP(CDSN) * CHARACTER CDSN*(*) */ SUBROUTINE UMPMAP( CHARACTER*(*) CDSN ) /***************************************************** * grph2/umpack/umqfnm.f ****************************************************/ /* * SUBROUTINE UMQFNM(CPARA,CFNAME) * CHARACTER CPARA*(*),CFNAME*(*) */ SUBROUTINE UMQFNM( CHARACTER*(*) CPARA CHARACTER*(*) o CFNAME ) /***************************************************** * grph2/umpack/umpglb.f ****************************************************/ /* * SUBROUTINE UMPGLB */ SUBROUTINE UMPGLB( ) /***************************************************** * grph2/umpack/umpgrd.f ****************************************************/ /* * SUBROUTINE UMPGRD */ SUBROUTINE UMPGRD( ) /***************************************************** * grph2/umpack/umplim.f ****************************************************/ /* * SUBROUTINE UMPLIM */ SUBROUTINE UMPLIM( ) /***************************************************** * grph2/umpack/uminit.f ****************************************************/ /* * SUBROUTINE UMINIT */ SUBROUTINE UMINIT( ) /***************************************************** * grph2/umpack/umscnt.f ****************************************************/ /* * SUBROUTINE UMSCNT(XCNT, YCNT, ROT) */ SUBROUTINE UMSCNT( REAL XCNT REAL YCNT REAL ROT ) /* * ENTRY UMQCNT(XCNT, YCNT, ROT) */ SUBROUTINE UMQCNT( REAL o XCNT REAL o YCNT REAL o ROT ) /***************************************************** * grph2/umpack/umscwd.f ****************************************************/ /* * SUBROUTINE UMSCWD(XCNTR, YCNTR, R) */ SUBROUTINE UMSCWD( REAL XCNTR REAL YCNTR REAL R ) /* * ENTRY UMQCWD(XCNTR, YCNTR, R) */ SUBROUTINE UMQCWD( REAL o XCNTR REAL o YCNTR REAL o R ) /***************************************************** * grph2/umpack/umspnt.f ****************************************************/ /* * SUBROUTINE UMSPNT(N, UX, UY) * REAL UX(*), UY(*) */ SUBROUTINE UMSPNT( INTEGER N REAL (N) UX REAL (N) UY ) /* * ENTRY UMQPNT(N, UXA, UYA) */ SUBROUTINE UMQPNT( INTEGER N REAL o UXA REAL o UYA ) /* * ENTRY UMQPTN(N) */ SUBROUTINE UMQPTN( INTEGER o N ) /* * ENTRY UMRPNT */ SUBROUTINE UMRPNT( ) /***************************************************** * grph2/umpack/umpfit.f ****************************************************/ /* * SUBROUTINE UMPFIT */ SUBROUTINE UMPFIT( ) /***************************************************** * grph2/umpack/umpget.f ****************************************************/ /* * SUBROUTINE UMPGET(CP,IPARA) * CHARACTER CP*(*) */ /* SUBROUTINE UMPGET( * CHARACTER*(*) CP * INTEGER o IPARA * ) */ /* * ENTRY UMPSET(CP, IPARA) * CHARACTER CP*(*) */ /* SUBROUTINE UMPSET( * CHARACTER*(*) CP * INTEGER IPARA * ) */ /* * ENTRY UMPSTX(CP, IPARA) * CHARACTER CP*(*) */ /* SUBROUTINE UMPSTX( * CHARACTER*(*) CP * INTEGER IPARA * ) */ /***************************************************** * grph2/umpack/umpqnp.f ****************************************************/ /* * SUBROUTINE UMPQNP(NCP) */ SUBROUTINE UMPQNP( INTEGER o NCP ) /* * ENTRY UMPQID(CP, IDX) * CHARACTER CP*(*) */ SUBROUTINE UMPQID( CHARACTER*(*) CP INTEGER o IDX ) /* * ENTRY UMPQCP(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE UMPQCP( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY UMPQCL(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE UMPQCL( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY UMPQIT(IDX, ITP) */ SUBROUTINE UMPQIT( INTEGER IDX INTEGER o ITP ) /* * ENTRY UMPQVL(IDX, IPARA) */ SUBROUTINE UMPQVL( INTEGER IDX INTEGER o IPARA ) /* * ENTRY UMPSVL(IDX, IPARA) */ SUBROUTINE UMPSVL( INTEGER IDX INTEGER IPARA ) /* * ENTRY UMPQIN(CP, IN) * CHARACTER CP*(*) */ SUBROUTINE UMPQIN( CHARACTER*(*) CP INTEGER o IN ) /***************************************************** * grph2/umpack/umspct.f ****************************************************/ /* * SUBROUTINE UMSPCT */ SUBROUTINE UMSPCT( ) /***************************************************** * grph2/umpack/umspcw.f ****************************************************/ /* * SUBROUTINE UMSPCW */ SUBROUTINE UMSPCW( ) /***************************************************** * grph2/umpack/umspwd.f ****************************************************/ /* * SUBROUTINE UMSPWD */ SUBROUTINE UMSPWD( ) /***************************************************** * grph2/umpack/umsppt.f ****************************************************/ /* * SUBROUTINE UMSPPT */ SUBROUTINE UMSPPT( ) /***************************************************** * grph2/umpack/umspdf.f ****************************************************/ /* * SUBROUTINE UMSPDF */ SUBROUTINE UMSPDF( ) /***************************************************** * grph2/umpack/umbndc.f ****************************************************/ /* * SUBROUTINE UMBNDC(XMIN, XMAX, YMIN, YMAX) */ SUBROUTINE UMBNDC( REAL io XMIN REAL o XMAX REAL o YMIN REAL o YMAX ) /***************************************************** * grph2/umpack/umbndp.f ****************************************************/ /* * SUBROUTINE UMBNDP(VXMIN, VXMAX, VYMIN, VYMAX) */ SUBROUTINE UMBNDP( REAL io VXMIN REAL o VXMAX REAL o VYMIN REAL o VYMAX ) /***************************************************** * grph2/umpack/umbndr.f ****************************************************/ /* * SUBROUTINE UMBNDR(FUNC, FTR, * + XMIN, XMAX, YMIN, YMAX ) */ SUBROUTINE UMBNDR( REAL FUNC REAL FTR REAL o XMIN REAL o XMAX REAL o YMIN REAL o YMAX ) /***************************************************** * grph2/umpack/umqtxy.f ****************************************************/ /* * SUBROUTINE UMQTXY(TXMINZ, TXMAXZ, TYMINZ, TYMAXZ) */ SUBROUTINE UMQTXY( REAL o TXMINZ REAL o TXMAXZ REAL o TYMINZ REAL o TYMAXZ ) /***************************************************** * grph2/umpack/umstvz.f ****************************************************/ /* * SUBROUTINE UMSTVZ */ SUBROUTINE UMSTVZ( ) /***************************************************** * grph2/umpack/umsgrd.f ****************************************************/ /* * SUBROUTINE UMSGRD */ SUBROUTINE UMSGRD( ) /***************************************************** * grph2/umpack/umscom.f ****************************************************/ /* * SUBROUTINE UMSCOM */ SUBROUTINE UMSCOM( ) /***************************************************** * grph2/umpack/umiget.f ****************************************************/ /* * SUBROUTINE UMIGET(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE UMIGET( CHARACTER*(*) CP INTEGER o IPARA ) /* * ENTRY UMISET(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE UMISET( CHARACTER*(*) CP INTEGER IPARA ) /* * ENTRY UMISTX(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE UMISTX( CHARACTER*(*) CP INTEGER IPARA ) /***************************************************** * grph2/umpack/umiqnp.f ****************************************************/ /* * SUBROUTINE UMIQNP(NCP) */ SUBROUTINE UMIQNP( INTEGER o NCP ) /* * ENTRY UMIQID(CP, IDX) * CHARACTER CP*(*) */ SUBROUTINE UMIQID( CHARACTER*(*) CP INTEGER o IDX ) /* * ENTRY UMIQCP(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE UMIQCP( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY UMIQCL(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE UMIQCL( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY UMIQVL(IDX, IPARA) */ SUBROUTINE UMIQVL( INTEGER IDX INTEGER o IPARA ) /* * ENTRY UMISVL(IDX, IPARA) */ SUBROUTINE UMISVL( INTEGER IDX INTEGER IPARA ) /* * ENTRY UMIQIN(CP, IN) * CHARACTER CP*(*) */ SUBROUTINE UMIQIN( CHARACTER*(*) CP INTEGER o IN ) /***************************************************** * grph2/umpack/umlget.f ****************************************************/ /* * SUBROUTINE UMLGET(CP, LPARA) * CHARACTER CP*(*) * LOGICAL LPARA */ SUBROUTINE UMLGET( CHARACTER*(*) CP LOGICAL o LPARA ) /* * ENTRY UMLSET(CP, LPARA) * CHARACTER CP*(*) * LOGICAL LPARA */ SUBROUTINE UMLSET( CHARACTER*(*) CP LOGICAL LPARA ) /* * ENTRY UMLSTX(CP, LPARA) * CHARACTER CP*(*) * LOGICAL LPARA */ SUBROUTINE UMLSTX( CHARACTER*(*) CP LOGICAL LPARA ) /***************************************************** * grph2/umpack/umlqnp.f ****************************************************/ /* * SUBROUTINE UMLQNP(NCP) */ SUBROUTINE UMLQNP( INTEGER o NCP ) /* * ENTRY UMLQID(CP, IDX) * CHARACTER CP*(*) */ SUBROUTINE UMLQID( CHARACTER*(*) CP INTEGER o IDX ) /* * ENTRY UMLQCP(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE UMLQCP( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY UMLQCL(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE UMLQCL( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY UMLQVL(IDX, LPARA) * LOGICAL LPARA */ SUBROUTINE UMLQVL( INTEGER IDX LOGICAL o LPARA ) /* * ENTRY UMLSVL(IDX, LPARA) * LOGICAL LPARA */ SUBROUTINE UMLSVL( INTEGER IDX LOGICAL LPARA ) /* * ENTRY UMLQIN(CP, IN) * CHARACTER CP*(*) */ SUBROUTINE UMLQIN( CHARACTER*(*) CP INTEGER o IN ) /***************************************************** * grph2/umpack/umrget.f ****************************************************/ /* * SUBROUTINE UMRGET(CP, RPARA) * CHARACTER CP*(*) */ SUBROUTINE UMRGET( CHARACTER*(*) CP REAL o RPARA ) /* * ENTRY UMRSET(CP, RPARA) * CHARACTER CP*(*) */ SUBROUTINE UMRSET( CHARACTER*(*) CP REAL RPARA ) /* * ENTRY UMRSTX(CP, RPARA) * CHARACTER CP*(*) */ SUBROUTINE UMRSTX( CHARACTER*(*) CP REAL RPARA ) /***************************************************** * grph2/umpack/umrqnp.f ****************************************************/ /* * SUBROUTINE UMRQNP(NCP) */ SUBROUTINE UMRQNP( INTEGER o NCP ) /* * ENTRY UMRQID(CP, IDX) * CHARACTER CP*(*) */ SUBROUTINE UMRQID( CHARACTER*(*) CP INTEGER o IDX ) /* * ENTRY UMRQCP(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE UMRQCP( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY UMRQCL(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE UMRQCL( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY UMRQVL(IDX, RPARA) */ SUBROUTINE UMRQVL( INTEGER IDX REAL o RPARA ) /* * ENTRY UMRSVL(IDX, RPARA) */ SUBROUTINE UMRSVL( INTEGER IDX REAL RPARA ) /* * ENTRY UMRQIN(CP, IN) * CHARACTER CP*(*) */ SUBROUTINE UMRQIN( CHARACTER*(*) CP INTEGER o IN ) /***************************************************** * grph2/umpack/umfmap.f ****************************************************/ /* * SUBROUTINE UMFMAP(CDSN) * CHARACTER CDSN*(*) */ #if DCLVER >= 53 SUBROUTINE UMFMAP( CHARACTER*(*) CDSN ) #endif