h_open(3f) - [M_html] open an HTML file (LICENSE:PD)
Synopsis
Description
Options
Examples
Author
License
subroutine h_open(iounit)
integer,intent(in) :: iounit character(len=*),intent(in) :: filename
Open an HTML output file and then Write out <html> <head> <title>FILENAME </title> </head> <body>
lun The unit number to open filename Name of the file to open
Sample program
program demo_h_open 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_open
John S. Urban
Public Domain
Nemo Release 3.1 | h_open (3) | February 23, 2025 |