SUBROUTINE SWAP(IANZ,ISRC,IDEST)
C
C	SUBROUTINE SWAP(IANZ,ISRC,IDEST)
C
C	Dieses Up speichert einen String (ISRC) mit der Laenge IANZ
C	in einen anderen (IDEST) um.
C
C	Stand: 10-Dec-85	hjm SKN/BME
C
C********************************************************************
C
	BYTE ISRC(110),IDEST(110)
C
	DO 100 I=1,IANZ
100	IDEST(I)=ISRC(I)
	RETURN
	END