push.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	push (item, maxstk, topstk, stack)

Function/Subroutine Documentation

push()

subroutine push	(	integer	item,
		integer	maxstk,
		integer	topstk,
		integer, dimension(*)	stack
	)

!     
      implicit none
!     
      integer topstk,maxstk,stack(*),item
!     
      topstk=topstk+1
      if(topstk.gt.maxstk) then
         write(6,'("0***error in subroutine push***")')
         write(6,'("***stack overflow***")')
         call exit(201)
      else
         stack(topstk)=item
      endif