! @(#)system.inc 1.3 (Sun Microsystems, Inc.) 98/10/08
!
!    Copyright © 1998 Sun Microsystems, Inc.
!    All rights reserved.
!

      INTERFACE FREE
	SUBROUTINE FREEP(ADDRESS)
	  POINTER (ADDRESS, X)
	END SUBROUTINE
	SUBROUTINE FREE32I(ADDRESS)
	  INTEGER(KIND=4) ADDRESS
	END SUBROUTINE
	SUBROUTINE FREE64I(ADDRESS)
	  INTEGER(KIND=8) ADDRESS
	END SUBROUTINE
      END INTERFACE

      INTERFACE MALLOC
	INTEGER(KIND=4) FUNCTION MALLOC8I(SIZE)
	  INTEGER(KIND=1) SIZE
	END FUNCTION
	INTEGER(KIND=4) FUNCTION MALLOC16I(SIZE)
	  INTEGER(KIND=2) SIZE
	END FUNCTION
	INTEGER(KIND=4) FUNCTION MALLOC32I(SIZE)
	  INTEGER(KIND=4) SIZE
	END FUNCTION
	INTEGER(KIND=4) FUNCTION MALLOC64I(SIZE)
	  INTEGER(KIND=8) SIZE
	END FUNCTION
      END INTERFACE