! != gt4_history Fortran 77 用インターフェース ! ! Authors:: Shin-ichi TAKEHIRO, Yasuhiro MORIKAWA ! Version:: $Id: hsp2d.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[link:../../COPYRIGHT] ! !== サブルーチン対応表 ! ! gt4_history#HistoryPut :: HSP1D, HSP2D, HSP3D, HSP1R, HSP2R, HSP3R ! subroutine hsp2d(vname,var,i,j) ! !== 機能 ! ! ヒストリーに変数を出力する ! use gt4_history character(len=*) :: vname ! 変数名 double precision :: var(i,j) ! 変数 integer :: i,j ! 各次元の大きさ call HistoryPut(vname,var) end subroutine hsp2d