historyvarinfoinitialized.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
logical function	historyvarinfoinitialized0 (varinfo)

Function/Subroutine Documentation

historyvarinfoinitialized0()

logical function historyvarinfoinitialized0

(

type(gt_history_varinfo), intent(in)

varinfo

)

Definition at line 11 of file historyvarinfoinitialized.f90.

    !
    ! *varinfo* が初期設定されている場合には .true. が, 
    ! 初期設定されていない場合には .false. が返ります. 
    !
    ! If *varinfo* is initialized, .true. is returned. 
    ! If *varinfo* is not initialized, .false. is returned. 
    !
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    implicit none
    type(gt_history_varinfo),intent(in) :: varinfo
  continue
    result = varinfo % initialized