Formatanweisungen |
PROGRAM Iformat REAL A(5,5) DATA A / 25*0. / N=10 J=1 write(*,1) N,J write(*,'(I4)') (N**I,I=0,5) write(*,'(1X,I4)') (N**I,I=0,5) write(*,'(6I4)') (N**I,I=0,5) write(*,2) (N**I,I=0,5) 1 FORMAT (' N=',Z8.8,', J=',Z8.8) 2 FORMAT (I4,(/3X,2I6)) write(*,*) DO 3 I = 1,5 DO 3 J = 5 A(I,J) = I+1.0 3 CONTINUE write(*,*) A END
PROGRAM fmt_test PARAMETER (MEMSIZE=1000000) Integer A(MEMSIZE) 1 write(*,100) 'Matrixdimension=' read (*,*,ERR=1) N DO J=1,N K=(J-1)*N DO I=1,N A(K+I)=I*100+J ENDDO ENDDO 2 write(*,100) 'Ausgabe ab Position i,j =' read (*,*,ERR=2) I,J IF ( I.GT.0 .AND. J.GT.0 ) THEN call AUSGABE(I,J,N,A) GOTO 2 ENDIF 100 FORMAT(1X,A,$) END SUBROUTINE AUSGABE(Zeile,Spalte,N,A) INTEGER Zeile, Spalte, N, A(N,N) ...