Path: | history/hsp3d.f90 |
Last Update: | Fri Mar 20 18:09:49 +0900 2009 |
Authors: | Shin-ichi TAKEHIRO, Yasuhiro MORIKAWA |
Version: | $Id: hsp3d.f90,v 1.1 2009-03-20 09:09:49 morikawa Exp $ |
Tag Name: | $Name: gtool5-20090324 $ |
Copyright: | Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved. |
License: | See COPYRIGHT |
gtool_history#HistoryPut : | HSP1D, HSP2D, HSP3D, HSP1R, HSP2R, HSP3R |
Subroutine : | |||
vname : | character(len=*)
| ||
var(i,j,k) : | double precision
| ||
i : | integer
| ||
j : | integer
| ||
k : | integer
|
ヒストリーに変数を出力する
subroutine hsp3d(vname,var,i,j,k) ! !== 機能 ! ! ヒストリーに変数を出力する ! use gtool_history character(len=*) :: vname ! 変数名 double precision :: var(i,j,k) ! 変数 integer :: i,j,k ! 各次元の大きさ call HistoryPut(vname,var) end subroutine hsp3d