create_monomer_list Subroutine

public pure subroutine create_monomer_list(monomers)

Generate a list of monomer indices from 1 to N

Arguments

Type IntentOptional Attributes Name
integer(kind=default_int), intent(inout), allocatable :: monomers(:)

Called by

proc~~create_monomer_list~~CalledByGraph proc~create_monomer_list create_monomer_list proc~run_fragmented_calculation run_fragmented_calculation proc~run_fragmented_calculation->proc~create_monomer_list proc~run_calculation run_calculation proc~run_calculation->proc~run_fragmented_calculation proc~compute_energy_and_forces compute_energy_and_forces proc~compute_energy_and_forces->proc~run_calculation proc~run_multi_molecule_calculations run_multi_molecule_calculations proc~run_multi_molecule_calculations->proc~run_calculation program~main main program~main->proc~run_calculation program~main->proc~run_multi_molecule_calculations

Variables

Type Visibility Attributes Name Initial
integer(kind=default_int), private :: i
integer(kind=default_int), private :: length

Source Code

   pure subroutine create_monomer_list(monomers)
      !! Generate a list of monomer indices from 1 to N
      integer(default_int), allocatable, intent(inout) :: monomers(:)
      integer(default_int) :: i, length

      length = size(monomers, 1)

      do i = 1, length
         monomers(i) = i
      end do

   end subroutine create_monomer_list