/*
 * 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
      )