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