SUBROUTINE SUBST(IANZ,OLD,NEW,ARRAY)
C
C	Diese Subroutine substitutiert 1 Zeichen eines Arrays in ein anderes
C	durch den gesamten Array hindurch.
C
C	16.5.86 SKN/BME  HJM    Copyright SEL AG
C******************************************************************************
C
	BYTE OLD,NEW,ARRAY(110)
	DO 100,I=1,IANZ
100	IF(ARRAY(I).EQ.OLD) ARRAY(I)=NEW
	RETURN
	END