pop.f File Reference

Go to the source code of this file.

Functions/Subroutines
integer function	pop (topstk, stack)

Function/Subroutine Documentation

pop()

integer function pop	(	integer	topstk,
		integer, dimension(*)	stack
	)

!     
      implicit none
!     
      integer pop,topstk,stack(*)
!     
      if(topstk.gt.0) then
         pop=stack(topstk)
         topstk=topstk-1
      else
         write(6,'("0***error in function pop***")')
         write(6,'("***stack underflow***")')
         call exit(201)
      end if