integer sgrunoffstartdate1
& sgrunoffstartdate1,sgrunoffstartdate2,
CALL CAL_FULLDATE ( sgrunoffstartdate1, sgrunoffstartdate2,
& sgrunoffstartdate1, sgrunoffstartdate2,
sgrunoffstartdate1 = 0