! trancation
PROGRAM ex6_7

  IMPLICIT NONE
  INTEGER :: i, m = 0, n = 0
  REAL, ALLOCATABLE:: a(:,:)

  DO WHILE( m <= 0 .OR. n <= 0 )
    PRINT '(1X, A)', 'Input array size m, n ( > 0 ) : '
    READ *, m, n
  END DO

  ALLOCATE( a(1:m,1:n) )
  PRINT '(1X, A)', 'Input elements of a : '
  READ *, ( a(i,1:n), i = 1, m )

  WHERE( a < 0 ) a = 0.0E0
  DO i = 1, m
    PRINT '(10F8.5)', a(i,1:n)
  END DO

END PROGRAM ex6_7