1*-----------------------------------------------------------------------
2*     DATE21
3*-----------------------------------------------------------------------
4*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
5*-----------------------------------------------------------------------
6      SUBROUTINE DATE21(IDATE,IY,ITD)
7
8*     IDATE : DATE (IY*10000+IM*100+ID)                         ( /O)
9*     IY    : YEAR                                              (I/ )
10*     ITD   : TOTAL DAY                                         (I/ )
11
12
13      CALL DATE23(IY,IM,ID,ITD)
14      CALL DATE31(IDATE,IY,IM,ID)
15
16      END
17