!MS$IF DEFINED (__HANDLE_TYPE_FI)
!MS$ELSE

      type HANDLE_type
	    SEQUENCE
        integer*8 :: h_
		integer*4 :: padding (14)
      end type HANDLE_type

      type PTR_INT4_type
 	    SEQUENCE
        integer*4, pointer :: p (:)
		integer*4 :: padding (14)		
      end type 

      type PTR_REAL8_type
 	    SEQUENCE
        real*8, pointer :: p (:)
		integer*4 :: padding (14)		
      end type 

!MS$DEFINE __HANDLE_TYPE_FI
!MS$ENDIF