FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(out) | :: | naky | |||
integer, | intent(out) | :: | ntheta0 | |||
integer, | intent(out) | :: | nx | |||
integer, | intent(out) | :: | ny |
subroutine single_get_sizes (naky, ntheta0, nx, ny)
implicit none
integer, intent (out) :: naky, ntheta0, nx, ny
naky = 1 ; ntheta0 = 1
nx = 0 ; ny = 0
end subroutine single_get_sizes