! kann in jedes Programm mit "INCLUDE fehler.txt" eingebunden werden,
! wenn die zugehoerige READ-Anweisung in einem Endlosloop steht

IF (iostat == 0) THEN
 EXIT
ELSE IF (iostat > 0) THEN
 WRITE (*,'(A)') 'Fehlerhafte Eingabe!'
 CYCLE
ELSE
 STOP 'Programm beendet'
ENDIF