1*-----------------------------------------------------------------------
2*     NDATE2
3*-----------------------------------------------------------------------
4*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
5*-----------------------------------------------------------------------
6      INTEGER FUNCTION NDATE2(IY,ITD,NY,NTD)
7
8
9      CALL DATEG2(NDATEX,IY,ITD,NY,NTD)
10      NDATE2=NDATEX
11
12      END
13