first_all_biefobj.f

Go to the documentation of this file.

!                   ****************************
                    SUBROUTINE first_all_biefobj
!                   ****************************
!
     &(obj)
!
!***********************************************************************
! BIEF   V7P3
!***********************************************************************
!
!brief    Allocates a BIEF_OBJ object which is itself a component of a
!+        BIEF_OBJ. Nullifies all pointers in this BIEF_OBJ structure.
!+        This is not done by compilers.
!
!history  J-M HERVOUET (jubilado)
!+        04/11/2016
!+        V7P3
!+   First version.
!
!history  J-M HERVOUET (jubilado)
!+        07/09/2017
!+        V7P3
!+   Component %E added.
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| OBJ            |<->| BIEF_OBJ TO BE ALLOCATED
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief, ex_first_all_biefobj => first_all_biefobj
!
      USE declarations_special
!
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      TYPE(bief_obj), POINTER, INTENT(INOUT) :: OBJ
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
!-----------------------------------------------------------------------
!
        ALLOCATE(obj)
!       NULLIFYING ALL POINTERS OF BIEF_OBJ STRUCTURE
        NULLIFY(obj%R)
        NULLIFY(obj%D)
        NULLIFY(obj%E)
        NULLIFY(obj%X)
        NULLIFY(obj%I)
        NULLIFY(obj%ADR)
!
!-----------------------------------------------------------------------
!
      RETURN
      END