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