sshrec = int(diffsecs/ersperiod) + 1
call COST_SLA_READ( ersfile, ersstartdate, ersperiod,
& ersperiod,
_RL ersperiod
& ersperiod
ersperiod = 0. _d 0
& ersperiod, ersfile,