#DLYENO
	SUBROUTINE DLYENO(STRING,PAR1,PAR2)
	COMMON/ERRCOM/IERR 
	INTEGER PAR1,PAR2
	LOGICAL*1 STRING(1)
	CALL DLOUT(' DO YOU WANT TO',)
	CALL DLOUT(STRING,) 
	TYPE 13	
13	FORMAT(' YES(NO)',$) 
	READ(5,14)TEST 
14	FORMAT(A1) 
	IF(TEST.EQ.'Y') PAR2=1 
	IF(TEST.EQ.'N') PAR2=0 
	IF(TEST.NE.'Y'.AND.TEST.NE.'N') PAR2=PAR1
	IERR=1 
	RETURN 
	END
#DLOUT
	SUBROUTINE DLOUT(STRING,NUMBER) 
	COMMON/ERRCOM/IERR 
	INTEGER*2 NUMBER
	LOGICAL*1 STRING(1)
	IF(IADDR(NUMBER).EQ.-1)TYPE 11,(STRING(I),I=1,80) 
	IF(IADDR(NUMBER).NE.-1) TYPE 12,NUMBER
	IF(IADDR(NUMBER).NE.-1)TYPE 13,(STRING(I),I=1,80) 
11	FORMAT(' ',80A1,$) 
12	FORMAT(' ',70X,I8)
13	FORMAT('+',80A1)
	IERR=1 
	RETURN 
	END
#DLDEC
	SUBROUTINE DLDEC(STRING,CPAR,NPAR,MINPAR,MAXPAR) 
	COMMON/ERRCOM/IERR 
	LOGICAL*1 STRING(1)
	INTEGER IUND 
	DATA IUND/-1/
	INTEGER CPAR,NPAR,MINPAR,MAXPAR
	INTEGER NINPAR,NAXPAR
2	CONTINUE
	CALL DLOUT(STRING,) 
	IF(IADDR(CPAR).NE.-1)	TYPE 13,CPAR 
	IF(IADDR(CPAR).EQ.-1) TYPE 13,IUND 
13	FORMAT(' CURRENT VALUE=',I8,' NEW VALUE=',$) 
	READ(5,14)LENANS,NPAR
14	FORMAT(Q,I8) 
	IF(LENANS.LE.0) GOTO 900 
	IF(IADDR(MINPAR).EQ.-1.AND.IADDR(MAXPAR).EQ.-1) RETURN 
	IF(IADDR(MINPAR).EQ.-1) NINPAR=-32000
	IF(IADDR(MAXPAR).EQ.-1) NAXPAR=+32000
	IF(IADDR(MAXPAR).NE.-1) NAXPAR=MAXPAR
	IF(IADDR(MINPAR).NE.-1) NINPAR=MINPAR
	IF(NPAR.GT.NAXPAR) CALL DLOUT(' MAXIMUM EXCEEDED',) 
	IF(NPAR.LT.NINPAR) CALL DLOUT(' LESS THAN MINIMUM',)
	IF(NPAR.GT.NAXPAR.OR.NPAR.LT.NINPAR) GOTO 2
	IERR=1 
	RETURN 
900	CONTINUE
	IERR=2 
	IF(IADDR(CPAR).NE.-1) NPAR=CPAR
	RETURN 
	END
#DLTXT
        SUBROUTINE DLTXT(STRING,OLDSTR,NEWSTR,LENSTR) 
	COMMON/ERRCOM/IERR 
	LOGICAL*1 STRING(1),OLDSTR(1),NEWSTR(1)
	INTEGER LENSTR 
	CALL DLOUT(STRING,) 
	IF(IADDR(OLDSTR).NE.-1) TYPE 12,(OLDSTR(I),I=1,80) 
12	FORMAT(' OLD VALUE WAS=',80A1) 
	READ(5,13)LENSTR,(NEWSTR(I),I=1,LENSTR)
13	FORMAT(Q,80A1) 
	IERR=1 
	IF(LENSTR.NE.0) NEWSTR(LENSTR+1)=0 
	RETURN 
	END
#PARFIL
	SUBROUTINE PARFIL(INFILE)
	LOGICAL*1 FLNAM
	COMMON/FILENM/FLNAM(32)
	COMMON/ERRCOM/IERR 
	LOGICAL*1 INFILE(1)
	DO 11	I=1,32 
11	FLNAM(I)=0 
	DO 12 I=1,32 
	FLNAM(I)=INFILE(I) 
12	IF(INFILE(I).EQ.0) GOTO 122
122	CONTINUE
	IERR=1 
	RETURN 
	END
#PARRD
	SUBROUTINE PARRD 
	COMMON/ERRCOM/IERR 
	INTEGER ARRAY
	LOGICAL*1 FLNAM
	COMMON/FILENM/FLNAM(32)
	COMMON/OPPARS/ARRAY(1) 
	COMMON/OPPART/END
	INTEGER END,COMLEN 
	OPEN(UNIT=1,NAME=FLNAM,TYPE='OLD') 
	COMLEN=IADDR(END)-IADDR(ARRAY(1))
	COMLEN=COMLEN/2
	READ(1,30)(ARRAY(I),I=1,COMLEN)
30	FORMAT(8I8)
	IERR=1 
	CLOSE(UNIT=1)
	RETURN 
	END
#PARWT
	SUBROUTINE PARWT 
	COMMON/ERRCOM/IERR 
	INTEGER ARRAY
	LOGICAL*1 FLNAM
	COMMON/FILENM/FLNAM(32)
	COMMON/OPPARS/ARRAY(1) 
	COMMON/OPPART/END
	INTEGER END,COMLEN 
	OPEN(UNIT=1,TYPE='NEW',NAME=FLNAM) 
	COMLEN=IADDR(END)-IADDR(ARRAY(1))
	COMLEN=COMLEN/2
	TYPE 12,COMLEN 
12	FORMAT(' COMLEN=',I8)
	WRITE(1,30)(ARRAY(I),I=1,COMLEN) 
30	FORMAT(8I8)
	CLOSE(UNIT=1)
	IERR=1 
	RETURN 
	END