PARAMETER (MAXINT=2147483647,MININT=-2147483647)
       PARAMETER (NONE=-2147483647,NWPR=2,NBPW=4,NBITPW=32)
       PARAMETER (NWRECL=1)
       DOUBLE PRECISION FLTSML,RNONE,FLTPRS
       PARAMETER (FLTSML=1.0D-36,FLTPRS=1.0D-14)
       PARAMETER (RNONE=-FLTSML)
       CHARACTER CNONE*4,COMPUT*16
       PARAMETER (CNONE='NONE',COMPUT='UNIX / KTH      ')
       PARAMETER (KIUD=5,KOUD=6,LERD=6,LANGD=1,LUND=7)
       COMMON/SGTEIO/KIU,KOU,LER,LANG,LUN,IOX(9)