program prog18
      implicit none
      double precision Array1(3,4), Array2(4,3)
      
      data Array1 /1, 2, 3, 2, 3, 4, 3, 4, 5, 4, 5, 6/
      data Array2 /1, 2, 3, 2, 3, 4, 3, 4, 5, 4, 5, 6/
      
      print *, 'νΑΣΣΙΧ Array1:'
      call arrout(Array1, 3, 4)
      print *, 'νΑΣΣΙΧ Array2:'
      call arrout(Array2, 4, 3)
      
      end