init_accel_transform_layouts Subroutine

public subroutine init_accel_transform_layouts(ntgrid, naky, ntheta0, nlambda, negrid, nspec, nx, ny, nproc, iproc)

Setup the module level accelx_lo and accel_lo instances

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ntgrid
integer, intent(in) :: naky
integer, intent(in) :: ntheta0
integer, intent(in) :: nlambda
integer, intent(in) :: negrid
integer, intent(in) :: nspec
integer, intent(in) :: nx
integer, intent(in) :: ny
integer, intent(in) :: nproc
integer, intent(in) :: iproc

Contents


Source Code

  subroutine init_accel_transform_layouts &
       (ntgrid, naky, ntheta0, nlambda, negrid, nspec, nx, ny, nproc, iproc)
    implicit none
    integer, intent (in) :: ntgrid, naky, ntheta0, nlambda, negrid, nspec, nproc, iproc
    integer, intent (in) :: nx, ny

    if (initialized_accel_transform_layouts) return
    initialized_accel_transform_layouts = .true.

    accelx_lo = setup_accelx_transform_layouts(ntgrid, naky, ntheta0, nlambda, &
         negrid, nspec, nx, ny, nproc, iproc)
    accel_lo = setup_accel_transform_layouts(ntgrid, naky, ntheta0, nlambda, &
         negrid, nspec, nx, ny, nproc, iproc)
  end subroutine init_accel_transform_layouts