1*-----------------------------------------------------------------------
2*     DATEF1
3*-----------------------------------------------------------------------
4*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
5*-----------------------------------------------------------------------
6      SUBROUTINE DATEF1(N,IDATE,NDATE)
7
8
9      CALL DATE12(IDATE,IY,ITD)
10      CALL DATEF2(N,IY,ITD,NY,NTD)
11      CALL DATE21(NDATE,NY,NTD)
12
13      END
14