structs.f90

Go to the documentation of this file.

 
module structs
  use num_types, only : rp, dp
  implicit none
  private
 
  type, public :: struct_curve_t
     real(kind=dp) :: curve_data(5,12)
     integer :: curve_type(12)
     integer :: el_idx
  end type struct_curve_t
 
  type, public :: array_ptr_t
     real(kind=rp), pointer :: ptr(:)
  end type array_ptr_t
end module structs