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