Setup the module level accelx_lo and accel_lo instances
Type | Intent | Optional | 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 |
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