/*+ * VOID mprend() * * Description : Routine to close all files opened by MPR-calls * * Arguments : none * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 10-JUN-1983 * * Module name : MPREND.FOR * * Package : TRAMP * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : mprend.c * * Package : TRAMPC * * Updates : name version * * description : -*/ #include #include VOID mprend() { COUNT cclose(); IMPORT MPRCOM m; /* * close library file */ if(m.nunit >= 0) { cclose(m.nunit); } }