Required files
Methods
Included Modules
gtdata_types
gtdata_internal_map
Public Instance methods
| Function : |
|
| result : | logical
|
| var1 : | type(GT_VARIABLE), intent(in)
|
| var2 : | type(GT_VARIABLE), intent(in)
|
GT_VARIABLE 型変数の同値判定
変数 var1, var2 を比較し、同値である場合は .true. を、
そうで無い場合は .false. を返します。
[Source]
logical function GTVarEquivalent(var1, var2) result(result)
!
!== GT_VARIABLE 型変数の同値判定
!
! 変数 <b>var1</b>, <b>var2</b> を比較し、同値である場合は .true. を、
! そうで無い場合は .false. を返します。
!
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)
end function GTVarEquivalent