ravel_2D Subroutine

  1. mod_array.f90
  2. mod_array
  3. ravel_2D

public subroutine ravel_2D(map, vector, dim_y, dim_x)

Arguments

Type IntentOptional AttributesName
real(kind=xp), intent(in), dimension(:,:), allocatable:: map
real(kind=xp), intent(inout), dimension(:), allocatable:: vector
integer, intent(in) :: dim_y
integer, intent(in) :: dim_x

Called by

proc~~ravel_2d~~CalledByGraph proc~ravel_2d ravel_2D proc~update update proc~update->proc~ravel_2d proc~max_2d max_2D proc~max_2d->proc~ravel_2d proc~std_2d std_2D proc~std_2d->proc~ravel_2d proc~mean_2d mean_2D proc~mean_2d->proc~ravel_2d proc~std_spectrum std_spectrum proc~std_spectrum->proc~std_2d proc~max_spectrum max_spectrum proc~max_spectrum->proc~max_2d proc~mean_spectrum mean_spectrum proc~mean_spectrum->proc~mean_2d

Contents

Source Code

ravel_2D

Source Code

  subroutine ravel_2D(map, vector, dim_y, dim_x)
    implicit none

    integer, intent(in) :: dim_y, dim_x
    real(xp), intent(in), dimension(:,:), allocatable :: map
    real(xp), intent(inout), dimension(:), allocatable :: vector

    integer :: j, k, i__

    i__ = 1
    
    do k=1, dim_x
       do j=1, dim_y
             vector(i__) = map(j,k)
             i__ = i__ + 1
       end do
    end do
  end subroutine ravel_2D