SUBROUTINE MPRPS C***************************************************************************** C C Description : Routine to 'push' the name-record number of the current C menu on the menu-stack C This routine is reserved for MPR-subroutines only C C Arguments : none 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 : MPRPS.FTN C C Package : TRAMP C C Compilation/Linking : FOR/F4P/TR:NONE MPRPS 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 IF (ISTACK(MSTACK).NE.0) GOTO 9000 DO 10 I=MSTACK-1,1,-1 ISTACK(I+1)=ISTACK(I) 10 CONTINUE ISTACK(1)=NRNRCM C C go back to calling routine C RETURN C C errors C 9000 CALL FATAL('MPRPS','Stack overflow') END