/* * misc1.f77proto * $Id: misc1.f77proto,v 1.2 2000/11/05 14:39:34 keiko Exp $ */ /***************************************************** * misc1/bitlib/bitpci.f ****************************************************/ /* * SUBROUTINE BITPCI(CP,IP) * CHARACTER CP*(*) */ SUBROUTINE BITPCI( CHARACTER*(*) CP INTEGER o IP ) /***************************************************** * misc1/bitlib/bitpic.f ****************************************************/ /* * SUBROUTINE BITPIC(IP,CP) * CHARACTER CP*(*) */ SUBROUTINE BITPIC( INTEGER IP CHARACTER*(*) o CP ) /***************************************************** * misc1/bitlib/gbyte.f ****************************************************/ /* * SUBROUTINE GBYTE(NPACK,IOUT,IBIT,NBITS) * INTEGER NPACK(*) */ SUBROUTINE GBYTE( INTEGER (*) NPACK INTEGER o IOUT INTEGER IBIT INTEGER NBITS ) /***************************************************** * misc1/bitlib/gbytes.f ****************************************************/ /* * SUBROUTINE GBYTES(NPACK,ISAM,IBIT,NBITS,NSKIP,ITER) * IMPLICIT INTEGER (A-Z) * INTEGER NPACK(*),ISAM(*) */ SUBROUTINE GBYTES( INTEGER (*) NPACK INTEGER (*) o ISAM INTEGER IBIT INTEGER NBITS INTEGER NSKIP INTEGER ITER ) /***************************************************** * misc1/bitlib/sbyte.f ****************************************************/ /* * SUBROUTINE SBYTE(NPACK,IOUT,IBIT,NBITS) * INTEGER NPACK(*) */ SUBROUTINE SBYTE( INTEGER (*) io NPACK INTEGER IOUT INTEGER IBIT INTEGER NBITS ) /***************************************************** * misc1/bitlib/sbytes.f ****************************************************/ /* * SUBROUTINE SBYTES (NPACK,ISAM,IBIT,NBITS,NSKIP,ITER) * IMPLICIT INTEGER (A-Z) * INTEGER ISAM(*),NPACK(*) */ SUBROUTINE SBYTES( INTEGER (*) io NPACK INTEGER (*) ISAM INTEGER IBIT INTEGER NBITS INTEGER NSKIP INTEGER ITER ) /***************************************************** * misc1/chglib/clower.f ****************************************************/ /* * SUBROUTINE CLOWER(CH) * CHARACTER CH*(*) */ SUBROUTINE CLOWER( CHARACTER*(*) io CH ) /***************************************************** * misc1/chglib/cupper.f ****************************************************/ /* * SUBROUTINE CUPPER(CH) * CHARACTER CH*(*) */ SUBROUTINE CUPPER( CHARACTER*(*) io CH ) /***************************************************** * misc1/chklib/lchrb.f ****************************************************/ /* * LOGICAL FUNCTION LCHRB(CH) * CHARACTER CH*(*) */ LOGICAL FUNCTION LCHRB( CHARACTER*(*) CH ) /***************************************************** * misc1/chklib/lchrc.f ****************************************************/ /* * LOGICAL FUNCTION LCHRC(CH) * CHARACTER CH*(*) */ LOGICAL FUNCTION LCHRC( CHARACTER*(*) CH ) /***************************************************** * misc1/chklib/lchrs.f ****************************************************/ /* * LOGICAL FUNCTION LCHRS(CH) * CHARACTER CH*(*) */ LOGICAL FUNCTION LCHRS( CHARACTER*(*) CH ) /***************************************************** * misc1/chklib/lchrl.f ****************************************************/ /* * LOGICAL FUNCTION LCHRL(CH) * CHARACTER CH*(*) */ LOGICAL FUNCTION LCHRL( CHARACTER*(*) CH ) /***************************************************** * misc1/chklib/lchrd.f ****************************************************/ /* * LOGICAL FUNCTION LCHRD(CH) * CHARACTER CH*(*) */ LOGICAL FUNCTION LCHRD( CHARACTER*(*) CH ) /***************************************************** * misc1/chklib/lchra.f ****************************************************/ /* * LOGICAL FUNCTION LCHRA(CH) * CHARACTER CH*(*) */ LOGICAL FUNCTION LCHRA( CHARACTER*(*) CH ) /***************************************************** * misc1/chklib/lchrf.f ****************************************************/ /* * LOGICAL FUNCTION LCHRF(CH) * CHARACTER CH*(*) */ LOGICAL FUNCTION LCHRF( CHARACTER*(*) CH ) /***************************************************** * misc1/chklib/lchr.f ****************************************************/ /* * LOGICAL FUNCTION LCHR(CHAR,CREF) * CHARACTER CH*(*),CREF*(*) */ LOGICAL FUNCTION LCHR( CHARACTER*(*) CH CHARACTER*(*) CREF ) /***************************************************** * misc1/fmtlib/chval.f ****************************************************/ /* * SUBROUTINE CHVAL(CFMT,VAL,CVAL) * CHARACTER CFMT*(*),CVAL*(*) */ SUBROUTINE CHVAL( CHARACTER*(*) CFMT REAL VAL CHARACTER*(*) o CVAL ) /***************************************************** * misc1/hexlib/hexdic.f ****************************************************/ /* * SUBROUTINE HEXDIC(IP,CP) * CHARACTER CP*(*) */ SUBROUTINE HEXDIC( INTEGER IP CHARACTER*(*) o CP ) /***************************************************** * misc1/hexlib/hexdci.f ****************************************************/ /* * SUBROUTINE HEXDCI(CP,IP) * CHARACTER CP*(*) */ SUBROUTINE HEXDCI( CHARACTER*(*) CP INTEGER o IP ) /***************************************************** * misc1/datelib/date12.f ****************************************************/ /* * SUBROUTINE DATE12(IDATE,IY,ITD) */ SUBROUTINE DATE12( INTEGER IDATE INTEGER o IY INTEGER o ITD ) /***************************************************** * misc1/datelib/date13.f ****************************************************/ /* * SUBROUTINE DATE13(IDATE,IY,IM,ID) */ SUBROUTINE DATE13( INTEGER IDATE INTEGER o IY INTEGER o IM INTEGER o ID ) /***************************************************** * misc1/datelib/date21.f ****************************************************/ /* * SUBROUTINE DATE21(IDATE,IY,ITD) */ SUBROUTINE DATE21( INTEGER o IDATE INTEGER IY INTEGER ITD ) /***************************************************** * misc1/datelib/date23.f ****************************************************/ /* * SUBROUTINE DATE23(IY,IM,ID,ITD) */ SUBROUTINE DATE23( INTEGER io IY INTEGER o IM INTEGER o ID INTEGER ITD ) /***************************************************** * misc1/datelib/date31.f ****************************************************/ /* * SUBROUTINE DATE31(IDATE,IY,IM,ID) */ SUBROUTINE DATE31( INTEGER o IDATE INTEGER IY INTEGER IM INTEGER ID ) /***************************************************** * misc1/datelib/date32.f ****************************************************/ /* * SUBROUTINE DATE32(IY,IM,ID,ITD) */ SUBROUTINE DATE32( INTEGER io IY INTEGER IM INTEGER ID INTEGER o ITD ) /***************************************************** * misc1/datelib/datef1.f ****************************************************/ /* * SUBROUTINE DATEF1(N,IDATE,NDATE) */ SUBROUTINE DATEF1( INTEGER N INTEGER IDATE INTEGER o NDATE ) /***************************************************** * misc1/datelib/datef2.f ****************************************************/ /* * SUBROUTINE DATEF2(N,IY,ITD,NY,NTD) */ SUBROUTINE DATEF2( INTEGER N INTEGER IY INTEGER ITD INTEGER o NY INTEGER o NTD ) /***************************************************** * misc1/datelib/datef3.f ****************************************************/ /* * SUBROUTINE DATEF3(N,IY,IM,ID,NY,NM,ND) */ SUBROUTINE DATEF3( INTEGER N INTEGER IY INTEGER IM INTEGER ID INTEGER o NY INTEGER o NM INTEGER o ND ) /***************************************************** * misc1/datelib/dateg1.f ****************************************************/ /* * SUBROUTINE DATEG1(N,IDATE,NDATE) */ SUBROUTINE DATEG1( INTEGER o N INTEGER IDATE INTEGER NDATE ) /***************************************************** * misc1/datelib/dateg2.f ****************************************************/ /* * SUBROUTINE DATEG2(N,IY,ITD,NY,NTD) */ SUBROUTINE DATEG2( INTEGER o N INTEGER IY INTEGER ITD INTEGER NY INTEGER NTD ) /***************************************************** * misc1/datelib/dateg3.f ****************************************************/ /* * SUBROUTINE DATEG3(N,IY,IM,ID,NY,NM,ND) */ SUBROUTINE DATEG3( INTEGER o N INTEGER IY INTEGER IM INTEGER ID INTEGER NY INTEGER NM INTEGER ND ) /***************************************************** * misc1/datelib/ndate1.f ****************************************************/ /* * INTEGER FUNCTION NDATE1(IDATE,NDATE) */ INTEGER FUNCTION NDATE1( INTEGER IDATE INTEGER NDATE ) /***************************************************** * misc1/datelib/ndate2.f ****************************************************/ /* * INTEGER FUNCTION NDATE2(IY,ITD,NY,NTD) */ INTEGER FUNCTION NDATE2( INTEGER IY INTEGER ITD INTEGER NY INTEGER NTD ) /***************************************************** * misc1/datelib/ndate3.f ****************************************************/ /* * INTEGER FUNCTION NDATE3(IY,IM,ID,NY,NM,ND) */ INTEGER FUNCTION NDATE3( INTEGER IY INTEGER IM INTEGER ID INTEGER NY INTEGER NM INTEGER ND ) /***************************************************** * misc1/datelib/datec1.f ****************************************************/ /* * SUBROUTINE DATEC1(CFORM,IDATE) * CHARACTER CFORM*(*) */ SUBROUTINE DATEC1( CHARACTER*(*) io CFORM INTEGER IDATE ) /***************************************************** * misc1/datelib/datec2.f ****************************************************/ /* * SUBROUTINE DATEC2(CFORM,IY,ITD) * CHARACTER CFORM*(*) */ SUBROUTINE DATEC2( CHARACTER*(*) io CFORM INTEGER IY INTEGER ITD ) /***************************************************** * misc1/datelib/datec3.f ****************************************************/ /* * SUBROUTINE DATEC3(CFORM,IY,IM,ID) * CHARACTER CFORM*(*) */ SUBROUTINE DATEC3( CHARACTER*(*) io CFORM INTEGER IY INTEGER IM INTEGER ID ) /***************************************************** * misc1/datelib/dateq1.f ****************************************************/ /* * SUBROUTINE DATEQ1(IDATE) */ SUBROUTINE DATEQ1( INTEGER o IDATE ) /***************************************************** * misc1/datelib/ndmon.f ****************************************************/ /* * INTEGER FUNCTION NDMON(IY,IM) */ INTEGER FUNCTION NDMON( INTEGER IY INTEGER IM ) /***************************************************** * misc1/datelib/dateq2.f ****************************************************/ /* * SUBROUTINE DATEQ2(IY, ITD) */ SUBROUTINE DATEQ2( INTEGER o IY INTEGER o ITD ) /***************************************************** * misc1/datelib/cmon.f ****************************************************/ /* * CHARACTER*(*) FUNCTION CMON(IM) */ CHARACTER*(*) FUNCTION CMON( INTEGER IM ) /***************************************************** * misc1/datelib/cweek.f ****************************************************/ /* * CHARACTER*(*) FUNCTION CWEEK(IW) */ CHARACTER*(*) FUNCTION CWEEK( INTEGER IW ) /***************************************************** * misc1/datelib/iweek1.f ****************************************************/ /* * INTEGER FUNCTION IWEEK1(IDATE) */ INTEGER FUNCTION IWEEK1( INTEGER IDATE ) /***************************************************** * misc1/datelib/iweek2.f ****************************************************/ /* * INTEGER FUNCTION IWEEK2(IY,ITD) */ INTEGER FUNCTION IWEEK2( INTEGER IY INTEGER ITD ) /***************************************************** * misc1/datelib/iweek3.f ****************************************************/ /* * INTEGER FUNCTION IWEEK3(IY,IM,ID) */ INTEGER FUNCTION IWEEK3( INTEGER IY INTEGER IM INTEGER ID ) /***************************************************** * misc1/datelib/ndyear.f ****************************************************/ /* * INTEGER FUNCTION NDYEAR(IY) */ INTEGER FUNCTION NDYEAR( INTEGER IY ) /***************************************************** * misc1/fiolib/fcpack.f ****************************************************/ /* * SUBROUTINE FCPACK */ SUBROUTINE FCPACK( ) /* * ENTRY FCSLFC(CLX) * CHARACTER CDSN*(*),CACT*(*),CBUF*(*),CLX*(*) */ SUBROUTINE FCSLFC( CHARACTER*(*) CLX ) /* * ENTRY FCLEOL(IOU,LEOL) * LOGICAL LEOL */ SUBROUTINE FCLEOL( INTEGER IOU LOGICAL LEOL ) /* * ENTRY FCOPEN(IOU,CDSN,NRL,CACT,ICON) * CHARACTER CDSN*(*),CACT*(*),CBUF*(*),CLX*(*) */ SUBROUTINE FCOPEN( INTEGER IOU CHARACTER*(*) CDSN INTEGER NRL CHARACTER*(*) CACT INTEGER ICON ) /* * ENTRY FCCLOS(IOU,ICON) */ SUBROUTINE FCCLOS( INTEGER IOU INTEGER ICON ) /* * ENTRY FCNREC(IOU,NREC) */ SUBROUTINE FCNREC( INTEGER IOU INTEGER NREC ) /* * ENTRY FCGETR(IOU,CBUF,ICON) * CHARACTER CDSN*(*),CACT*(*),CBUF*(*),CLX*(*) */ SUBROUTINE FCGETR( INTEGER IOU CHARACTER*(*) o CBUF INTEGER ICON ) /* * ENTRY FCPUTR(IOU,CBUF,ICON) * CHARACTER CDSN*(*),CACT*(*),CBUF*(*),CLX*(*) */ SUBROUTINE FCPUTR( INTEGER IOU CHARACTER*(*) CBUF INTEGER ICON ) /* * ENTRY FCGETS(IOU,IBUF,ICON) * INTEGER IBUF(*) */ SUBROUTINE FCGETS( INTEGER IOU INTEGER (*) o IBUF INTEGER ICON ) /* * ENTRY FCPUTS(IOU,IBUF,ICON) * INTEGER IBUF(*) */ SUBROUTINE FCPUTS( INTEGER IOU INTEGER (*) IBUF INTEGER ICON ) /* * ENTRY FCRWND(IOU,ICON) */ SUBROUTINE FCRWND( INTEGER IOU INTEGER ICON ) /***************************************************** * misc1/timelib/time12.f ****************************************************/ /* * SUBROUTINE TIME12(ITIME,ITT) */ SUBROUTINE TIME12( INTEGER ITIME INTEGER o ITT ) /***************************************************** * misc1/timelib/time13.f ****************************************************/ /* * SUBROUTINE TIME13(ITIME,IH,IM,IS) */ SUBROUTINE TIME13( INTEGER ITIME INTEGER o IH INTEGER o IM INTEGER o IS ) /***************************************************** * misc1/timelib/time21.f ****************************************************/ /* * SUBROUTINE TIME21(ITIME,ITT) */ SUBROUTINE TIME21( INTEGER o ITIME INTEGER ITT ) /***************************************************** * misc1/timelib/time23.f ****************************************************/ /* * SUBROUTINE TIME23(IH,IM,IS,ITT) */ SUBROUTINE TIME23( INTEGER o IH INTEGER o IM INTEGER o IS INTEGER ITT ) /***************************************************** * misc1/timelib/time31.f ****************************************************/ /* * SUBROUTINE TIME31(ITIME,IH,IM,IS) */ SUBROUTINE TIME31( INTEGER o ITIME INTEGER IH INTEGER IM INTEGER IS ) /***************************************************** * misc1/timelib/time32.f ****************************************************/ /* * SUBROUTINE TIME32(IH,IM,IS,ITT) */ SUBROUTINE TIME32( INTEGER IH INTEGER IM INTEGER IS INTEGER o ITT ) /***************************************************** * misc1/timelib/timec1.f ****************************************************/ /* * SUBROUTINE TIMEC1(CFORM,ITIME) * CHARACTER CFORM*(*) */ SUBROUTINE TIMEC1( CHARACTER*(*) io CFORM INTEGER ITIME ) /***************************************************** * misc1/timelib/timec2.f ****************************************************/ /* * SUBROUTINE TIMEC2(CFORM,ITT) * CHARACTER CFORM*(*) */ SUBROUTINE TIMEC2( CHARACTER*(*) io CFORM INTEGER ITT ) /***************************************************** * misc1/timelib/timec3.f ****************************************************/ /* * SUBROUTINE TIMEC3(CFORM,IH,IM,IS) * CHARACTER CFORM*(*) */ SUBROUTINE TIMEC3( CHARACTER*(*) io CFORM INTEGER IH INTEGER IM INTEGER IS ) /***************************************************** * misc1/timelib/timeq1.f ****************************************************/ /* * SUBROUTINE TIMEQ1(ITIME) */ SUBROUTINE TIMEQ1( INTEGER o ITIME ) /***************************************************** * misc1/timelib/timeq2.f ****************************************************/ /* * SUBROUTINE TIMEQ2(ITT) */ SUBROUTINE TIMEQ2( INTEGER o ITT ) /***************************************************** * misc1/reallib/r4ibm.f ****************************************************/ /* * REAL FUNCTION R4IBM(II) */ REAL FUNCTION R4IBM( INTEGER II ) /***************************************************** * misc1/reallib/r4ieee.f ****************************************************/ /* * REAL FUNCTION R4IEEE(II) */ REAL FUNCTION R4IEEE( INTEGER II ) /***************************************************** * misc1/chnlib/chngc.f ****************************************************/ /* * SUBROUTINE CHNGC(CH,CA,CB) * CHARACTER CH*(*),CA*(*),CB*(*) */ SUBROUTINE CHNGC( CHARACTER*(*) io CH CHARACTER*(*) CA CHARACTER*(*) CB ) /***************************************************** * misc1/chnlib/chngi.f ****************************************************/ /* * SUBROUTINE CHNGI(CH,CA,II,CFMT) * CHARACTER CH*(*),CA*(*),CFMT*(*) */ SUBROUTINE CHNGI( CHARACTER*(*) io CH CHARACTER*(*) CA INTEGER II CHARACTER*(*) CFMT ) /***************************************************** * misc1/chnlib/chngr.f ****************************************************/ /* * SUBROUTINE CHNGR(CH,CA,RR,CFMT) * CHARACTER CH*(*),CA*(*),CFMT*(*) */ SUBROUTINE CHNGR( CHARACTER*(*) io CH CHARACTER*(*) CA REAL RR CHARACTER*(*) CFMT ) /***************************************************** * misc1/randlib/rngu1.f ****************************************************/ /* * REAL FUNCTION RNGU1(ISEED) */ REAL FUNCTION RNGU1( INTEGER io ISEED ) /***************************************************** * misc1/randlib/rngu2.f ****************************************************/ /* * REAL FUNCTION RNGU2(ISEED) */ REAL FUNCTION RNGU2( INTEGER io ISEED ) /***************************************************** * misc1/randlib/rngu3.f ****************************************************/ /* * REAL FUNCTION RNGU3(ISEED) */ REAL FUNCTION RNGU3( INTEGER io ISEED ) /***************************************************** * misc1/misclib/cns.f ****************************************************/ /* * CHARACTER*1 FUNCTION CNS(INS) */ CHARACTER*1 FUNCTION CNS( INTEGER INS ) /***************************************************** * misc1/misclib/cdblk.f ****************************************************/ /* * SUBROUTINE CDBLK(CHR) * CHARACTER CHR*(*) */ SUBROUTINE CDBLK( CHARACTER*(*) io CHR )