topexstartdate2 = 0
call CAL_FULLDATE( topexstartdate1, topexstartdate2,
& topexstartdate1, topexstartdate2,
& topexstartdate2,
integer topexstartdate2