fpNb3Sn Function

public function fpNb3Sn(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~~fpnb3sn~~CalledByGraph proc~fpnb3sn fpNb3Sn proc~critical_current_density_nb3sn critical_current_density_nb3sn proc~critical_current_density_nb3sn->proc~fpnb3sn proc~current_sharing_temperature_nb3sn current_sharing_temperature_nb3sn proc~current_sharing_temperature_nb3sn->proc~critical_current_density_nb3sn

Source Code

  real(dp) function fpNb3Sn(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

    fpNb3Sn = fp
    return
  end function fpNb3Sn