/* * math1.f77proto * $Id: math1.f77proto,v 1.2 2000/11/05 14:39:34 keiko Exp $ */ /***************************************************** * math1/blklib/iblklt.f ****************************************************/ /* * INTEGER FUNCTION IBLKLT(RX,N,RR) * REAL RX(*) */ INTEGER FUNCTION IBLKLT( REAL (*) RX INTEGER N REAL RR ) /***************************************************** * math1/blklib/iblkle.f ****************************************************/ /* * INTEGER FUNCTION IBLKLE(RX,N,RR) * REAL RX(*) */ INTEGER FUNCTION IBLKLE( REAL (*) RX INTEGER N REAL RR ) /***************************************************** * math1/blklib/iblkgt.f ****************************************************/ /* * INTEGER FUNCTION IBLKGT(RX,N,RR) * REAL RX(*) */ INTEGER FUNCTION IBLKGT( REAL (*) RX INTEGER N REAL RR ) /***************************************************** * math1/blklib/iblkge.f ****************************************************/ /* * INTEGER FUNCTION IBLKGE(RX,N,RR) * REAL RX(*) */ INTEGER FUNCTION IBLKGE( REAL (*) RX INTEGER N REAL RR ) /***************************************************** * math1/gnmlib/gnsave.f ****************************************************/ /* * SUBROUTINE GNSAVE */ SUBROUTINE GNSAVE( ) /* * ENTRY GNRSET */ SUBROUTINE GNRSET( ) /***************************************************** * math1/gnmlib/gnsblk.f ****************************************************/ /* * SUBROUTINE GNSBLK(XB,NB) * REAL XB(*) */ SUBROUTINE GNSBLK( REAL (*) XB INTEGER NB ) /* * ENTRY GNQBLK(XB,NB) * REAL XB(*) */ SUBROUTINE GNQBLK( REAL (*) o XB INTEGER o NB ) /* * ENTRY GNLT(RX,BX,IP) */ SUBROUTINE GNLT( REAL RX REAL o BX INTEGER o IP ) /* * ENTRY GNLE(RX,BX,IP) */ SUBROUTINE GNLE( REAL RX REAL o BX INTEGER o IP ) /* * ENTRY GNGT(RX,BX,IP) */ SUBROUTINE GNGT( REAL RX REAL o BX INTEGER o IP ) /* * ENTRY GNGE(RX,BX,IP) */ SUBROUTINE GNGE( REAL RX REAL o BX INTEGER o IP ) /***************************************************** * math1/gnmlib/rgnlt.f ****************************************************/ /* * REAL FUNCTION RGNLT(RX) */ REAL FUNCTION RGNLT( REAL RX ) /***************************************************** * math1/gnmlib/rgnle.f ****************************************************/ /* * REAL FUNCTION RGNLE(RX) */ REAL FUNCTION RGNLE( REAL RX ) /***************************************************** * math1/gnmlib/rgnge.f ****************************************************/ /* * REAL FUNCTION RGNGE(RX) */ REAL FUNCTION RGNGE( REAL RX ) /***************************************************** * math1/gnmlib/rgngt.f ****************************************************/ /* * REAL FUNCTION RGNGT(RX) */ REAL FUNCTION RGNGT( REAL RX ) /***************************************************** * math1/indxlib/indxcf.f ****************************************************/ /* * INTEGER FUNCTION INDXCF(CX,N,JD,CH) * CHARACTER CX(*)*1,CH*1 */ INTEGER FUNCTION INDXCF( CHARACTER*1 (*) CX INTEGER N INTEGER JD CHARACTER*1 CH ) /***************************************************** * math1/indxlib/indxcl.f ****************************************************/ /* * INTEGER FUNCTION INDXCL(CX,N,JD,CH) * CHARACTER CX(*)*1,CH*1 */ INTEGER FUNCTION INDXCL( CHARACTER*1 (*) CX INTEGER N INTEGER JD CHARACTER*1 CH ) /***************************************************** * math1/indxlib/indxmf.f ****************************************************/ /* * INTEGER FUNCTION INDXMF(CX,N,JD,CH) * CHARACTER CX*(*),CH*(*) */ INTEGER FUNCTION INDXMF( CHARACTER*(*) CX INTEGER N INTEGER JD CHARACTER*(*) CH ) /***************************************************** * math1/indxlib/indxml.f ****************************************************/ /* * INTEGER FUNCTION INDXML(CX,N,JD,CH) * CHARACTER CX*(*),CH*(*) */ INTEGER FUNCTION INDXML( CHARACTER*(*) CX INTEGER N INTEGER JD CHARACTER*(*) CH ) /***************************************************** * math1/indxlib/indxnf.f ****************************************************/ /* * INTEGER FUNCTION INDXNF(CX,N,JD,CH) * CHARACTER CX*(*),CH*(*) */ INTEGER FUNCTION INDXNF( CHARACTER*(*) CX INTEGER N INTEGER JD CHARACTER*(*) CH ) /***************************************************** * math1/indxlib/indxnl.f ****************************************************/ /* * INTEGER FUNCTION INDXNL(CX,N,JD,CH) * CHARACTER CX*(*),CH*(*) */ INTEGER FUNCTION INDXNL( CHARACTER*(*) CX INTEGER N INTEGER JD CHARACTER*(*) CH ) /***************************************************** * math1/indxlib/indxif.f ****************************************************/ /* * INTEGER FUNCTION INDXIF(IX,N,JD,II) * INTEGER IX(*) */ INTEGER FUNCTION INDXIF( INTEGER (*) IX INTEGER N INTEGER JD INTEGER II ) /***************************************************** * math1/indxlib/indxil.f ****************************************************/ /* * INTEGER FUNCTION INDXIL(IX,N,JD,II) * INTEGER IX(*) */ INTEGER FUNCTION INDXIL( INTEGER (*) IX INTEGER N INTEGER JD INTEGER II ) /***************************************************** * math1/indxlib/indxrf.f ****************************************************/ /* * INTEGER FUNCTION INDXRF(RX,N,JD,RR) * REAL RX(*) */ INTEGER FUNCTION INDXRF( REAL (*) RX INTEGER N INTEGER JD REAL RR ) /***************************************************** * math1/indxlib/indxrl.f ****************************************************/ /* * INTEGER FUNCTION INDXRL(RX,N,JD,RR) * REAL RX(*) */ INTEGER FUNCTION INDXRL( REAL (*) RX INTEGER N INTEGER JD REAL RR ) /***************************************************** * math1/indxlib/nindxc.f ****************************************************/ /* * INTEGER FUNCTION NINDXC(CX,N,JD,CH) * CHARACTER CX(*)*1,CH*1 */ INTEGER FUNCTION NINDXC( CHARACTER*1 (*) CX INTEGER N INTEGER JD CHARACTER*1 CH ) /***************************************************** * math1/indxlib/nindxm.f ****************************************************/ /* * INTEGER FUNCTION NINDXM(CX,N,JD,CH) * CHARACTER CX*(*),CH*(*) */ INTEGER FUNCTION NINDXM( CHARACTER*(*) CX INTEGER N INTEGER JD CHARACTER*(*) CH ) /***************************************************** * math1/indxlib/nindxn.f ****************************************************/ /* * INTEGER FUNCTION NINDXN(CX,N,JD,CH) * CHARACTER CX*(*),CH*(*) */ INTEGER FUNCTION NINDXN( CHARACTER*(*) CX INTEGER N INTEGER JD CHARACTER*(*) CH ) /***************************************************** * math1/indxlib/nindxi.f ****************************************************/ /* * INTEGER FUNCTION NINDXI(IX,N,JD,II) * INTEGER IX(*) */ INTEGER FUNCTION NINDXI( INTEGER (*) IX INTEGER N INTEGER JD INTEGER II ) /***************************************************** * math1/indxlib/nindxr.f ****************************************************/ /* * INTEGER FUNCTION NINDXR(RX,N,JD,RR) * REAL RX(*) */ INTEGER FUNCTION NINDXR( REAL (*) RX INTEGER N INTEGER JD REAL RR ) /***************************************************** * math1/lrllib/lreq.f ****************************************************/ /* * LOGICAL FUNCTION LREQ(X,Y) */ LOGICAL FUNCTION LREQ( REAL X REAL Y ) /***************************************************** * math1/lrllib/lreq0.f ****************************************************/ /* * LOGICAL FUNCTION LREQ0(X,Y) */ LOGICAL FUNCTION LREQ0( REAL X REAL Y ) /***************************************************** * math1/lrllib/lreq1.f ****************************************************/ /* * LOGICAL FUNCTION LREQ1(X,Y) */ LOGICAL FUNCTION LREQ1( REAL X REAL Y ) /***************************************************** * math1/lrllib/lreqa.f ****************************************************/ /* * LOGICAL FUNCTION LREQA(X,Y,EPSL) */ LOGICAL FUNCTION LREQA( REAL X REAL Y REAL EPSL ) /***************************************************** * math1/lrllib/lrne.f ****************************************************/ /* * LOGICAL FUNCTION LRNE(X,Y) */ LOGICAL FUNCTION LRNE( REAL X REAL Y ) /***************************************************** * math1/lrllib/lrne0.f ****************************************************/ /* * LOGICAL FUNCTION LRNE0(X,Y) */ LOGICAL FUNCTION LRNE0( REAL X REAL Y ) /***************************************************** * math1/lrllib/lrne1.f ****************************************************/ /* * LOGICAL FUNCTION LRNE1(X,Y) */ LOGICAL FUNCTION LRNE1( REAL X REAL Y ) /***************************************************** * math1/lrllib/lrnea.f ****************************************************/ /* * LOGICAL FUNCTION LRNEA(X,Y,EPSL) */ LOGICAL FUNCTION LRNEA( REAL X REAL Y REAL EPSL ) /***************************************************** * math1/lrllib/lrlt.f ****************************************************/ /* * LOGICAL FUNCTION LRLT(X,Y) */ LOGICAL FUNCTION LRLT( REAL X REAL Y ) /***************************************************** * math1/lrllib/lrlt0.f ****************************************************/ /* * LOGICAL FUNCTION LRLT0(X,Y) */ LOGICAL FUNCTION LRLT0( REAL X REAL Y ) /***************************************************** * math1/lrllib/lrlt1.f ****************************************************/ /* * LOGICAL FUNCTION LRLT1(X,Y) */ LOGICAL FUNCTION LRLT1( REAL X REAL Y ) /***************************************************** * math1/lrllib/lrlta.f ****************************************************/ /* * LOGICAL FUNCTION LRLTA(X,Y,EPSL) */ LOGICAL FUNCTION LRLTA( REAL X REAL Y REAL EPSL ) /***************************************************** * math1/lrllib/lrgt.f ****************************************************/ /* * LOGICAL FUNCTION LRGT(X,Y) */ LOGICAL FUNCTION LRGT( REAL X REAL Y ) /***************************************************** * math1/lrllib/lrgt0.f ****************************************************/ /* * LOGICAL FUNCTION LRGT0(X,Y) */ LOGICAL FUNCTION LRGT0( REAL X REAL Y ) /***************************************************** * math1/lrllib/lrgt1.f ****************************************************/ /* * LOGICAL FUNCTION LRGT1(X,Y) */ LOGICAL FUNCTION LRGT1( REAL X REAL Y ) /***************************************************** * math1/lrllib/lrgta.f ****************************************************/ /* * LOGICAL FUNCTION LRGTA(X,Y,EPSL) */ LOGICAL FUNCTION LRGTA( REAL X REAL Y REAL EPSL ) /***************************************************** * math1/lrllib/lrle.f ****************************************************/ /* * LOGICAL FUNCTION LRLE(X,Y) */ LOGICAL FUNCTION LRLE( REAL X REAL Y ) /***************************************************** * math1/lrllib/lrle0.f ****************************************************/ /* * LOGICAL FUNCTION LRLE0(X,Y) */ LOGICAL FUNCTION LRLE0( REAL X REAL Y ) /***************************************************** * math1/lrllib/lrle1.f ****************************************************/ /* * LOGICAL FUNCTION LRLE1(X,Y) */ LOGICAL FUNCTION LRLE1( REAL X REAL Y ) /***************************************************** * math1/lrllib/lrlea.f ****************************************************/ /* * LOGICAL FUNCTION LRLEA(X,Y,EPSL) */ LOGICAL FUNCTION LRLEA( REAL X REAL Y REAL EPSL ) /***************************************************** * math1/lrllib/lrge.f ****************************************************/ /* * LOGICAL FUNCTION LRGE(X,Y) */ LOGICAL FUNCTION LRGE( REAL X REAL Y ) /***************************************************** * math1/lrllib/lrge0.f ****************************************************/ /* * LOGICAL FUNCTION LRGE0(X,Y) */ LOGICAL FUNCTION LRGE0( REAL X REAL Y ) /***************************************************** * math1/lrllib/lrge1.f ****************************************************/ /* * LOGICAL FUNCTION LRGE1(X,Y) */ LOGICAL FUNCTION LRGE1( REAL X REAL Y ) /***************************************************** * math1/lrllib/lrgea.f ****************************************************/ /* * LOGICAL FUNCTION LRGEA(X,Y,EPSL) */ LOGICAL FUNCTION LRGEA( REAL X REAL Y REAL EPSL ) /***************************************************** * math1/rfblib/rprd.f ****************************************************/ /* * REAL FUNCTION RPRD(RX,RY,N,JX,JY) * REAL RX(*),RY(*) */ REAL FUNCTION RPRD( REAL (*) RX REAL (*) RY INTEGER N INTEGER JX INTEGER JY ) /***************************************************** * math1/rfblib/rcov.f ****************************************************/ /* * REAL FUNCTION RCOV(RX,RY,N,JX,JY) * REAL RX(*),RY(*) */ REAL FUNCTION RCOV( REAL (*) RX REAL (*) RY INTEGER N INTEGER JX INTEGER JY ) /***************************************************** * math1/rfblib/rcor.f ****************************************************/ /* * REAL FUNCTION RCOR(RX,RY,N,JX,JY) * REAL RX(*),RY(*) */ REAL FUNCTION RCOR( REAL (*) RX REAL (*) RY INTEGER N INTEGER JX INTEGER JY ) /***************************************************** * math1/syslib/glpget.f ****************************************************/ /* * SUBROUTINE GLPGET(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE GLPGET( CHARACTER*(*) CP INTEGER o IPARA ) /* * ENTRY GLPSET(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE GLPSET( CHARACTER*(*) CP INTEGER IPARA ) /* * ENTRY GLPSTX(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE GLPSTX( CHARACTER*(*) CP INTEGER IPARA ) /***************************************************** * math1/syslib/lchreq.f ****************************************************/ /* * LOGICAL FUNCTION LCHREQ(CH1,CH2) * CHARACTER CH1*(*),CH2*(*) */ LOGICAL FUNCTION LCHREQ( CHARACTER*(*) CH1 CHARACTER*(*) CH2 ) /***************************************************** * math1/syslib/msgdmp.f ****************************************************/ /* * SUBROUTINE MSGDMP(CLEV,CSUB,CMSG) * CHARACTER CLEV*(*),CSUB*(*),CMSG*(*) */ SUBROUTINE MSGDMP( CHARACTER*(*) CLEV CHARACTER*(*) CSUB CHARACTER*(*) CMSG ) /***************************************************** * math1/syslib/mszdmp.f ****************************************************/ /* * SUBROUTINE MSZDMP(CMSG,IUNIT,LNSIZE) * CHARACTER CMSG*(*) */ SUBROUTINE MSZDMP( CHARACTER*(*) CMSG INTEGER IUNIT INTEGER LNSIZE ) /***************************************************** * math1/syslib/glcget.f ****************************************************/ /* * SUBROUTINE GLCGET(CP,CPARA) * CHARACTER CP*(*),CPARA*(*) */ SUBROUTINE GLCGET( CHARACTER*(*) CP CHARACTER*(*) o CPARA ) /* * ENTRY GLCSET(CP,CPARA) * CHARACTER CP*(*),CPARA*(*) */ SUBROUTINE GLCSET( CHARACTER*(*) CP CHARACTER*(*) CPARA ) /* * ENTRY GLCSTX(CP,CPARA) * CHARACTER CP*(*),CPARA*(*) */ SUBROUTINE GLCSTX( CHARACTER*(*) CP CHARACTER*(*) CPARA ) /***************************************************** * math1/syslib/glqfnm.f ****************************************************/ /* * SUBROUTINE GLQFNM(CPARA,CFNAME) * CHARACTER CPARA*(*),CFNAME*(*) */ SUBROUTINE GLQFNM( CHARACTER*(*) CPARA CHARACTER*(*) o CFNAME ) /***************************************************** * math1/syslib/iufopn.f ****************************************************/ /* * INTEGER FUNCTION IUFOPN() */ INTEGER FUNCTION IUFOPN( ) /***************************************************** * math1/syslib/cfsrch.f ****************************************************/ /* * SUBROUTINE CFSRCH(CPLIST,NP,CFLIST,NF,CFNAME) * CHARACTER CPLIST(*)*80,CFLIST(*)*80,CFNAME*(*) */ SUBROUTINE CFSRCH( CHARACTER*80 (*) CPLIST INTEGER NP CHARACTER*80 (*) CFLIST INTEGER NF CHARACTER*(*) o CFNAME ) /***************************************************** * math1/syslib/glpqnp.f ****************************************************/ /* * SUBROUTINE GLPQNP(NCP) */ SUBROUTINE GLPQNP( INTEGER o NCP ) /* * ENTRY GLPQID(CP, IDX) * CHARACTER CP*(*) */ SUBROUTINE GLPQID( CHARACTER*(*) CP INTEGER o IDX ) /* * ENTRY GLPQCP(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE GLPQCP( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY GLPQCL(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE GLPQCL( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY GLPQIT(IDX, ITP) */ SUBROUTINE GLPQIT( INTEGER IDX INTEGER o ITP ) /* * ENTRY GLPQVL(IDX, IPARA) */ SUBROUTINE GLPQVL( INTEGER IDX INTEGER o IPARA ) /* * ENTRY GLPSVL(IDX, IPARA) */ SUBROUTINE GLPSVL( INTEGER IDX INTEGER IPARA ) /* * ENTRY GLPQIN(CP, IN) * CHARACTER CP*(*) */ SUBROUTINE GLPQIN( CHARACTER*(*) CP INTEGER o IN ) /***************************************************** * math1/syslib/gliget.f ****************************************************/ /* * SUBROUTINE GLIGET(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE GLIGET( CHARACTER*(*) CP INTEGER o IPARA ) /* * ENTRY GLISET(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE GLISET( CHARACTER*(*) CP INTEGER IPARA ) /* * ENTRY GLISTX(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE GLISTX( CHARACTER*(*) CP INTEGER IPARA ) /***************************************************** * math1/syslib/gllget.f ****************************************************/ /* * SUBROUTINE GLLGET(CP, LPARA) * CHARACTER CP*(*) * LOGICAL LPARA */ SUBROUTINE GLLGET( CHARACTER*(*) CP LOGICAL o LPARA ) /* * ENTRY GLLSET(CP, LPARA) * CHARACTER CP*(*) * LOGICAL LPARA */ SUBROUTINE GLLSET( CHARACTER*(*) CP LOGICAL LPARA ) /* * ENTRY GLLSTX(CP, LPARA) * CHARACTER CP*(*) * LOGICAL LPARA */ SUBROUTINE GLLSTX( CHARACTER*(*) CP LOGICAL LPARA ) /***************************************************** * math1/syslib/rpnenv.f ****************************************************/ /* * SUBROUTINE RPNENV */ SUBROUTINE RPNENV( ) /* * ENTRY RTIENV(CPFIX, CP, IPARA) * CHARACTER CPFIX*(*), CP*(*), CPARA*(*) */ SUBROUTINE RTIENV( CHARACTER*(*) CPFIX CHARACTER*(*) CP INTEGER o IPARA ) /* * ENTRY RTLENV(CPFIX, CP, LPARA) * CHARACTER CPFIX*(*), CP*(*), CPARA*(*) * LOGICAL LPARA */ SUBROUTINE RTLENV( CHARACTER*(*) CPFIX CHARACTER*(*) CP LOGICAL o LPARA ) /* * ENTRY RTRENV(CPFIX, CP, RPARA) * CHARACTER CPFIX*(*), CP*(*), CPARA*(*) */ SUBROUTINE RTRENV( CHARACTER*(*) CPFIX CHARACTER*(*) CP REAL o RPARA ) /* * ENTRY RTCENV(CPFIX, CP, CPARA) * CHARACTER CPFIX*(*), CP*(*), CPARA*(*) */ SUBROUTINE RTCENV( CHARACTER*(*) CPFIX CHARACTER*(*) CP CHARACTER*(*) o CPARA ) /* * ENTRY RLIENV(CP, IPARA) * CHARACTER CPFIX*(*), CP*(*), CPARA*(*) */ SUBROUTINE RLIENV( CHARACTER*(*) CP INTEGER o IPARA ) /* * ENTRY RLLENV(CP, LPARA) * CHARACTER CPFIX*(*), CP*(*), CPARA*(*) * LOGICAL LPARA */ SUBROUTINE RLLENV( CHARACTER*(*) CP LOGICAL o LPARA ) /* * ENTRY RLRENV(CP, RPARA) * CHARACTER CPFIX*(*), CP*(*), CPARA*(*) */ SUBROUTINE RLRENV( CHARACTER*(*) CP REAL o RPARA ) /* * ENTRY RLCENV(CP, CPARA) * CHARACTER CPFIX*(*), CP*(*), CPARA*(*) */ SUBROUTINE RLCENV( CHARACTER*(*) CP CHARACTER*(*) o CPARA ) /***************************************************** * math1/syslib/glrget.f ****************************************************/ /* * SUBROUTINE GLRGET(CP, RPARA) * CHARACTER CP*(*) */ SUBROUTINE GLRGET( CHARACTER*(*) CP REAL o RPARA ) /* * ENTRY GLRSET(CP, RPARA) * CHARACTER CP*(*) */ SUBROUTINE GLRSET( CHARACTER*(*) CP REAL RPARA ) /* * ENTRY GLRSTX(CP, IPARA) * CHARACTER CP*(*) */ SUBROUTINE GLRSTX( CHARACTER*(*) CP INTEGER IPARA ) /***************************************************** * math1/syslib/gllqnp.f ****************************************************/ /* * SUBROUTINE GLLQNP(NCP) */ SUBROUTINE GLLQNP( INTEGER o NCP ) /* * ENTRY GLLQID(CP, IDX) * CHARACTER CP*(*) */ SUBROUTINE GLLQID( CHARACTER*(*) CP INTEGER o IDX ) /* * ENTRY GLLQCP(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE GLLQCP( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY GLLQCL(IDX, CP) * CHARACTER CP*(*) */ SUBROUTINE GLLQCL( INTEGER IDX CHARACTER*(*) o CP ) /* * ENTRY GLLQVL(IDX, LPARA) * LOGICAL LPARA */ SUBROUTINE GLLQVL( INTEGER IDX LOGICAL o LPARA ) /* * ENTRY GLLSVL(IDX, LPARA) * LOGICAL LPARA */ SUBROUTINE GLLSVL( INTEGER IDX LOGICAL LPARA ) /* * ENTRY GLLQIN(CP, IN) * CHARACTER CP*(*) */ SUBROUTINE GLLQIN( CHARACTER*(*) CP INTEGER o IN ) /***************************************************** * math1/syslib/rpnget.f ****************************************************/ /* * SUBROUTINE RPNGET */ SUBROUTINE RPNGET( ) /* * ENTRY RTIGET(CPFIX, CPS, IPARA, MAX) * CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40 * INTEGER IPARA(*) */ SUBROUTINE RTIGET( CHARACTER*(*) CPFIX CHARACTER*8 (*) CPS INTEGER (*) o IPARA INTEGER MAX ) /* * ENTRY RTLGET(CPFIX, CPS, LPARA, MAX) * CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40 * LOGICAL LPARA(*) */ SUBROUTINE RTLGET( CHARACTER*(*) CPFIX CHARACTER*8 (*) CPS LOGICAL (*) o LPARA INTEGER MAX ) /* * ENTRY RTRGET(CPFIX, CPS, RPARA, MAX) * CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40 * REAL RPARA(*) */ SUBROUTINE RTRGET( CHARACTER*(*) CPFIX CHARACTER*8 (*) CPS REAL (*) o RPARA INTEGER MAX ) /* * ENTRY RTCGET(CPFIX, CPS, CPARA, MAX) * CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40 * CHARACTER CPARA(*)*80 */ SUBROUTINE RTCGET( CHARACTER*(*) CPFIX CHARACTER*8 (*) CPS CHARACTER*80 (*) o CPARA INTEGER MAX ) /* * ENTRY RLIGET(CPL, IPARA, MAX) * CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40 * INTEGER IPARA(*) */ SUBROUTINE RLIGET( CHARACTER*40 (*) CPL INTEGER (*) o IPARA INTEGER MAX ) /* * ENTRY RLLGET(CPL, LPARA, MAX) * CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40 * LOGICAL LPARA(*) */ SUBROUTINE RLLGET( CHARACTER*40 (*) CPL LOGICAL (*) o LPARA INTEGER MAX ) /* * ENTRY RLRGET(CPL, RPARA, MAX) * CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40 * REAL RPARA(*) */ SUBROUTINE RLRGET( CHARACTER*40 (*) CPL REAL (*) o RPARA INTEGER MAX ) /* * ENTRY RLCGET(CPL, CPARA, MAX) * CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40 * CHARACTER CPARA(*)*80 */ SUBROUTINE RLCGET( CHARACTER*40 (*) CPL CHARACTER*80 (*) o CPARA INTEGER MAX ) /***************************************************** * math1/syslib/rpnopt.f ****************************************************/ /* * SUBROUTINE RPNOPT */ SUBROUTINE RPNOPT( ) /* * ENTRY RTIOPT(CPFIX, CP, IPARA) * CHARACTER CPFIX*(*), CP*(*), CPARA*(*) */ SUBROUTINE RTIOPT( CHARACTER*(*) CPFIX CHARACTER*(*) CP INTEGER o IPARA ) /* * ENTRY RTLOPT(CPFIX, CP, LPARA) * CHARACTER CPFIX*(*), CP*(*), CPARA*(*) * LOGICAL LPARA */ SUBROUTINE RTLOPT( CHARACTER*(*) CPFIX CHARACTER*(*) CP LOGICAL o LPARA ) /* * ENTRY RTROPT(CPFIX, CP, RPARA) * CHARACTER CPFIX*(*), CP*(*), CPARA*(*) */ SUBROUTINE RTROPT( CHARACTER*(*) CPFIX CHARACTER*(*) CP REAL o RPARA ) /* * ENTRY RTCOPT(CPFIX, CP, CPARA) * CHARACTER CPFIX*(*), CP*(*), CPARA*(*) */ SUBROUTINE RTCOPT( CHARACTER*(*) CPFIX CHARACTER*(*) CP CHARACTER*(*) o CPARA ) /* * ENTRY RLIOPT(CP, IPARA) * CHARACTER CPFIX*(*), CP*(*), CPARA*(*) */ SUBROUTINE RLIOPT( CHARACTER*(*) CP INTEGER o IPARA ) /* * ENTRY RLLOPT(CP, LPARA) * CHARACTER CPFIX*(*), CP*(*), CPARA*(*) * LOGICAL LPARA */ SUBROUTINE RLLOPT( CHARACTER*(*) CP LOGICAL o LPARA ) /* * ENTRY RLROPT(CP, RPARA) * CHARACTER CPFIX*(*), CP*(*), CPARA*(*) */ SUBROUTINE RLROPT( CHARACTER*(*) CP REAL o RPARA ) /* * ENTRY RLCOPT(CP, CPARA) * CHARACTER CPFIX*(*), CP*(*), CPARA*(*) */ SUBROUTINE RLCOPT( CHARACTER*(*) CP CHARACTER*(*) o CPARA ) /***************************************************** * math1/syslib/rpnxfl.f ****************************************************/ /* * SUBROUTINE RPNXFL */ SUBROUTINE RPNXFL( ) /* * ENTRY RTIXFL(CPFIX, CP, IPARA) * CHARACTER CPFIX*(*), CP*(*), CVAL*(*) */ SUBROUTINE RTIXFL( CHARACTER*(*) CPFIX CHARACTER*(*) CP INTEGER o IPARA ) /* * ENTRY RTLXFL(CPFIX, CP, LPARA) * CHARACTER CPFIX*(*), CP*(*), CVAL*(*) * LOGICAL LPARA */ SUBROUTINE RTLXFL( CHARACTER*(*) CPFIX CHARACTER*(*) CP LOGICAL o LPARA ) /* * ENTRY RTRXFL(CPFIX, CP, RPARA) * CHARACTER CPFIX*(*), CP*(*), CVAL*(*) */ SUBROUTINE RTRXFL( CHARACTER*(*) CPFIX CHARACTER*(*) CP REAL o RPARA ) /* * ENTRY RTCXFL(CPFIX, CP, CVAL) * CHARACTER CPFIX*(*), CP*(*), CVAL*(*) */ SUBROUTINE RTCXFL( CHARACTER*(*) CPFIX CHARACTER*(*) CP CHARACTER*(*) o CVAL ) /* * ENTRY RLIXFL(CP, IPARA) * CHARACTER CPFIX*(*), CP*(*), CVAL*(*) */ SUBROUTINE RLIXFL( CHARACTER*(*) CP INTEGER o IPARA ) /* * ENTRY RLLXFL(CP, LPARA) * CHARACTER CPFIX*(*), CP*(*), CVAL*(*) * LOGICAL LPARA */ SUBROUTINE RLLXFL( CHARACTER*(*) CP LOGICAL o LPARA ) /* * ENTRY RLRXFL(CP, RPARA) * CHARACTER CPFIX*(*), CP*(*), CVAL*(*) */ SUBROUTINE RLRXFL( CHARACTER*(*) CP REAL o RPARA ) /* * ENTRY RLCXFL(CP, CVAL) * CHARACTER CPFIX*(*), CP*(*), CVAL*(*) */ SUBROUTINE RLCXFL( CHARACTER*(*) CP CHARACTER*(*) o CVAL ) /***************************************************** * math1/syslib/prcopn.f ****************************************************/ /* * SUBROUTINE PRCOPN(CPROC) * CHARACTER CPROC*(*) */ SUBROUTINE PRCOPN( CHARACTER*(*) CPROC ) /* * ENTRY PRCCLS(CPROC) * CHARACTER CPROC*(*) */ SUBROUTINE PRCCLS( CHARACTER*(*) CPROC ) /* * ENTRY PRCLVL(NLEV) */ SUBROUTINE PRCLVL( INTEGER o NLEV ) /* * ENTRY PRCNAM(NLEV, CPROC) * CHARACTER CPROC*(*) */ SUBROUTINE PRCNAM( INTEGER NLEV CHARACTER*(*) o CPROC ) /***************************************************** * math1/viblib/vifnb.f ****************************************************/ /* * SUBROUTINE VIFNB(IX,IY,IZ,N,JX,JY,JZ,IFNB) * INTEGER IX(*),IY(*),IZ(*) */ SUBROUTINE VIFNB( INTEGER (*) IX INTEGER (*) IY INTEGER (*) o IZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ INTEGER IFNB ) /***************************************************** * math1/viblib/vifnb0.f ****************************************************/ /* * SUBROUTINE VIFNB0(IX,IY,IZ,N,JX,JY,JZ,IFNB) * INTEGER IX(*),IY(*),IZ(*) */ SUBROUTINE VIFNB0( INTEGER (*) IX INTEGER (*) IY INTEGER (*) o IZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ INTEGER IFNB ) /***************************************************** * math1/viblib/vifnb1.f ****************************************************/ /* * SUBROUTINE VIFNB1(IX,IY,IZ,N,JX,JY,JZ,IFNB) * INTEGER IX(*),IY(*),IZ(*) */ SUBROUTINE VIFNB1( INTEGER (*) IX INTEGER (*) IY INTEGER (*) o IZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ INTEGER IFNB ) /***************************************************** * math1/viblib/viadd.f ****************************************************/ /* * SUBROUTINE VIADD(IX,IY,IZ,N,JX,JY,JZ) * INTEGER IX(*),IY(*),IZ(*) */ SUBROUTINE VIADD( INTEGER (*) IX INTEGER (*) IY INTEGER (*) o IZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/viblib/viadd0.f ****************************************************/ /* * SUBROUTINE VIADD0(IX,IY,IZ,N,JX,JY,JZ) * INTEGER IX(*),IY(*),IZ(*) */ SUBROUTINE VIADD0( INTEGER (*) IX INTEGER (*) IY INTEGER (*) o IZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/viblib/viadd1.f ****************************************************/ /* * SUBROUTINE VIADD1(IX,IY,IZ,N,JX,JY,JZ) * INTEGER IX(*),IY(*),IZ(*) */ SUBROUTINE VIADD1( INTEGER (*) IX INTEGER (*) IY INTEGER (*) o IZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/viblib/visub.f ****************************************************/ /* * SUBROUTINE VISUB(IX,IY,IZ,N,JX,JY,JZ) * INTEGER IX(*),IY(*),IZ(*) */ SUBROUTINE VISUB( INTEGER (*) IX INTEGER (*) IY INTEGER (*) o IZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/viblib/visub0.f ****************************************************/ /* * SUBROUTINE VISUB0(IX,IY,IZ,N,JX,JY,JZ) * INTEGER IX(*),IY(*),IZ(*) */ SUBROUTINE VISUB0( INTEGER (*) IX INTEGER (*) IY INTEGER (*) o IZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/viblib/visub1.f ****************************************************/ /* * SUBROUTINE VISUB1(IX,IY,IZ,N,JX,JY,JZ) * INTEGER IX(*),IY(*),IZ(*) */ SUBROUTINE VISUB1( INTEGER (*) IX INTEGER (*) IY INTEGER (*) o IZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/viblib/vimlt.f ****************************************************/ /* * SUBROUTINE VIMLT(IX,IY,IZ,N,JX,JY,JZ) * INTEGER IX(*),IY(*),IZ(*) */ SUBROUTINE VIMLT( INTEGER (*) IX INTEGER (*) IY INTEGER (*) o IZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/viblib/vimlt0.f ****************************************************/ /* * SUBROUTINE VIMLT0(IX,IY,IZ,N,JX,JY,JZ) * INTEGER IX(*),IY(*),IZ(*) */ SUBROUTINE VIMLT0( INTEGER (*) IX INTEGER (*) IY INTEGER (*) o IZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/viblib/vimlt1.f ****************************************************/ /* * SUBROUTINE VIMLT1(IX,IY,IZ,N,JX,JY,JZ) * INTEGER IX(*),IY(*),IZ(*) */ SUBROUTINE VIMLT1( INTEGER (*) IX INTEGER (*) IY INTEGER (*) o IZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/viblib/vidiv.f ****************************************************/ /* * SUBROUTINE VIDIV(IX,IY,IZ,N,JX,JY,JZ) * INTEGER IX(*),IY(*),IZ(*) */ SUBROUTINE VIDIV( INTEGER (*) IX INTEGER (*) IY INTEGER (*) o IZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/viblib/vidiv0.f ****************************************************/ /* * SUBROUTINE VIDIV0(IX,IY,IZ,N,JX,JY,JZ) * INTEGER IX(*),IY(*),IZ(*) */ SUBROUTINE VIDIV0( INTEGER (*) IX INTEGER (*) IY INTEGER (*) o IZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/viblib/vidiv1.f ****************************************************/ /* * SUBROUTINE VIDIV1(IX,IY,IZ,N,JX,JY,JZ) * INTEGER IX(*),IY(*),IZ(*) */ SUBROUTINE VIDIV1( INTEGER (*) IX INTEGER (*) IY INTEGER (*) o IZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/vrblib/vrfnb.f ****************************************************/ /* * SUBROUTINE VRFNB(RX,RY,RZ,N,JX,JY,JZ,RFNB) * REAL RX(*),RY(*),RZ(*) */ SUBROUTINE VRFNB( REAL (*) RX REAL (*) RY REAL (*) o RZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ REAL RFNB ) /***************************************************** * math1/vrblib/vrfnb0.f ****************************************************/ /* * SUBROUTINE VRFNB0(RX,RY,RZ,N,JX,JY,JZ,RFNB) * REAL RX(*),RY(*),RZ(*) */ SUBROUTINE VRFNB0( REAL (*) RX REAL (*) RY REAL (*) o RZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ REAL RFNB ) /***************************************************** * math1/vrblib/vrfnb1.f ****************************************************/ /* * SUBROUTINE VRFNB1(RX,RY,RZ,N,JX,JY,JZ,RFNB) * REAL RX(*),RY(*),RZ(*) */ SUBROUTINE VRFNB1( REAL (*) RX REAL (*) RY REAL (*) o RZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ REAL RFNB ) /***************************************************** * math1/vrblib/vradd.f ****************************************************/ /* * SUBROUTINE VRADD(RX,RY,RZ,N,JX,JY,JZ) * REAL RX(*),RY(*),RZ(*) */ SUBROUTINE VRADD( REAL (*) RX REAL (*) RY REAL (*) o RZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/vrblib/vradd0.f ****************************************************/ /* * SUBROUTINE VRADD0(RX,RY,RZ,N,JX,JY,JZ) * REAL RX(*),RY(*),RZ(*) */ SUBROUTINE VRADD0( REAL (*) RX REAL (*) RY REAL (*) o RZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/vrblib/vradd1.f ****************************************************/ /* * SUBROUTINE VRADD1(RX,RY,RZ,N,JX,JY,JZ) * REAL RX(*),RY(*),RZ(*) */ SUBROUTINE VRADD1( REAL (*) RX REAL (*) RY REAL (*) o RZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/vrblib/vrsub.f ****************************************************/ /* * SUBROUTINE VRSUB(RX,RY,RZ,N,JX,JY,JZ) * REAL RX(*),RY(*),RZ(*) */ SUBROUTINE VRSUB( REAL (*) RX REAL (*) RY REAL (*) o RZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/vrblib/vrsub0.f ****************************************************/ /* * SUBROUTINE VRSUB0(RX,RY,RZ,N,JX,JY,JZ) * REAL RX(*),RY(*),RZ(*) */ SUBROUTINE VRSUB0( REAL (*) RX REAL (*) RY REAL (*) o RZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/vrblib/vrsub1.f ****************************************************/ /* * SUBROUTINE VRSUB1(RX,RY,RZ,N,JX,JY,JZ) * REAL RX(*),RY(*),RZ(*) */ SUBROUTINE VRSUB1( REAL (*) RX REAL (*) RY REAL (*) o RZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/vrblib/vrmlt.f ****************************************************/ /* * SUBROUTINE VRMLT(RX,RY,RZ,N,JX,JY,JZ) * REAL RX(*),RY(*),RZ(*) */ SUBROUTINE VRMLT( REAL (*) RX REAL (*) RY REAL (*) o RZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/vrblib/vrmlt0.f ****************************************************/ /* * SUBROUTINE VRMLT0(RX,RY,RZ,N,JX,JY,JZ) * REAL RX(*),RY(*),RZ(*) */ SUBROUTINE VRMLT0( REAL (*) RX REAL (*) RY REAL (*) o RZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/vrblib/vrmlt1.f ****************************************************/ /* * SUBROUTINE VRMLT1(RX,RY,RZ,N,JX,JY,JZ) * REAL RX(*),RY(*),RZ(*) */ SUBROUTINE VRMLT1( REAL (*) RX REAL (*) RY REAL (*) o RZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/vrblib/vrdiv.f ****************************************************/ /* * SUBROUTINE VRDIV(RX,RY,RZ,N,JX,JY,JZ) * REAL RX(*),RY(*),RZ(*) */ SUBROUTINE VRDIV( REAL (*) RX REAL (*) RY REAL (*) o RZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/vrblib/vrdiv0.f ****************************************************/ /* * SUBROUTINE VRDIV0(RX,RY,RZ,N,JX,JY,JZ) * REAL RX(*),RY(*),RZ(*) */ SUBROUTINE VRDIV0( REAL (*) RX REAL (*) RY REAL (*) o RZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/vrblib/vrdiv1.f ****************************************************/ /* * SUBROUTINE VRDIV1(RX,RY,RZ,N,JX,JY,JZ) * REAL RX(*),RY(*),RZ(*) */ SUBROUTINE VRDIV1( REAL (*) RX REAL (*) RY REAL (*) o RZ INTEGER N INTEGER JX INTEGER JY INTEGER JZ ) /***************************************************** * math1/chrlib/cladj.f ****************************************************/ /* * SUBROUTINE CLADJ(CHR) * CHARACTER CHR*(*) */ SUBROUTINE CLADJ( CHARACTER*(*) io CHR ) /***************************************************** * math1/chrlib/lenb.f ****************************************************/ /* * INTEGER FUNCTION LENB(C) * CHARACTER C*(*) */ INTEGER FUNCTION LENB( CHARACTER*(*) C ) /***************************************************** * math1/chrlib/lenc.f ****************************************************/ /* * INTEGER FUNCTION LENC(C) * CHARACTER C*(*) */ INTEGER FUNCTION LENC( CHARACTER*(*) C ) /***************************************************** * math1/chrlib/leny.f ****************************************************/ /* * INTEGER FUNCTION LENY(C) * CHARACTER C*(*) */ INTEGER FUNCTION LENY( CHARACTER*(*) C ) /***************************************************** * math1/chrlib/lenz.f ****************************************************/ /* * INTEGER FUNCTION LENZ(C) * CHARACTER C*(*) */ INTEGER FUNCTION LENZ( CHARACTER*(*) C ) /***************************************************** * math1/chrlib/cradj.f ****************************************************/ /* * SUBROUTINE CRADJ(CHR) * CHARACTER CHR*(*) */ SUBROUTINE CRADJ( CHARACTER*(*) io CHR ) /***************************************************** * math1/chrlib/crvrs.f ****************************************************/ /* * SUBROUTINE CRVRS(CHR) * CHARACTER CHR*(*) */ SUBROUTINE CRVRS( CHARACTER*(*) io CHR ) /***************************************************** * math1/fnclib/igus.f ****************************************************/ /* * INTEGER FUNCTION IGUS(RX) */ INTEGER FUNCTION IGUS( REAL RX ) /***************************************************** * math1/fnclib/imod.f ****************************************************/ /* * INTEGER FUNCTION IMOD(IX,ID) */ INTEGER FUNCTION IMOD( INTEGER IX INTEGER ID ) /***************************************************** * math1/fnclib/rmod.f ****************************************************/ /* * REAL FUNCTION RMOD(RX,RD) */ REAL FUNCTION RMOD( REAL RX REAL RD ) /***************************************************** * math1/fnclib/rexp.f ****************************************************/ /* * REAL FUNCTION REXP(RX,IB,IE) */ REAL FUNCTION REXP( REAL RX INTEGER IB INTEGER IE ) /***************************************************** * math1/fnclib/rd2r.f ****************************************************/ /* * REAL FUNCTION RD2R(X) */ REAL FUNCTION RD2R( REAL X ) /***************************************************** * math1/fnclib/rr2d.f ****************************************************/ /* * REAL FUNCTION RR2D(X) */ REAL FUNCTION RR2D( REAL X ) /***************************************************** * math1/fnclib/rfpi.f ****************************************************/ /* * REAL FUNCTION RFPI() */ REAL FUNCTION RFPI( ) /***************************************************** * math1/ifalib/imax.f ****************************************************/ /* * INTEGER FUNCTION IMAX(IX,N,JX) * INTEGER IX(*) */ INTEGER FUNCTION IMAX( INTEGER (*) IX INTEGER N INTEGER JX ) /***************************************************** * math1/ifalib/imax0.f ****************************************************/ /* * INTEGER FUNCTION IMAX0(IX,N,JX) * INTEGER IX(*) */ INTEGER FUNCTION IMAX0( INTEGER (*) IX INTEGER N INTEGER JX ) /***************************************************** * math1/ifalib/imax1.f ****************************************************/ /* * INTEGER FUNCTION IMAX1(IX,N,JX) * INTEGER IX(*) */ INTEGER FUNCTION IMAX1( INTEGER (*) IX INTEGER N INTEGER JX ) /***************************************************** * math1/ifalib/imin.f ****************************************************/ /* * INTEGER FUNCTION IMIN(IX,N,JX) * INTEGER IX(*) */ INTEGER FUNCTION IMIN( INTEGER (*) IX INTEGER N INTEGER JX ) /***************************************************** * math1/ifalib/imin0.f ****************************************************/ /* * INTEGER FUNCTION IMIN0(IX,N,JX) * INTEGER IX(*) */ INTEGER FUNCTION IMIN0( INTEGER (*) IX INTEGER N INTEGER JX ) /***************************************************** * math1/ifalib/imin1.f ****************************************************/ /* * INTEGER FUNCTION IMIN1(IX,N,JX) * INTEGER IX(*) */ INTEGER FUNCTION IMIN1( INTEGER (*) IX INTEGER N INTEGER JX ) /***************************************************** * math1/ifalib/isum.f ****************************************************/ /* * INTEGER FUNCTION ISUM(IX,N,JX) * INTEGER IX(*) */ INTEGER FUNCTION ISUM( INTEGER (*) IX INTEGER N INTEGER JX ) /***************************************************** * math1/ifalib/isum0.f ****************************************************/ /* * INTEGER FUNCTION ISUM0(IX,N,JX) * INTEGER IX(*) */ INTEGER FUNCTION ISUM0( INTEGER (*) IX INTEGER N INTEGER JX ) /***************************************************** * math1/ifalib/isum1.f ****************************************************/ /* * INTEGER FUNCTION ISUM1(IX,N,JX) * INTEGER IX(*) */ INTEGER FUNCTION ISUM1( INTEGER (*) IX INTEGER N INTEGER JX ) /***************************************************** * math1/intlib/irlt.f ****************************************************/ /* * INTEGER FUNCTION IRLT(RX) */ INTEGER FUNCTION IRLT( REAL RX ) /***************************************************** * math1/intlib/irge.f ****************************************************/ /* * INTEGER FUNCTION IRGE(RX) */ INTEGER FUNCTION IRGE( REAL RX ) /***************************************************** * math1/intlib/irle.f ****************************************************/ /* * INTEGER FUNCTION IRLE(RX) */ INTEGER FUNCTION IRLE( REAL RX ) /***************************************************** * math1/intlib/irgt.f ****************************************************/ /* * INTEGER FUNCTION IRGT(RX) */ INTEGER FUNCTION IRGT( REAL RX ) /***************************************************** * math1/rfalib/rmax.f ****************************************************/ /* * REAL FUNCTION RMAX(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RMAX( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rmax0.f ****************************************************/ /* * REAL FUNCTION RMAX0(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RMAX0( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rmax1.f ****************************************************/ /* * REAL FUNCTION RMAX1(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RMAX1( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rmin.f ****************************************************/ /* * REAL FUNCTION RMIN(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RMIN( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rmin0.f ****************************************************/ /* * REAL FUNCTION RMIN0(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RMIN0( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rmin1.f ****************************************************/ /* * REAL FUNCTION RMIN1(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RMIN1( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rsum.f ****************************************************/ /* * REAL FUNCTION RSUM(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RSUM( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rsum0.f ****************************************************/ /* * REAL FUNCTION RSUM0(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RSUM0( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rsum1.f ****************************************************/ /* * REAL FUNCTION RSUM1(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RSUM1( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rave.f ****************************************************/ /* * REAL FUNCTION RAVE(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RAVE( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rave0.f ****************************************************/ /* * REAL FUNCTION RAVE0(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RAVE0( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rave1.f ****************************************************/ /* * REAL FUNCTION RAVE1(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RAVE1( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rvar.f ****************************************************/ /* * REAL FUNCTION RVAR(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RVAR( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rvar0.f ****************************************************/ /* * REAL FUNCTION RVAR0(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RVAR0( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rvar1.f ****************************************************/ /* * REAL FUNCTION RVAR1(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RVAR1( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rstd.f ****************************************************/ /* * REAL FUNCTION RSTD(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RSTD( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rstd0.f ****************************************************/ /* * REAL FUNCTION RSTD0(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RSTD0( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rstd1.f ****************************************************/ /* * REAL FUNCTION RSTD1(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RSTD1( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rrms.f ****************************************************/ /* * REAL FUNCTION RRMS(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RRMS( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rrms0.f ****************************************************/ /* * REAL FUNCTION RRMS0(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RRMS0( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rrms1.f ****************************************************/ /* * REAL FUNCTION RRMS1(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RRMS1( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/ramp.f ****************************************************/ /* * REAL FUNCTION RAMP(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RAMP( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/ramp0.f ****************************************************/ /* * REAL FUNCTION RAMP0(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RAMP0( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/ramp1.f ****************************************************/ /* * REAL FUNCTION RAMP1(RX,N,JX) * REAL RX(*) */ REAL FUNCTION RAMP1( REAL (*) RX INTEGER N INTEGER JX ) /***************************************************** * math1/rfalib/rvmax.f ****************************************************/ /* * REAL FUNCTION RVMAX(RX,NS,NP,NQ,ND) * REAL RX(*) * INTEGER NS(*),NP(*),NQ(*) */ REAL FUNCTION RVMAX( REAL (*) RX INTEGER (*) NS INTEGER (*) NP INTEGER (*) NQ INTEGER ND ) /***************************************************** * math1/rfalib/rvmax0.f ****************************************************/ /* * REAL FUNCTION RVMAX0(RX,NS,NP,NQ,ND) * REAL RX(*) * INTEGER NS(*),NP(*),NQ(*) */ REAL FUNCTION RVMAX0( REAL (*) RX INTEGER (*) NS INTEGER (*) NP INTEGER (*) NQ INTEGER ND ) /***************************************************** * math1/rfalib/rvmin.f ****************************************************/ /* * REAL FUNCTION RVMIN(RX,NS,NP,NQ,ND) * REAL RX(*) * INTEGER NS(*),NP(*),NQ(*) */ REAL FUNCTION RVMIN( REAL (*) RX INTEGER (*) NS INTEGER (*) NP INTEGER (*) NQ INTEGER ND ) /***************************************************** * math1/rfalib/rvmax1.f ****************************************************/ /* * REAL FUNCTION RVMAX1(RX,NS,NP,NQ,ND) * REAL RX(*) * INTEGER NS(*),NP(*),NQ(*) */ REAL FUNCTION RVMAX1( REAL (*) RX INTEGER (*) NS INTEGER (*) NP INTEGER (*) NQ INTEGER ND ) /***************************************************** * math1/rfalib/rvmin1.f ****************************************************/ /* * REAL FUNCTION RVMIN1(RX,NS,NP,NQ,ND) * REAL RX(*) * INTEGER NS(*),NP(*),NQ(*) */ REAL FUNCTION RVMIN1( REAL (*) RX INTEGER (*) NS INTEGER (*) NP INTEGER (*) NQ INTEGER ND ) /***************************************************** * math1/rfalib/rvmin0.f ****************************************************/ /* * REAL FUNCTION RVMIN0(RX,NS,NP,NQ,ND) * REAL RX(*) * INTEGER NS(*),NP(*),NQ(*) */ REAL FUNCTION RVMIN0( REAL (*) RX INTEGER (*) NS INTEGER (*) NP INTEGER (*) NQ INTEGER ND ) /***************************************************** * math1/sublib/vignn.f ****************************************************/ /* * SUBROUTINE VIGNN(IX,N,JX) * INTEGER IX(*) */ SUBROUTINE VIGNN( INTEGER (*) o IX INTEGER N INTEGER JX ) /***************************************************** * math1/sublib/vrgnn.f ****************************************************/ /* * SUBROUTINE VRGNN(RX,N,JX) * REAL RX(*) */ SUBROUTINE VRGNN( REAL (*) o RX INTEGER N INTEGER JX ) /***************************************************** * math1/sublib/dxfloc.f ****************************************************/ /* * SUBROUTINE DXFLOC(ND,NS,NP,NCP) * INTEGER NS(*),NP(*) */ SUBROUTINE DXFLOC( INTEGER ND INTEGER (*) NS INTEGER (*) NP INTEGER o NCP ) /***************************************************** * math1/sublib/dxiloc.f ****************************************************/ /* * SUBROUTINE DXILOC(ND,NS,NP,NCP) * INTEGER NS(*),NP(*) */ SUBROUTINE DXILOC( INTEGER ND INTEGER (*) NS INTEGER (*) o NP INTEGER NCP ) /***************************************************** * math1/vialib/vifna.f ****************************************************/ /* * SUBROUTINE VIFNA(IX,IY,N,JX,JY,IFNA) * INTEGER IX(*),IY(*) */ SUBROUTINE VIFNA( INTEGER (*) IX INTEGER (*) o IY INTEGER N INTEGER JX INTEGER JY INTEGER IFNA ) /***************************************************** * math1/vialib/vifna0.f ****************************************************/ /* * SUBROUTINE VIFNA0(IX,IY,N,JX,JY,IFNA) * INTEGER IX(*),IY(*) */ SUBROUTINE VIFNA0( INTEGER (*) IX INTEGER (*) o IY INTEGER N INTEGER JX INTEGER JY INTEGER IFNA ) /***************************************************** * math1/vialib/vifna1.f ****************************************************/ /* * SUBROUTINE VIFNA1(IX,IY,N,JX,JY,IFNA) * INTEGER IX(*),IY(*) */ SUBROUTINE VIFNA1( INTEGER (*) IX INTEGER (*) o IY INTEGER N INTEGER JX INTEGER JY INTEGER IFNA ) /***************************************************** * math1/vialib/viinc.f ****************************************************/ /* * SUBROUTINE VIINC(IX,IY,N,JX,JY,II) * INTEGER IX(*),IY(*) */ SUBROUTINE VIINC( INTEGER (*) IX INTEGER (*) o IY INTEGER N INTEGER JX INTEGER JY INTEGER II ) /***************************************************** * math1/vialib/viinc0.f ****************************************************/ /* * SUBROUTINE VIINC0(IX,IY,N,JX,JY,II) * INTEGER IX(*),IY(*) */ SUBROUTINE VIINC0( INTEGER (*) IX INTEGER (*) o IY INTEGER N INTEGER JX INTEGER JY INTEGER II ) /***************************************************** * math1/vialib/viinc1.f ****************************************************/ /* * SUBROUTINE VIINC1(IX,IY,N,JX,JY,II) * INTEGER IX(*),IY(*) */ SUBROUTINE VIINC1( INTEGER (*) IX INTEGER (*) o IY INTEGER N INTEGER JX INTEGER JY INTEGER II ) /***************************************************** * math1/vialib/vifct.f ****************************************************/ /* * SUBROUTINE VIFCT(IX,IY,N,JX,JY,II) * INTEGER IX(*),IY(*) */ SUBROUTINE VIFCT( INTEGER (*) IX INTEGER (*) o IY INTEGER N INTEGER JX INTEGER JY INTEGER II ) /***************************************************** * math1/vialib/vifct0.f ****************************************************/ /* * SUBROUTINE VIFCT0(IX,IY,N,JX,JY,II) * INTEGER IX(*),IY(*) */ SUBROUTINE VIFCT0( INTEGER (*) IX INTEGER (*) o IY INTEGER N INTEGER JX INTEGER JY INTEGER II ) /***************************************************** * math1/vialib/vifct1.f ****************************************************/ /* * SUBROUTINE VIFCT1(IX,IY,N,JX,JY,II) * INTEGER IX(*),IY(*) */ SUBROUTINE VIFCT1( INTEGER (*) IX INTEGER (*) o IY INTEGER N INTEGER JX INTEGER JY INTEGER II ) /***************************************************** * math1/vialib/vicon.f ****************************************************/ /* * SUBROUTINE VICON(IX,IY,N,JX,JY,II) * INTEGER IX(*),IY(*) */ SUBROUTINE VICON( INTEGER (*) IX INTEGER (*) o IY INTEGER N INTEGER JX INTEGER JY INTEGER II ) /***************************************************** * math1/vialib/vicon0.f ****************************************************/ /* * SUBROUTINE VICON0(IX,IY,N,JX,JY,II) * INTEGER IX(*),IY(*) */ SUBROUTINE VICON0( INTEGER (*) IX INTEGER (*) o IY INTEGER N INTEGER JX INTEGER JY INTEGER II ) /***************************************************** * math1/vialib/vicon1.f ****************************************************/ /* * SUBROUTINE VICON1(IX,IY,N,JX,JY,II) * INTEGER IX(*),IY(*) */ SUBROUTINE VICON1( INTEGER (*) IX INTEGER (*) o IY INTEGER N INTEGER JX INTEGER JY INTEGER II ) /***************************************************** * math1/vialib/viset.f ****************************************************/ /* * SUBROUTINE VISET(IX,IY,N,JX,JY) * INTEGER IX(*),IY(*) */ SUBROUTINE VISET( INTEGER (*) IX INTEGER (*) o IY INTEGER N INTEGER JX INTEGER JY ) /***************************************************** * math1/vialib/iadd.f ****************************************************/ /* * SUBROUTINE IADD(IX,N,JX,II) * INTEGER IX(*) */ SUBROUTINE IADD( INTEGER (*) io IX INTEGER N INTEGER JX INTEGER II ) /***************************************************** * math1/vialib/iadd0.f ****************************************************/ /* * SUBROUTINE IADD0(IX,N,JX,II) * INTEGER IX(*) */ SUBROUTINE IADD0( INTEGER (*) io IX INTEGER N INTEGER JX INTEGER II ) /***************************************************** * math1/vialib/iadd1.f ****************************************************/ /* * SUBROUTINE IADD1(IX,N,JX,II) * INTEGER IX(*) */ SUBROUTINE IADD1( INTEGER (*) io IX INTEGER N INTEGER JX INTEGER II ) /***************************************************** * math1/vialib/imlt.f ****************************************************/ /* * SUBROUTINE IMLT(IX,N,JX,II) * INTEGER IX(*) */ SUBROUTINE IMLT( INTEGER (*) io IX INTEGER N INTEGER JX INTEGER II ) /***************************************************** * math1/vialib/imlt0.f ****************************************************/ /* * SUBROUTINE IMLT0(IX,N,JX,II) * INTEGER IX(*) */ SUBROUTINE IMLT0( INTEGER (*) io IX INTEGER N INTEGER JX INTEGER II ) /***************************************************** * math1/vialib/imlt1.f ****************************************************/ /* * SUBROUTINE IMLT1(IX,N,JX,II) * INTEGER IX(*) */ SUBROUTINE IMLT1( INTEGER (*) io IX INTEGER N INTEGER JX INTEGER II ) /***************************************************** * math1/vialib/iset.f ****************************************************/ /* * SUBROUTINE ISET(IX,N,JX,II) * INTEGER IX(*) */ SUBROUTINE ISET( INTEGER (*) io IX INTEGER N INTEGER JX INTEGER II ) /***************************************************** * math1/vialib/iset0.f ****************************************************/ /* * SUBROUTINE ISET0(IX,N,JX,II) * INTEGER IX(*) */ SUBROUTINE ISET0( INTEGER (*) io IX INTEGER N INTEGER JX INTEGER II ) /***************************************************** * math1/vialib/iset1.f ****************************************************/ /* * SUBROUTINE ISET1(IX,N,JX,II) * INTEGER IX(*) */ SUBROUTINE ISET1( INTEGER (*) io IX INTEGER N INTEGER JX INTEGER II ) /***************************************************** * math1/vralib/vrfna.f ****************************************************/ /* * SUBROUTINE VRFNA(RX,RY,N,JX,JY,RFNA) * REAL RX(*),RY(*) */ SUBROUTINE VRFNA( REAL (*) RX REAL (*) o RY INTEGER N INTEGER JX INTEGER JY REAL RFNA ) /***************************************************** * math1/vralib/vrfna0.f ****************************************************/ /* * SUBROUTINE VRFNA0(RX,RY,N,JX,JY,RFNA) * REAL RX(*),RY(*) */ SUBROUTINE VRFNA0( REAL (*) RX REAL (*) o RY INTEGER N INTEGER JX INTEGER JY REAL RFNA ) /***************************************************** * math1/vralib/vrfna1.f ****************************************************/ /* * SUBROUTINE VRFNA1(RX,RY,N,JX,JY,RFNA) * REAL RX(*),RY(*) */ SUBROUTINE VRFNA1( REAL (*) RX REAL (*) o RY INTEGER N INTEGER JX INTEGER JY REAL RFNA ) /***************************************************** * math1/vralib/vrinc.f ****************************************************/ /* * SUBROUTINE VRINC(RX,RY,N,JX,JY,RR) * REAL RX(*),RY(*) */ SUBROUTINE VRINC( REAL (*) RX REAL (*) o RY INTEGER N INTEGER JX INTEGER JY REAL RR ) /***************************************************** * math1/vralib/vrinc0.f ****************************************************/ /* * SUBROUTINE VRINC0(RX,RY,N,JX,JY,RR) * REAL RX(*),RY(*) */ SUBROUTINE VRINC0( REAL (*) RX REAL (*) o RY INTEGER N INTEGER JX INTEGER JY REAL RR ) /***************************************************** * math1/vralib/vrinc1.f ****************************************************/ /* * SUBROUTINE VRINC1(RX,RY,N,JX,JY,RR) * REAL RX(*),RY(*) */ SUBROUTINE VRINC1( REAL (*) RX REAL (*) o RY INTEGER N INTEGER JX INTEGER JY REAL RR ) /***************************************************** * math1/vralib/vrfct.f ****************************************************/ /* * SUBROUTINE VRFCT(RX,RY,N,JX,JY,RR) * REAL RX(*),RY(*) */ SUBROUTINE VRFCT( REAL (*) RX REAL (*) o RY INTEGER N INTEGER JX INTEGER JY REAL RR ) /***************************************************** * math1/vralib/vrfct0.f ****************************************************/ /* * SUBROUTINE VRFCT0(RX,RY,N,JX,JY,RR) * REAL RX(*),RY(*) */ SUBROUTINE VRFCT0( REAL (*) RX REAL (*) o RY INTEGER N INTEGER JX INTEGER JY REAL RR ) /***************************************************** * math1/vralib/vrfct1.f ****************************************************/ /* * SUBROUTINE VRFCT1(RX,RY,N,JX,JY,RR) * REAL RX(*),RY(*) */ SUBROUTINE VRFCT1( REAL (*) RX REAL (*) o RY INTEGER N INTEGER JX INTEGER JY REAL RR ) /***************************************************** * math1/vralib/vrcon.f ****************************************************/ /* * SUBROUTINE VRCON(RX,RY,N,JX,JY,RR) * REAL RX(*),RY(*) */ SUBROUTINE VRCON( REAL (*) RX REAL (*) o RY INTEGER N INTEGER JX INTEGER JY REAL RR ) /***************************************************** * math1/vralib/vrcon0.f ****************************************************/ /* * SUBROUTINE VRCON0(RX,RY,N,JX,JY,RR) * REAL RX(*),RY(*) */ SUBROUTINE VRCON0( REAL (*) RX REAL (*) o RY INTEGER N INTEGER JX INTEGER JY REAL RR ) /***************************************************** * math1/vralib/vrcon1.f ****************************************************/ /* * SUBROUTINE VRCON1(RX,RY,N,JX,JY,RR) * REAL RX(*),RY(*) */ SUBROUTINE VRCON1( REAL (*) RX REAL (*) o RY INTEGER N INTEGER JX INTEGER JY REAL RR ) /***************************************************** * math1/vralib/vrset.f ****************************************************/ /* * SUBROUTINE VRSET(RX,RY,N,JX,JY) * REAL RX(*),RY(*) */ SUBROUTINE VRSET( REAL (*) RX REAL (*) o RY INTEGER N INTEGER JX INTEGER JY ) /***************************************************** * math1/vralib/radd.f ****************************************************/ /* * SUBROUTINE RADD(RX,N,JX,RR) * REAL RX(*) */ SUBROUTINE RADD( REAL (*) io RX INTEGER N INTEGER JX REAL RR ) /***************************************************** * math1/vralib/radd0.f ****************************************************/ /* * SUBROUTINE RADD0(RX,N,JX,RR) * REAL RX(*) */ SUBROUTINE RADD0( REAL (*) io RX INTEGER N INTEGER JX REAL RR ) /***************************************************** * math1/vralib/radd1.f ****************************************************/ /* * SUBROUTINE RADD1(RX,N,JX,RR) * REAL RX(*) */ SUBROUTINE RADD1( REAL (*) io RX INTEGER N INTEGER JX REAL RR ) /***************************************************** * math1/vralib/rmlt.f ****************************************************/ /* * SUBROUTINE RMLT(RX,N,JX,RR) * REAL RX(*) */ SUBROUTINE RMLT( REAL (*) io RX INTEGER N INTEGER JX REAL RR ) /***************************************************** * math1/vralib/rmlt0.f ****************************************************/ /* * SUBROUTINE RMLT0(RX,N,JX,RR) * REAL RX(*) */ SUBROUTINE RMLT0( REAL (*) io RX INTEGER N INTEGER JX REAL RR ) /***************************************************** * math1/vralib/rmlt1.f ****************************************************/ /* * SUBROUTINE RMLT1(RX,N,JX,RR) * REAL RX(*) */ SUBROUTINE RMLT1( REAL (*) io RX INTEGER N INTEGER JX REAL RR ) /***************************************************** * math1/vralib/rset.f ****************************************************/ /* * SUBROUTINE RSET(RX,N,JX,RR) * REAL RX(*) */ SUBROUTINE RSET( REAL (*) io RX INTEGER N INTEGER JX REAL RR ) /***************************************************** * math1/vralib/rset0.f ****************************************************/ /* * SUBROUTINE RSET0(RX,N,JX,RR) * REAL RX(*) */ SUBROUTINE RSET0( REAL (*) io RX INTEGER N INTEGER JX REAL RR ) /***************************************************** * math1/vralib/rset1.f ****************************************************/ /* * SUBROUTINE RSET1(RX,N,JX,RR) * REAL RX(*) */ SUBROUTINE RSET1( REAL (*) io RX INTEGER N INTEGER JX REAL RR ) /***************************************************** * math1/maplib/mpfcyl.f ****************************************************/ /* * SUBROUTINE MPFCYL(XLON, YLAT, X, Y) */ SUBROUTINE MPFCYL( REAL XLON REAL YLAT REAL o X REAL o Y ) /* * ENTRY MPICYL(X, Y, XLON, YLAT) */ SUBROUTINE MPICYL( REAL X REAL Y REAL o XLON REAL o YLAT ) /***************************************************** * math1/maplib/mpfmer.f ****************************************************/ /* * SUBROUTINE MPFMER(XLON, YLAT, X, Y) */ SUBROUTINE MPFMER( REAL XLON REAL YLAT REAL o X REAL o Y ) /* * ENTRY MPIMER(X, Y, XLON, YLAT) */ SUBROUTINE MPIMER( REAL X REAL Y REAL o XLON REAL o YLAT ) /***************************************************** * math1/maplib/mpfmwd.f ****************************************************/ /* * SUBROUTINE MPFMWD(XLON, YLAT, X, Y) */ SUBROUTINE MPFMWD( REAL XLON REAL YLAT REAL o X REAL o Y ) /* * ENTRY MPIMWD(X, Y, XLON, YLAT) */ SUBROUTINE MPIMWD( REAL X REAL Y REAL o XLON REAL o YLAT ) /***************************************************** * math1/maplib/mpfmwl.f ****************************************************/ /* * SUBROUTINE MPFMWL(XLON, YLAT, X, Y) */ SUBROUTINE MPFMWL( REAL XLON REAL YLAT REAL o X REAL o Y ) /* * ENTRY MPIMWL(X, Y, XLON, YLAT) */ SUBROUTINE MPIMWL( REAL X REAL Y REAL o XLON REAL o YLAT ) /***************************************************** * math1/maplib/mpfhmr.f ****************************************************/ /* * SUBROUTINE MPFHMR(XLON, YLAT, X, Y) */ SUBROUTINE MPFHMR( REAL XLON REAL YLAT REAL o X REAL o Y ) /* * ENTRY MPIHMR(X, Y, XLON, YLAT) */ SUBROUTINE MPIHMR( REAL X REAL Y REAL o XLON REAL o YLAT ) /***************************************************** * math1/maplib/mpfek6.f ****************************************************/ /* * SUBROUTINE MPFEK6(XLON, YLAT, X, Y) */ SUBROUTINE MPFEK6( REAL XLON REAL YLAT REAL o X REAL o Y ) /* * ENTRY MPIEK6(X, Y, XLON, YLAT) */ SUBROUTINE MPIEK6( REAL X REAL Y REAL o XLON REAL o YLAT ) /***************************************************** * math1/maplib/mpfktd.f ****************************************************/ /* * SUBROUTINE MPFKTD(XLON, YLAT, X, Y) */ SUBROUTINE MPFKTD( REAL XLON REAL YLAT REAL o X REAL o Y ) /* * ENTRY MPIKTD(X, Y, XLON, YLAT) */ SUBROUTINE MPIKTD( REAL X REAL Y REAL o XLON REAL o YLAT ) /***************************************************** * math1/maplib/mpfcon.f ****************************************************/ /* * SUBROUTINE MPFCON(XLON, YLAT, X, Y) */ SUBROUTINE MPFCON( REAL XLON REAL YLAT REAL o X REAL o Y ) /* * ENTRY MPICON(X, Y, XLON, YLAT) */ SUBROUTINE MPICON( REAL X REAL Y REAL o XLON REAL o YLAT ) /* * ENTRY MPSCON(YLAT0) */ SUBROUTINE MPSCON( REAL YLAT0 ) /***************************************************** * math1/maplib/mpfcoa.f ****************************************************/ /* * SUBROUTINE MPFCOA(XLON, YLAT, X, Y) */ SUBROUTINE MPFCOA( REAL XLON REAL YLAT REAL o X REAL o Y ) /* * ENTRY MPICOA(X, Y, XLON, YLAT) */ SUBROUTINE MPICOA( REAL X REAL Y REAL o XLON REAL o YLAT ) /* * ENTRY MPSCOA(YLAT0) */ SUBROUTINE MPSCOA( REAL YLAT0 ) /***************************************************** * math1/maplib/mpfcoc.f ****************************************************/ /* * SUBROUTINE MPFCOC(XLON, YLAT, X, Y) */ SUBROUTINE MPFCOC( REAL XLON REAL YLAT REAL o X REAL o Y ) /* * ENTRY MPICOC(X, Y, XLON, YLAT) */ SUBROUTINE MPICOC( REAL X REAL Y REAL o XLON REAL o YLAT ) /* * ENTRY MPSCOC(YLAT1, YLAT2) */ SUBROUTINE MPSCOC( REAL YLAT1 REAL YLAT2 ) /***************************************************** * math1/maplib/mpfbon.f ****************************************************/ /* * SUBROUTINE MPFBON(XLON, YLAT, X, Y) */ SUBROUTINE MPFBON( REAL XLON REAL YLAT REAL o X REAL o Y ) /* * ENTRY MPIBON(X, Y, XLON, YLAT) */ SUBROUTINE MPIBON( REAL X REAL Y REAL o XLON REAL o YLAT ) /* * ENTRY MPSBON(YLAT0) */ SUBROUTINE MPSBON( REAL YLAT0 ) /***************************************************** * math1/maplib/mpfotg.f ****************************************************/ /* * SUBROUTINE MPFOTG(XLON, YLAT, X, Y) */ SUBROUTINE MPFOTG( REAL XLON REAL YLAT REAL o X REAL o Y ) /* * ENTRY MPIOTG(X, Y, XLON, YLAT) */ SUBROUTINE MPIOTG( REAL X REAL Y REAL o XLON REAL o YLAT ) /* * ENTRY MPSOTG(R0) */ SUBROUTINE MPSOTG( REAL R0 ) /***************************************************** * math1/maplib/mpfpst.f ****************************************************/ /* * SUBROUTINE MPFPST(XLON, YLAT, X, Y) */ SUBROUTINE MPFPST( REAL XLON REAL YLAT REAL o X REAL o Y ) /* * ENTRY MPIPST(X, Y, XLON, YLAT) */ SUBROUTINE MPIPST( REAL X REAL Y REAL o XLON REAL o YLAT ) /***************************************************** * math1/maplib/mpfazm.f ****************************************************/ /* * SUBROUTINE MPFAZM(XLON, YLAT, X, Y) */ SUBROUTINE MPFAZM( REAL XLON REAL YLAT REAL o X REAL o Y ) /* * ENTRY MPIAZM(X, Y, XLON, YLAT) */ SUBROUTINE MPIAZM( REAL X REAL Y REAL o XLON REAL o YLAT ) /***************************************************** * math1/maplib/mpfaza.f ****************************************************/ /* * SUBROUTINE MPFAZA(XLON, YLAT, X, Y) */ SUBROUTINE MPFAZA( REAL XLON REAL YLAT REAL o X REAL o Y ) /* * ENTRY MPIAZA(X, Y, XLON, YLAT) */ SUBROUTINE MPIAZA( REAL X REAL Y REAL o XLON REAL o YLAT ) /***************************************************** * math1/maplib/mpzmwd.f ****************************************************/ /* * SUBROUTINE MPZMWD(PHI, ALPHA, F, DF) */ SUBROUTINE MPZMWD( REAL PHI REAL ALPHA REAL o F REAL o DF ) /***************************************************** * math1/maplib/mpzek6.f ****************************************************/ /* * SUBROUTINE MPZEK6(PHI, ALPHA, F, DF) */ SUBROUTINE MPZEK6( REAL PHI REAL ALPHA REAL o F REAL o DF ) /***************************************************** * math1/maplib/mpzktd.f ****************************************************/ /* * SUBROUTINE MPZKTD(PHI, ALPHA, F, DF) */ SUBROUTINE MPZKTD( REAL PHI REAL ALPHA REAL o F REAL o DF ) /***************************************************** * math1/maplib/mpznwt.f ****************************************************/ /* * SUBROUTINE MPZNWT(FUNC, PHI, ALPHA) */ SUBROUTINE MPZNWT( REAL FUNC REAL PHI REAL o ALPHA ) /***************************************************** * math1/maplib/xmplon.f ****************************************************/ /* * REAL FUNCTION XMPLON(XLON) */ REAL FUNCTION XMPLON( REAL XLON ) /***************************************************** * math1/ctrlib/ct2cp.f ****************************************************/ /* * SUBROUTINE CT2CP(X, Y, R, THETA) */ SUBROUTINE CT2CP( REAL X REAL Y REAL o R REAL o THETA ) /***************************************************** * math1/ctrlib/ct2pc.f ****************************************************/ /* * SUBROUTINE CT2PC(R, THETA, X, Y) */ SUBROUTINE CT2PC( REAL R REAL THETA REAL o X REAL o Y ) /***************************************************** * math1/ctrlib/ct3cs.f ****************************************************/ /* * SUBROUTINE CT3CS(X, Y, Z, R, THETA, PHI) */ SUBROUTINE CT3CS( REAL X REAL Y REAL Z REAL o R REAL o THETA REAL o PHI ) /***************************************************** * math1/ctrlib/ct3sc.f ****************************************************/ /* * SUBROUTINE CT3SC(R, THETA, PHI, X, Y, Z) */ SUBROUTINE CT3SC( REAL R REAL THETA REAL PHI REAL o X REAL o Y REAL o Z ) /***************************************************** * math1/ctrlib/cr2c.f ****************************************************/ /* * SUBROUTINE CR2C(THETA, X0, Y0, X1, Y1) */ SUBROUTINE CR2C( REAL THETA REAL X0 REAL Y0 REAL o X1 REAL o Y1 ) /***************************************************** * math1/ctrlib/cr3c.f ****************************************************/ /* * SUBROUTINE CR3C(THETA, PHI, PSI, X0, Y0, Z0, X1, Y1, Z1) */ SUBROUTINE CR3C( REAL THETA REAL PHI REAL PSI REAL X0 REAL Y0 REAL Z0 REAL o X1 REAL o Y1 REAL o Z1 ) /***************************************************** * math1/ctrlib/cr3s.f ****************************************************/ /* * SUBROUTINE CR3S(THETA, PHI, PSI, THETA0, PHI0, THETA1, PHI1) */ SUBROUTINE CR3S( REAL THETA REAL PHI REAL PSI REAL THETA0 REAL PHI0 REAL o THETA1 REAL o PHI1 ) /***************************************************** * math1/ctrlib/ct2bc.f ****************************************************/ /* * SUBROUTINE CT2BC(U, V, X, Y) */ SUBROUTINE CT2BC( REAL U REAL V REAL o X REAL o Y ) /***************************************************** * math1/ctrlib/ct2hc.f ****************************************************/ /* * SUBROUTINE CT2HC(U, V, X, Y) */ SUBROUTINE CT2HC( REAL U REAL V REAL o X REAL o Y ) /***************************************************** * math1/ctrlib/ct2ec.f ****************************************************/ /* * SUBROUTINE CT2EC(U, V, X, Y) */ SUBROUTINE CT2EC( REAL U REAL V REAL o X REAL o Y ) /***************************************************** * math1/ctrlib/ct2ch.f ****************************************************/ /* * SUBROUTINE CT2CH(X, Y, U, V) */ SUBROUTINE CT2CH( REAL X REAL Y REAL o U REAL o V ) /***************************************************** * math1/oslib/osqarn.f.dummy ****************************************************/ /* * SUBROUTINE OSQARN(N) */ SUBROUTINE OSQARN( INTEGER o N ) /***************************************************** * math1/oslib/osgarg.f.dummy ****************************************************/ /* * SUBROUTINE OSGARG(N, CHR) * CHARACTER CHAR*(*) */ SUBROUTINE OSGARG( INTEGER N CHARACTER*(*) o CHR ) /***************************************************** * math1/xfclib/jfromc.f ****************************************************/ /* * INTEGER FUNCTION JFROMC(CX) * CHARACTER CX*(*) */ INTEGER FUNCTION JFROMC( CHARACTER*(*) CX ) /***************************************************** * math1/xfclib/ifromc.f ****************************************************/ /* * INTEGER FUNCTION IFROMC(CX) * CHARACTER CX*(*) */ INTEGER FUNCTION IFROMC( CHARACTER*(*) CX ) /***************************************************** * math1/xfclib/lfromc.f ****************************************************/ /* * LOGICAL FUNCTION LFROMC(CX) * CHARACTER CX*(*) */ LOGICAL FUNCTION LFROMC( CHARACTER*(*) CX ) /***************************************************** * math1/xfclib/ffromc.f ****************************************************/ /* * REAL FUNCTION FFROMC(CX) * CHARACTER CX*(*) */ REAL FUNCTION FFROMC( CHARACTER*(*) CX ) /***************************************************** * math1/xfclib/rfromc.f ****************************************************/ /* * REAL FUNCTION RFROMC(CX) * CHARACTER CX*(*) */ REAL FUNCTION RFROMC( CHARACTER*(*) CX )