Data_Type_Node.f90

Go to the documentation of this file.

module data_type_node
!-----------------------------------------------------------------------------------------------------------------------------------
USE ir_precision     ! Integers and reals precision definition.
USE data_type_vector ! Definition of Type_Vector.
!-----------------------------------------------------------------------------------------------------------------------------------

!-----------------------------------------------------------------------------------------------------------------------------------
private
!-----------------------------------------------------------------------------------------------------------------------------------

!-----------------------------------------------------------------------------------------------------------------------------------
type, public:: type_node
  type(type_vector):: xyz
  contains
    procedure, non_overridable:: initialize ! Procedure for initializing Type_Node.
    procedure, non_overridable:: finalize   ! Procedure for finalizing   Type_Node.
    procedure, non_overridable:: pprint     ! Procedure for printing Type_Node components with a "pretty" format.
endtype type_node
type, public:: type_node_ptr
  type(type_node), pointer:: p => null()
endtype type_node_ptr
!-----------------------------------------------------------------------------------------------------------------------------------
contains

  elemental subroutine initialize(self,xyz)
  !---------------------------------------------------------------------------------------------------------------------------------
  implicit none
  class(type_node),  intent(INOUT):: self 
  type(type_vector), intent(IN)::    xyz
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  self%xyz = xyz
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endsubroutine initialize

  elemental subroutine finalize(self)
  !---------------------------------------------------------------------------------------------------------------------------------
  implicit none
  class(type_node), intent(INOUT):: self 
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endsubroutine finalize

  function pprint(self,unit) result(err)
  !---------------------------------------------------------------------------------------------------------------------------------
  implicit none
  class(type_node), intent(IN):: self 
  integer(I4P),     intent(IN):: unit
  integer(I4P)::                 err
  integer(I4P)::                 n
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  write(unit,'(A)',iostat=err)' x='//trim(str(n=self%xyz%x))//' y='//trim(str(n=self%xyz%y))//' z='//trim(str(n=self%xyz%z))
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction pprint
endmodule data_type_node