Line_C60_max Subroutine

public subroutine Line_C60_max(scn_nc, scn, plus_z, a_blr, b_blr, half, a_60, b_60, c_max_60)

This subroutine obtains the Cmax60 line constants for an oil

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: scn_nc

integer input variable set to the total number of single cuts being considered in the oil
integer, intent(in), allocatable :: scn(:)

set of singles cuts being considered in the oil
real(kind=pr), intent(in) :: plus_z

composition of residual fraction from input file
real(kind=pr), intent(in) :: a_blr

input constant from the Best linear regression
real(kind=pr), intent(in) :: b_blr

input constant from the Best linear regression
real(kind=pr), intent(in) :: half
real(kind=pr), intent(out) :: a_60

output real variable. Slope of the limit line
real(kind=pr), intent(out) :: b_60

output real variable. Intercept of the C60max line.
integer, intent(out) :: c_max_60

output CN at which Zp is reached, as the summation of single z(i) from the Cmax60 distribution.

Called by

proc~~line_c60_max~2~~CalledByGraph proc~line_c60_max~2 Line_C60_max proc~difference_mw_plus~2 difference_mw_plus proc~difference_mw_plus~2->proc~line_c60_max~2 proc~get_c_or_m_plus get_C_or_m_plus proc~get_c_or_m_plus->proc~difference_mw_plus~2

Variables

Type Visibility Attributes Name Initial
real(kind=pr), public :: F
real(kind=pr), public :: F_tol
real(kind=pr), public :: Zp_60
real(kind=pr), public :: a_old
real(kind=pr), public :: a_tol
real(kind=pr), public :: cross_cn
real(kind=pr), public :: dF_dA
real(kind=pr), public :: var_range
integer, public :: x_aux
real(kind=pr), public :: z_aux
real(kind=pr), public :: z_cross
real(kind=pr), public :: z_sum