h_array(3f) - [M_html] print a numeric array as an HTML table (LICENSE:PD)
Synopsis
Description
Examples
Author
License
subroutine h_array(iounit,array)
integer,intent(in) :: iounit real,intent(in) :: array(:,:)
Write an array as an HTML table
Sample program
program demo_h_array use M_html implicit none real :: arr(10,20)=0.0 integer :: io=20 integer :: i,j do i=1,10 do j=1,20 arr(i,j)=(i-1)*20+j enddo enddo call h_open(io,table.html) call h_array(io,arr) call h_close(io)end program demo_h_array
John S. Urban
Public Domain
Nemo Release 3.1 | h_array (3) | February 23, 2025 |