h_j Function

  1. korc_collisions.f90
  2. korc_collisions
  3. h_j

public function h_j(i, v)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: i
real(kind=rp), intent(in) :: v

Return Value real(kind=rp)


Contents

Source Code

h_j

Source Code

  function h_j(i,v)
    INTEGER, INTENT(IN) 	:: i
    REAL(rp), INTENT(IN) 	:: v   
    REAL(rp)  :: gam
    REAL(rp)  :: p
    REAL(rp)  :: h_j

    gam=1/sqrt(1-v**2)
    p=v*gam
    
    h_j=p*sqrt(gam-1)/cparams_ms%IZj(i)
    
  end function h_j