gtvarequivalent.f90 File Reference

GT_VARIABLE 型変数の同値判定 More...

Go to the source code of this file.

Functions/Subroutines
logical function	gtvarequivalent (var1, var2)

Detailed Description

GT_VARIABLE 型変数の同値判定

Author

Eizi TOYODA, Yasuhiro MORIKAWA

Copyright

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

この関数は gtdata_generic から gtdata_generic#operator(.equivalent.) として提供されます。

Definition in file gtvarequivalent.f90.

Function/Subroutine Documentation

gtvarequivalent()

logical function gtvarequivalent	(	type(gt_variable), intent(in)	var1,
		type(gt_variable), intent(in)	var2 )

2つの GT_VARIABLE 型変数の同値判定

変数 var1, var2 を比較し、同値である場合は .true. を、 そうで無い場合は .false. を返します。

Parameters

[in]	var1	1番目の変数ハンドル
[in]	var2	2番目の変数ハンドル

Returns

同値の場合 .true.、それ以外は .false.

Definition at line 43 of file gtvarequivalent.f90.

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class
  type(GT_VARIABLE), intent(in):: var1, var2
  integer:: class1, class2, cid1, cid2
continue
  call var_class(var1, class1, cid1)
  call var_class(var2, class2, cid2)
  result = (class1 == class2) .and. (cid1 == cid2)

References gtdata_internal_map::var_class().

Here is the call graph for this function: