*-----------------------------------------------------------------------
*     NDATE2
*-----------------------------------------------------------------------
*     Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved.
*-----------------------------------------------------------------------
      INTEGER FUNCTION NDATE2(IY,ITD,NY,NTD)


      CALL DATEG2(NDATEX,IY,ITD,NY,NTD)
      NDATE2=NDATEX

      END
