getfieldeq_nogath Subroutine

public subroutine getfieldeq_nogath(phi, apar, bpar, fieldeq, fieldeqa, fieldeqp, local_only)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
complex, intent(in), dimension (-ntgrid:,:,:) :: phi
complex, intent(in), dimension (-ntgrid:,:,:) :: apar
complex, intent(in), dimension (-ntgrid:,:,:) :: bpar
complex, intent(inout), dimension (-ntgrid:,:,:) :: fieldeq
complex, intent(inout), dimension (-ntgrid:,:,:) :: fieldeqa
complex, intent(inout), dimension (-ntgrid:,:,:) :: fieldeqp
logical, intent(in), optional :: local_only

Contents

Source Code


Source Code

  subroutine getfieldeq_nogath (phi, apar, bpar, fieldeq, fieldeqa, fieldeqp, local_only)
    use theta_grid, only: ntgrid
    use dist_fn_arrays, only: antot, antota, antotp
    implicit none
    complex, dimension (-ntgrid:,:,:), intent (in) :: phi, apar, bpar
    complex, dimension (-ntgrid:,:,:), intent (in out) ::fieldeq,fieldeqa,fieldeqp
    logical, intent(in), optional :: local_only

    call getan_nogath (antot, antota, antotp, local_only)

    call getfieldeq1_nogath (phi, apar, bpar, antot, antota, antotp, &
         fieldeq, fieldeqa, fieldeqp, local_only)
  end subroutine getfieldeq_nogath