mat_eqid Function

public function mat_eqid(x, y)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: x(GG_MAX_NAME_LENGTH)
integer, intent(in) :: y(GG_MAX_NAME_LENGTH)

Return Value logical


Contents

Variables

i

Source Code

mat_eqid

Variables

Type Visibility Attributes Name Initial
integer, public :: i

Source Code

logical function mat_eqid(x,y)

!     check for equality of two integer arrays

integer,intent(in) :: x(GG_MAX_NAME_LENGTH)
integer,intent(in) :: y(GG_MAX_NAME_LENGTH)

integer            :: i

   mat_eqid = .true.

   do i = 1, GG_MAX_NAME_LENGTH
      mat_eqid = mat_eqid .and. (x(i).eq.y(i))
   enddo

end function mat_eqid