| Path: | hsp3d.f90 | 
| Last Update: | Sun Jan 15 16:10:30 JST 2006 | 
| Authors: | Shin-ichi TAKEHIRO, Yasuhiro MORIKAWA | 
| Version: | $Id: hsp3d.f90,v 1.3 2006/01/15 07:10:30 morikawa Exp $ | 
| Tag Name: | $Name: gt4f90io-20070629 $ | 
| Copyright: | Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved. | 
| License: | See COPYRIGHT | 
| gt4_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 gt4_history character(len=*) :: vname ! 変数名 double precision :: var(i,j,k) ! 変数 integer :: i,j,k ! 各次元の大きさ call HistoryPut(vname,var) end subroutine hsp3d