c************
c  Description:	Defines parameters used in Midas routines
c
c  Author:	JGS 4/2/90
c
c  $Revision: 1.1 $
c  $Modtime:   01 Nov 1995 12:04:42  $
c  
c************
c
	integer*4 MP_SCALAR,MP_COMPLEX,MP_DOUBLE,MP_FLOAT,MP_XLONG,MP_LONG
	integer*4 MP_INT,MP_BYTE,MP_OFFSET,MP_PACKED,MP_ASCII,MP_NH,MP_KW
	integer*4 MP_VAX,MP_IEEE,MP_EEEI,MP_CRAY,MP_TI
c
	parameter (MP_SCALAR=83,MP_COMPLEX=67)
	parameter (MP_DOUBLE=68,MP_FLOAT=70)
	parameter (MP_XLONG=88,MP_LONG=76,MP_INT=73)
	parameter (MP_BYTE=66,MP_OFFSET=79)
	parameter (MP_PACKED=80,MP_ASCII=65)
	parameter (MP_NH=72,MP_KW=87)
	parameter (MP_VAX=86,MP_IEEE=73,MP_EEEI=69,MP_CRAY=67,MP_TI=84)
