integer ichkmem ( maxgrdchecks )
integer icompmem( maxgrdchecks )
integer itestmem( maxgrdchecks )
integer ierrmem ( maxgrdchecks )
integer icglomem( maxgrdchecks )
integer maxgrdchecks
parameter ( maxgrdchecks = 4000 )
_RL fcrmem ( maxgrdchecks )
_RL fcppmem ( maxgrdchecks )
_RL fcpmmem ( maxgrdchecks )
_RL xxmemref ( maxgrdchecks )
_RL xxmempert ( maxgrdchecks )
_RL gfdmem ( maxgrdchecks )
_RL adxxmem ( maxgrdchecks )
_RL ftlxxmem ( maxgrdchecks )
_RL ratioadmem ( maxgrdchecks )
_RL ratioftlmem ( maxgrdchecks )
integer irecmem ( maxgrdchecks )
integer bjmem ( maxgrdchecks )
integer bimem ( maxgrdchecks )
integer klocmem ( maxgrdchecks )
integer iobcsmem( maxgrdchecks )
integer jlocmem ( maxgrdchecks )
integer ilocmem ( maxgrdchecks )
IF ( ichknum .LE. maxgrdchecks ) THEN
numchecks = maxgrdchecks