ymod = gfostartdate(1)/10000
call COST_SLA_READ( gfofile, gfostartdate, gfoperiod,
& gfostartdate
integer gfostartdate(4)
& gfostartdate, mythid )
& gfostartdate(1),
& gfostartdate(2)