c************
c  Description:	Defines parameters used in Midas routines
c
c  Author:	JGS 11/1/95
c
c  $Revision: 1.1 $
c  $Modtime:   01 Nov 1995 13:39:16  $
c  
c************
c
	integer*4 P_LMINB,P_LMAXB,P_LMINI,P_LMAXI,P_LMINL,P_LMAXL
	parameter (P_LMINB=-128, P_LMAXB=127)
	parameter (P_LMINI=-32768, P_LMAXI=32767)
!if _LINX|_IRIX
	parameter (P_LMINL=-2147483647, P_LMAXL=2147483647)
!else
!
!endif

	integer*2 P_IMINB,P_IMAXB,P_IMINI,P_IMAXI
	parameter (P_IMINB=P_LMINB, P_IMAXB=P_LMAXB)
	parameter (P_IMINI=P_LMINI, P_IMAXI=P_LMAXI)

	integer*2 P_BMINB,P_BMAXB
	parameter (P_BMINB=P_LMINB, P_BMAXB=P_LMAXB)

	real*8 P_DMINB,P_DMAXB,P_DMINI,P_DMAXI,P_DMINL,P_DMAXL
	parameter (P_DMINB=P_LMINB, P_DMAXB=P_LMAXB)
	parameter (P_DMINI=P_LMINI, P_DMAXI=P_LMAXI)
	parameter (P_DMINL=P_LMINL, P_DMAXL=P_LMAXL)
	real*8 P_DMINF,P_DMAXF,P_DMIND,P_DMAXD
	parameter (P_DMINF=-1.D37, P_DMAXF=1.D37)
	parameter (P_DMIND=-1.D37, P_DMAXD=1.D37)

	real*4 P_FMINB,P_FMAXB,P_FMINI,P_FMAXI,P_FMINL,P_FMAXL
	parameter (P_FMINB=P_LMINB, P_FMAXB=P_LMAXB)
	parameter (P_FMINI=P_LMINI, P_FMAXI=P_LMAXI)
	parameter (P_FMINL=P_LMINL, P_FMAXL=P_LMAXL)
	real*4 P_FMINF,P_FMAXF
	parameter (P_FMINF=P_DMINF, P_FMAXF=P_DMAXF)

