def BVirial_Pitzer_Curl(T, Tc, Pc, omega, order=<NUM_LIT:0>):
Tr = T/Tc<EOL>if order == <NUM_LIT:0>:<EOL><INDENT>B0 = <NUM_LIT> - <NUM_LIT>/Tr - <NUM_LIT>/Tr**<NUM_LIT:2> - <NUM_LIT>/Tr**<NUM_LIT:3><EOL>B1 = <NUM_LIT> + <NUM_LIT>/Tr - <NUM_LIT:0.5>/Tr**<NUM_LIT:2> - <NUM_LIT>/Tr**<NUM_LIT:3> - <NUM_LIT>/Tr**<NUM_LIT:8><EOL><DEDENT>elif order == <NUM_LIT:1>:<EOL><INDENT>B0 = Tc*(<NUM_LIT>*T**<NUM_LIT:2> + <NUM_LIT>*T*Tc + <NUM_LIT>*Tc**<NUM_LIT:2>)/(<NUM_LIT>*T**<NUM_LIT:4>)<EOL>B1 = Tc*(-<NUM_LIT>*T**<NUM_LIT:7> + <NUM_LIT>*T**<NUM_LIT:6>*Tc + <NUM_LIT>*T**<NUM_LIT:5>*Tc**<NUM_LIT:2> + <NUM_LIT>*Tc**<NUM_LIT:7>)/(<NUM_LIT>*T**<NUM_LIT:9>)<EOL><DEDENT>elif order == <NUM_LIT:2>:<EOL><INDENT>B0 = -<NUM_LIT:3>*Tc*(<NUM_LIT>*T**<NUM_LIT:2> + <NUM_LIT>*T*Tc + <NUM_LIT>*Tc**<NUM_LIT:2>)/(<NUM_LIT>*T**<NUM_LIT:5>)<EOL>B1 = Tc*(<NUM_LIT>*T**<NUM_LIT:7> - <NUM_LIT>*T**<NUM_LIT:6>*Tc - <NUM_LIT>*T**<NUM_LIT:5>*Tc**<NUM_LIT:2> - <NUM_LIT>*Tc**<NUM_LIT:7>)/(<NUM_LIT>*T**<NUM_LIT:10>)<EOL><DEDENT>elif order == <NUM_LIT:3>:<EOL><INDENT>B0 = <NUM_LIT:3>*Tc*(<NUM_LIT>*T**<NUM_LIT:2> + <NUM_LIT>*T*Tc + <NUM_LIT>*Tc**<NUM_LIT:2>)/(<NUM_LIT>*T**<NUM_LIT:6>)<EOL>B1 = <NUM_LIT:3>*Tc*(-<NUM_LIT>*T**<NUM_LIT:7> + <NUM_LIT:1000>*T**<NUM_LIT:6>*Tc + <NUM_LIT>*T**<NUM_LIT:5>*Tc**<NUM_LIT:2> + <NUM_LIT>*Tc**<NUM_LIT:7>)/(<NUM_LIT>*T**<NUM_LIT:11>)<EOL><DEDENT>elif order == -<NUM_LIT:1>:<EOL><INDENT>B0 = <NUM_LIT>*T/<NUM_LIT> - <NUM_LIT>*Tc*log(T)/<NUM_LIT:100> + (<NUM_LIT>*T*Tc**<NUM_LIT:2> + <NUM_LIT>*Tc**<NUM_LIT:3>)/(<NUM_LIT>*T**<NUM_LIT:2>)<EOL>B1 = <NUM_LIT>*T/<NUM_LIT:1000> + <NUM_LIT>*Tc*log(T)/<NUM_LIT:50> + (<NUM_LIT>*T**<NUM_LIT:6>*Tc**<NUM_LIT:2> + <NUM_LIT>*T**<NUM_LIT:5>*Tc**<NUM_LIT:3> + <NUM_LIT>*Tc**<NUM_LIT:8>)/(<NUM_LIT>*T**<NUM_LIT:7>)<EOL><DEDENT>elif order == -<NUM_LIT:2>:<EOL><INDENT>B0 = <NUM_LIT>*T**<NUM_LIT:2>/<NUM_LIT> - <NUM_LIT>*T*Tc*log(T)/<NUM_LIT:100> + <NUM_LIT>*T*Tc/<NUM_LIT:100> + <NUM_LIT>*Tc**<NUM_LIT:2>*log(T)/<NUM_LIT> - <NUM_LIT>*Tc**<NUM_LIT:3>/(<NUM_LIT>*T)<EOL>B1 = <NUM_LIT>*T**<NUM_LIT:2>/<NUM_LIT> + <NUM_LIT>*T*Tc*log(T)/<NUM_LIT:50> - <NUM_LIT>*T*Tc/<NUM_LIT:50> + Tc**<NUM_LIT:2>*log(T)/<NUM_LIT:2> - (<NUM_LIT>*T**<NUM_LIT:5>*Tc**<NUM_LIT:3> + <NUM_LIT>*Tc**<NUM_LIT:8>)/(<NUM_LIT>*T**<NUM_LIT:6>)<EOL><DEDENT>else: <EOL><INDENT>raise Exception('<STR_LIT>')<EOL><DEDENT>Br = B0 + omega*B1<EOL>return Br*R*Tc/Pc<EOL>
r'''Calculates the second virial coefficient using the model in [1]_.
    Designed for simple calculations.

    .. math::
        B_r=B^{(0)}+\omega B^{(1)}

        B^{(0)}=0.1445-0.33/T_r-0.1385/T_r^2-0.0121/T_r^3

        B^{(1)} = 0.073+0.46/T_r-0.5/T_r^2 -0.097/T_r^3 - 0.0073/T_r^8

    Parameters
    ----------
    T : float
        Temperature of fluid [K]
    Tc : float
        Critical temperature of fluid [K]
    Pc : float
        Critical pressure of the fluid [Pa]
    omega : float
        Acentric factor for fluid, [-]
    order : int, optional
        Order of the calculation. 0 for the calculation of B itself; for 1/2/3, 
        the first/second/third derivative of B with respect to temperature; and  
        for -1/-2, the first/second indefinite integral of B with respect to 
        temperature. No other integrals or derivatives are implemented, and an 
        exception will be raised if any other order is given.

    Returns
    -------
    B : float
        Second virial coefficient in density form or its integral/derivative if
        specified, [m^3/mol or m^3/mol/K^order]

    Notes
    -----
    Analytical models for derivatives and integrals are available for orders
    -2, -1, 1, 2, and 3, all obtained with SymPy.

    For first temperature derivative of B:

    .. math::
        \frac{d B^{(0)}}{dT} = \frac{33 Tc}{100 T^{2}} + \frac{277 Tc^{2}}{1000 T^{3}} + \frac{363 Tc^{3}}{10000 T^{4}}

        \frac{d B^{(1)}}{dT} = - \frac{23 Tc}{50 T^{2}} + \frac{Tc^{2}}{T^{3}} + \frac{291 Tc^{3}}{1000 T^{4}} + \frac{73 Tc^{8}}{1250 T^{9}}

    For the second temperature derivative of B:

    .. math::
        \frac{d^2 B^{(0)}}{dT^2} = - \frac{3 Tc}{5000 T^{3}} \left(1100 + \frac{1385 Tc}{T} + \frac{242 Tc^{2}}{T^{2}}\right)

        \frac{d^2 B^{(1)}}{dT^2} = \frac{Tc}{T^{3}} \left(\frac{23}{25} - \frac{3 Tc}{T} - \frac{291 Tc^{2}}{250 T^{2}} - \frac{657 Tc^{7}}{1250 T^{7}}\right)

    For the third temperature derivative of B:

    .. math::
        \frac{d^3 B^{(0)}}{dT^3} = \frac{3 Tc}{500 T^{4}} \left(330 + \frac{554 Tc}{T} + \frac{121 Tc^{2}}{T^{2}}\right)

        \frac{d^3 B^{(1)}}{dT^3} = \frac{3 Tc}{T^{4}} \left(- \frac{23}{25} + \frac{4 Tc}{T} + \frac{97 Tc^{2}}{50 T^{2}} + \frac{219 Tc^{7}}{125 T^{7}}\right)

    For the first indefinite integral of B:

    .. math::
        \int{B^{(0)}} dT = \frac{289 T}{2000} - \frac{33 Tc}{100} \log{\left (T \right )} + \frac{1}{20000 T^{2}} \left(2770 T Tc^{2} + 121 Tc^{3}\right)

        \int{B^{(1)}} dT = \frac{73 T}{1000} + \frac{23 Tc}{50} \log{\left (T \right )} + \frac{1}{70000 T^{7}} \left(35000 T^{6} Tc^{2} + 3395 T^{5} Tc^{3} + 73 Tc^{8}\right)

    For the second indefinite integral of B:

    .. math::
        \int\int B^{(0)} dT dT = \frac{289 T^{2}}{4000} - \frac{33 T}{100} Tc \log{\left (T \right )} + \frac{33 T}{100} Tc + \frac{277 Tc^{2}}{2000} \log{\left (T \right )} - \frac{121 Tc^{3}}{20000 T}

        \int\int B^{(1)} dT dT = \frac{73 T^{2}}{2000} + \frac{23 T}{50} Tc \log{\left (T \right )} - \frac{23 T}{50} Tc + \frac{Tc^{2}}{2} \log{\left (T \right )} - \frac{1}{420000 T^{6}} \left(20370 T^{5} Tc^{3} + 73 Tc^{8}\right)

    Examples
    --------
    Example matching that in BVirial_Abbott, for isobutane.

    >>> BVirial_Pitzer_Curl(510., 425.2, 38E5, 0.193)
    -0.0002084535541385102

    References
    ----------
    .. [1] Pitzer, Kenneth S., and R. F. Curl. "The Volumetric and
       Thermodynamic Properties of Fluids. III. Empirical Equation for the
       Second Virial Coefficient1." Journal of the American Chemical Society
       79, no. 10 (May 1, 1957): 2369-70. doi:10.1021/ja01567a007.