Calling sequence : CALL DIERR (ILEVEL, IEXIT, IUNT)

Purpose : Error cleanup.

Parameters:

In

Use : This enables the user to recover from an input error by abandoning the current data set or abandoning the whole model. When the current dataset is abandoned, the relevant temporary file is simply rewound, ready for the next dataset. When the whole model is abandoned, all temporary files are rewound, and any incomplete datasets are deleted from the FEMVIEW database. This operation may or may not involve completely deleting the current model. The decisions regarding what needs to be deleted are performed internally; for example, when appending data to an existing model any partially processed datasets will be deleted but the model and any previously entered data will not be deleted.

This routine also adjusts all of the Database Interface internal pointers and sequence flags. When abandoning a data set the sequence flags will be set to expect a new data set header. When abandoning a whole model, the sequencing flags will be set to expect a new user, project or model to be entered, or to exit the routines using DISTP.

Errors : The error condition is indicated by the value IEXIT.