fpNbTi Function

public function fpNbTi(b, p, q)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: b
real(kind=dp), intent(in) :: p
real(kind=dp), intent(in) :: q

Return Value real(kind=dp)


Called by

proc~~fpnbti~~CalledByGraph proc~fpnbti fpNbTi proc~critical_current_density_nbti critical_current_density_nbti proc~critical_current_density_nbti->proc~fpnbti proc~current_sharing_temperature_nbti current_sharing_temperature_nbti proc~current_sharing_temperature_nbti->proc~critical_current_density_nbti

Source Code

  real(dp) function fpNbTi(b,p,q)
    real(dp), intent(in) :: b,p,q
    real(dp) :: fp

    if(b>0.0_dp .and. b<1.0_dp) then
       fp = b**p * (1.0_dp-b)**q
    else
       fp = 0.0_dp
    endif

    fpNbTi=fp
    return
  end function fpNbTi