init_map Subroutine

  1. mimic_types.f90
  2. mimic_types
  3. init_map

private pure subroutine init_map(this, id, codes, atoms)

Arguments

TypeIntentOptionalAttributesName
class(map_type), intent(inout) :: this
integer, intent(in) :: id
integer, intent(in), dimension(:):: codes
integer, intent(in), dimension(:):: atoms

Contents

Source Code

init_map

Source Code

pure subroutine init_map(this, id, codes, atoms)

    class(map_type), intent(inout) :: this
    integer, intent(in) :: id
    integer, dimension(:), intent(in) :: codes, atoms

    this%id = id
    allocate(this%atoms(size(codes)))
    allocate(this%codes(size(codes)))
    this%codes = codes
    this%atoms = atoms

end subroutine init_map