! ! Parameters for mksrc: ! integer,parameter :: ispval = 9999 ! integer special value real,parameter :: spval = 1.e36 ! real special value integer,parameter :: mxhist=50 ! max # histories on the files integer,parameter :: lenpath=120 ! character string length