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