hsp3d.f90 File Reference

Fortran 77 compatibility wrapper for gtool_history HistoryPut (3D double precision) . More...

Go to the source code of this file.

Functions/Subroutines
subroutine	hsp3d (vname, var, i, j, k)

Detailed Description

Fortran 77 compatibility wrapper for gtool_history HistoryPut (3D double precision)

.

Author

Shin-ichi TAKEHIRO, Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. See COPYRIGHT in detail

Definition in file hsp3d.f90.

Function/Subroutine Documentation

hsp3d()

subroutine hsp3d	(	character(len=*)	vname,
		double precision, dimension(i,j,k)	var,
		integer	i,
		integer	j,
		integer	k )

Output a variable to history

Definition at line 23 of file hsp3d.f90.

 
  use gtool_history
  character(len=*) :: vname ! 変数名
  double precision :: var(i,j,k) ! 変数
  integer          :: i,j,k ! 各次元の大きさ
 
  call historyput(vname,var)