Go to the source code of this file.
|
| subroutine | hsp1d (vname, var, i) |
◆ hsp1d()
| subroutine hsp1d |
( |
character(len=*) | vname, |
|
|
double precision, dimension(i) | var, |
|
|
integer | i ) |
Definition at line 14 of file hsp1d.f90.
15
16
17
18
19
20
22 character(len=*) :: vname
23 double precision :: var(i)
24 integer :: i
25
26 call historyput(vname,var)
27