init_order Subroutine

  1. mod_sort_arrays.f90
  2. sort_arrays
  3. init_order

public subroutine init_order(order)

Arguments

Type IntentOptional AttributesName
integer(kind=I4), intent(out), dimension(:):: order

Contents

Source Code

init_order

Source Code

   subroutine init_order(order)
   implicit none
   integer(kind=I4), dimension(:), intent(out) :: order
      integer(kind=I4) :: i, l
      l = ubound(order,1)
      do i = 1, l
         order(i) = i
      enddo
   return
   endsubroutine init_order