C C C I P U S H C C PUSH AN ITEM ONTO THE STACK C C THIS FUNCTION PUSHES AN ITEM ONTO THE STACK.IF THE STACK WAS FULL C AN ERROR FLAG IS RETURNED. THE CALLING SEQUENCE IS C C IFLAG = IPUSH ( ITEM ) C C WHERE C IFLAG= INTEGER VARIABLE USED AS A FLAG. IFLAG WILL BE SET TO 0 C IF THE ITEM WAS SUCCESSFULLY PUSHED ONTO THE STACK.IF C THE STACK WAS FULL IFLAG IS SET TO -1 . C ITEM= INTEGER VARIABLE WHICH CONTAINS THE ITEM TO BEPUSHED C ONTO THE STACK. C FUNCTION IPUSH ( ITEM ) INCLUDE 'PSHPOP.CMN' IF ( STKIDX .GE. STKMAX ) GO TO 10 STKIDX = STKIDX + 1 PSTACK(STKIDX) = ITEM IPUSH = 0 GO TO 20 10 CONTINUE IPUSH = -1 20 CONTINUE D WRITE (5,1) ITEM D 1 FORMAT (' IPUSH PUSHED ON ',I6) RETURN END