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