program ch0705a
implicit none
integer  , parameter :: nr=3
integer  , parameter :: nc=2
integer  , parameter :: nf=3
integer :: row,column,floor
character*4 , dimension(1:nr,1:nc,1:nf) :: seats=' '
  do  floor=1,nf
  print*,' input data for floor: ',floor,' row by row'
    do  row=1,nr
      read *,seats(row,1:nc,floor)
    enddo
  enddo
  print *,' seat plan is'
  do  floor=1,nf
    print *,' floor = ',floor
    do  row=1,nr
      print *,seats(row,1:nc,floor)
    enddo
  enddo
end program ch0705a