void fatomo_close(void) /*< free allocated storage >*/ { int is; for (is=0; is < ns; is++) { upgrad_close(upglist[is]); } }
void dsrtomo_close(void) /*< free allocated space >*/ { upgrad_close(upg); free(temp); }