gfostartdate2 = 0
call CAL_FULLDATE( gfostartdate1, gfostartdate2,
& gfostartdate1, gfostartdate2,
& gfostartdate2,
integer gfostartdate2