/*+ * VOID mprcm() * * Description : Routine to clear message area * This routine is reserved for MPR-subroutines only * * Arguments : none * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 1-nov-1982 * * Module name : MPRCM.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 : mprcm.c * * Package : TRAMPC * * Updates : name version * * description : -*/ #include #include VOID mprcm() { VOID swrite(); IMPORT MPRCOM m; if(m.imesfl >= 1) { swrite(m.iscr, "+", &m.mespat, &m.clrvat, &m.erlstr, NULL); } if(m.imesfl >= 2) { swrite(m.iscr, " ", &m.erlstr, NULL); } if(m.imesfl == 3) { swrite(m.iscr, " $", &m.erlstr, NULL); } m.imesfl = 0; }