/*
 * misc1_datelib.fp
 *
 * $Id: misc1_datelib.fp,v 1.1 2000/11/19 16:00:18 keiko Exp $
 */

/*****************************************************
 * 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/datelib/dateq3.c
 ****************************************************/
/* 
 *      void dateq3_(iy, im, id)
 */
/*
      SUBROUTINE DATEQ3(
          INTEGER o IY
          INTEGER o IM
          INTEGER o ID
      )
*/