& gfostartdate(1),
& gfostartdate(2)
& gfostartdate,
integer gfostartdate(4)
call COST_SLA_READ( gfofile, gfostartdate, gfoperiod,
& gfostartdate, mythid )