cmpobj.f

Go to the documentation of this file.

!                   ***********************
                    LOGICAL FUNCTION cmpobj
!                   ***********************
!
     &( obj1 , obj2 )
!
!***********************************************************************
! BIEF   V7P1
!***********************************************************************
!
!brief    COMPARES 2 OBJECTS.
!
!history  J-M HERVOUET (LNH)
!+        01/03/90
!+        V5P1
!+   First version
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        13/07/2010
!+        V6P0
!+   Translation of French comments within the FORTRAN sources into
!+   English comments
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        21/08/2010
!+        V6P0
!+   Creation of DOXYGEN tags for automated documentation and
!+   cross-referencing of the FORTRAN sources
!
!history  J-M HERVOUET (EDF LAB, LNHE)
!+        26/06/2015
!+        V7P1
!+   Now will never stop but just return TRUE or FALSE.
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| OBJ1           |-->| BIEF_OBJ STRUCTURE TO BE COMPARED WITH THE OTHER
!| OBJ2           |-->| BIEF_OBJ STRUCTURE TO BE COMPARED WITH THE OTHER
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief, ex_cmpobj => cmpobj
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      TYPE(bief_obj), INTENT(IN) ::  OBJ1,OBJ2
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER IELM1,IELM2,TYP1,TYP2
!
!-----------------------------------------------------------------------
!
      cmpobj = .false.
!
      typ1 = obj1%TYPE
      typ2 = obj2%TYPE
!
      IF(typ1.EQ.typ2) THEN
!
        IF(typ1.EQ.2) THEN
!
!         VECTORS: CHECKS THE DISCRETISATION AND SIZE
!
          ielm1 = obj1%ELM
          ielm2 = obj2%ELM
          IF(ielm1.EQ.ielm2.AND.obj1%DIM1.EQ.obj2%DIM1) cmpobj = .true.
!
        ELSEIF(typ1.EQ.4) THEN
!
!         BLOCKS: CHECKS THE NUMBER OF OBJECTS
!
          IF(obj1%N.EQ.obj2%N) cmpobj=.true.
!
        ELSE
!
!         ERROR OR MATRICES TO BE IMPLEMENTED...
!
          WRITE(lu,*) 'CMPOBJ (BIEF): OBJECT 1 : ',obj1%NAME,
     &                ' OF TYPE ',typ1,' UNEXPECTED CASE'
          CALL plante(1)
          stop
!
        ENDIF
!
      ENDIF
!
!-----------------------------------------------------------------------
!
      RETURN
      END