SUBROUTINE DATEI(I1,I2,I3,ITYP,K1) COMMON LANF,NAME,IDAT,IPU,IQU DIMENSION NAME(11,148),IDAT(23),IPU(4),IQU(4) DIMENSION IPRFA(6),TEXT(5) TEXT(1)='FEHLER' TEXT(2)='NICHT ' TEXT(3)='BESTAN' TEXT(4)='DEN ' TEXT(5)=' ' 310 FORMAT(I3,10A2,3A6) 315 FORMAT(6A2) DO 105 K=1,6 105 IPRFA(K)=-2016 GOTO(1,2),ITYP 2 DO 205 K=1,3 IF(IPU(K)+IQU(K)) 205,205,305 305 IF(IPU(K)) 405,505,405 405 IPRFA(K)=IDAT(1+K) GOTO 205 505 IPRFA(3+K)=IDAT(1+K) 205 CONTINUE 1 CONTINUE WRITE(4,310)(NAME(K2,K1),K2=1,11),TEXT(I1),TEXT(I2),TEXT(I3), WRITE(4,315)(IPRFA(K),K=1,6) RETURN END