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