MCHPRM.PRM

C************************************************************************
C* MCHPRM.Linux_gfortran
C*
C* This include file contains Linux OS specific parameter definitions
C*	for the GEMPAK software.
C*
C* Linux GFORTRAN Version
C**
C* Log:
C* K. Brill/HPC		 8/02	Define LLMXTG                           *
C* R. Tian/SAIC		 9/02	Increase LLMXGD from 97000 to 275000    *
C************************************************************************
C!
	PARAMETER	( MTMACH =  MTLNUX  )
C!						Machine type
C!						Raob, VAS data source
	PARAMETER	( MMRECL =     4   )
C!						Multiplier for RECL in
C!						file create/open
C!						(usually 4 on UNIX sys)
C!
C!	ASCII character constants
C!
	CHARACTER	CHNULL, CHCTLA, CHCTLC, CHTAB,  CHLF,  CHFF
	CHARACTER*1	CHCR,   CHCAN,  CHESC,  CHFS,   CHGS,  CHRS
	CHARACTER*1	CHUS,   CHSPAC, CHTLDA
C!
	PARAMETER	( CHNULL = CHAR (0) )
C!						Null
	PARAMETER	( CHCTLA = CHAR (1) )
C!						Control A
	PARAMETER	( CHCTLC = CHAR (3) )
C!						Control C
	PARAMETER	( CHTAB  = CHAR (9) )
C!						Tab
	PARAMETER	( CHLF   = CHAR (10) )
C!						Line feed
	PARAMETER	( CHFF   = CHAR (12) )
C!						Form feed
	PARAMETER	( CHCR   = CHAR (13) )
C!						Carriage return
	PARAMETER	( CHCAN  = CHAR (24) )
C!						Cancel (CAN)
	PARAMETER	( CHESC  = CHAR (27) )
C!						Escape
	PARAMETER	( CHFS   = CHAR (28) )
C!						FS
	PARAMETER	( CHGS   = CHAR (29) )
C!						GS
	PARAMETER	( CHRS   = CHAR (30) )
C!						Record Separator
	PARAMETER	( CHUS   = CHAR (31) )
C!						US
	PARAMETER	( CHSPAC = CHAR (32) )
C!						Space
	PARAMETER	( CHTLDA = CHAR (126) )
C!						Tilda
C!
	PARAMETER	( LLMXPT = 80000 )
C!						Max # lines, polygons, ...
	PARAMETER	( LLMXGD = 1000000 )
C!						Max # grid points
C*	PARAMETER	( LLMXTG = LLMXGD )
	PARAMETER	( LLMXTG = 9331200 )
C!						Max # transfer grid pnts
C!
C!	FORTRAN specific PARAMETERS
C!
C!-----------------------GPLT BUFFER SIZE--------------------------------
	PARAMETER	( IGBSZM  = 20 + ( 4 * LLMXGD ) )
C!					Min desired GPLT buffer size
C!
	PARAMETER	( IGBSIZ = (128*(1+INT((IGBSZM-1)/128))))
C!					Makes buffer size mul. of 128
C!
C!-----------------------DEVICE BUFFER SIZE------------------------------
	PARAMETER	( IGDSZM = 20 + ( 5 * LLMXPT ) )
C!					Min desired DEVICE buffer size
C!
	PARAMETER	( IGDSIZ = (128*(1+INT((IGDSZM-1)/128))))
C!					Makes buffer size mul. of 128
C!