Calls getan_nogath_from_dfn to calculate antot arrays for current gnew value
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex, | intent(inout), | dimension (-ntgrid:,:,:) | :: | antot | ||
complex, | intent(inout), | dimension (-ntgrid:,:,:) | :: | antota | ||
complex, | intent(inout), | dimension (-ntgrid:,:,:) | :: | antotp | ||
logical, | intent(in), | optional | :: | local_only |
subroutine getan_nogath (antot, antota, antotp, local_only)
use dist_fn_arrays, only: gnew
use theta_grid, only: ntgrid
implicit none
complex, dimension (-ntgrid:,:,:), intent (in out) :: antot, antota, antotp
logical, intent(in), optional :: local_only
call getan_nogath_from_dfn(gnew, antot, antota, antotp, local_only)
end subroutine getan_nogath