add_interp_SCE_p_FS Subroutine

  1. korc_interp.f90
  2. korc_interp
  3. add_interp_SCE_p_FS

public subroutine add_interp_SCE_p_FS(params, F, PSIp, E_PHI)

Arguments

Type IntentOptional AttributesName
type(KORC_PARAMS), intent(in) :: params
type(FIELDS), intent(in) :: F
real(kind=rp), intent(in), DIMENSION(8):: PSIp
real(kind=rp), intent(inout), DIMENSION(8):: E_PHI

Contents

Source Code

add_interp_SCE_p_FS

Source Code

subroutine add_interp_SCE_p_FS(params,F,PSIp,E_PHI)
  TYPE(KORC_PARAMS), INTENT(IN)                              :: params
  TYPE(FIELDS), INTENT(IN)                               :: F
  REAL(rp), DIMENSION(8), INTENT(IN)      :: PSIp
  REAL(rp), DIMENSION(8), INTENT(INOUT)      :: E_PHI

  REAL(rp),DIMENSION(8) :: E_SC_PHI
  INTEGER :: cc


  call EZspline_interp(efield_SC1d%PHI,8, PSIp, E_SC_PHI, ezerr)
  call EZspline_error(ezerr)

  !$OMP SIMD
  do cc=1_idef,8_idef
     E_PHI(cc)=E_PHI(cc)+E_SC_PHI(cc)
  end do
  !$OMP END SIMD  
  
end subroutine add_interp_SCE_p_FS