INTEGER FUNCTION MPRPP C***************************************************************************** C C Description : Routine to 'pop' a record number from the menu-stack C This routine is reserved for MPR-subroutines only C C Arguments : MPRPP = INTEGER returning the record number of a menu C name-record from the menu-stack, C zero record number means: stack is empty C C Author : F.A.Minkema C AKZO PHARMA, Oss Holland C dept. SDA C C Version : V1.0 Date : 1-nov-1982 C C Module name : MPRPP.FTN C C Package : TRAMP C C Compilation/Linking : FOR/F4P/TR:NONE MPRPP C C Updates : name version C C description : C C***************************************************************************** C BYTE CLRSTR,ERLSTR,CLRVAT,FLSVAT,FNPPOS,FNGPOS,FLSPOS, 1 MESPAT,GENVAT,GENLAT,MENPAT,FUNTAB,TYPTAB,MFTTAB COMMON/MPRCOM/ISCR,NUNIT,IBTFLG,IMESFL,MAXBUF,LMAR, 1 MSTACK,ISTACK(8),NRMMR,NRNRCM,NRFUN, 2 NRFFLR,NRLFLR,NRTTAB(12), 3 CLRSTR(8),ERLSTR(4),CLRVAT(6),FLSVAT(8), 4 FNPPOS(8),FNGPOS(8),FLSPOS(8),MESPAT(14), 5 GENVAT(8),GENLAT(4,2),MENPAT(10), 6 FUNTAB(6,12),TYPTAB(12),MFTTAB(7,12) C C MPRPP=ISTACK(1) DO 10 I=1,MSTACK-1 ISTACK(I)=ISTACK(I+1) 10 CONTINUE ISTACK(MSTACK)=0 C C go back to calling routine C RETURN END