lala_text_viz Subroutine

subroutine lala_text_viz(a,m,n,s,t)  ! sample usersub_placeholder routine
implicit none
integer                    :: m,n
doubleprecision            :: a(:)
doubleprecision            :: s,t
integer                    :: display_cols,display_rows

   display_rows=nint(s)
   display_cols=nint(t)
   if(display_cols.eq.0)display_cols=m
   if(display_rows.eq.0)display_rows=n
   call viz_init(display_cols,display_rows) ! initialize package and set size of plot area
   call viz_plot(reshape(real(a),[m,n]),m,n)
   call viz_done
end subroutine lala_text_viz