init_order Subroutine

public subroutine init_order(order, n)

Vector initialization: 1 … n

Arguments

Type IntentOptional Attributes Name
integer(kind=I4), intent(out), dimension(n) :: order

order vector
integer(kind=I4), intent(in) :: n

size of the vector

Called by

proc~~init_order~~CalledByGraph proc~init_order init_order proc~sort_array2 sort_array2 proc~sort_array2->proc~init_order program~main main program~main->proc~init_order program~main->proc~sort_array2 proc~from_elemental_to_assembled from_elemental_to_assembled proc~from_elemental_to_assembled->proc~sort_array2 proc~melange melange proc~melange->proc~sort_array2 proc~read_surf~2 read_surf proc~read_surf~2->proc~sort_array2 proc~convert_matrice_format convert_matrice_format proc~convert_matrice_format->proc~from_elemental_to_assembled program~test_algen test_algen program~test_algen->proc~melange program~test_surfile test_surfile program~test_surfile->proc~read_surf~2 program~test_solvers test_solvers program~test_solvers->proc~convert_matrice_format

Source Code

   subroutine init_order(order, n)
   !! Vector initialization: 1 ... n
   implicit none
   integer(kind=I4), intent(in)                :: n      !! *size of the vector*
   integer(kind=I4), dimension(n), intent(out) :: order  !! *order vector*

      integer(kind=I4) :: i

      order = [ integer(kind=I4) :: (i, i = 1, n) ]

   return
   endsubroutine init_order