| File |
Line number |
Procedure |
Code |
|
./pkg/bling/bling_carbon_chem.F |
1001 |
CARBON_COEFFS_PRESSURE_DEP |
aks(i,j,bi,bj)=exp(-4276.1*invtk + 141.328 - |
|
./pkg/bling/bling_carbon_chem.F |
1003 |
CARBON_COEFFS_PRESSURE_DEP |
& (-13856*invtk + 324.57 - 47.986*dlogtk)*sqrtis + |
|
./pkg/bling/bling_carbon_chem.F |
1004 |
CARBON_COEFFS_PRESSURE_DEP |
& (35474*invtk - 771.54 + 114.723*dlogtk)*is - |
|
./pkg/bling/bling_carbon_chem.F |
1005 |
CARBON_COEFFS_PRESSURE_DEP |
& 2698*invtk*is**1.5 + 1776*invtk*is2 + |
|
./pkg/bling/bling_carbon_chem.F |
1010 |
CARBON_COEFFS_PRESSURE_DEP |
akf(i,j,bi,bj)=exp(1590.2*invtk - 12.641 + 1.525*sqrtis + |
|
./pkg/bling/bling_carbon_chem.F |
550 |
CARBON_COEFFS |
_RL invtk |
|
./pkg/bling/bling_carbon_chem.F |
583 |
CARBON_COEFFS |
invtk=1.0 _d 0/tk |
|
./pkg/bling/bling_carbon_chem.F |
629 |
CARBON_COEFFS |
ak1(i,j,bi,bj)=10.**(-1. _d 0*(3670.7 _d 0*invtk - |
|
./pkg/bling/bling_carbon_chem.F |
632 |
CARBON_COEFFS |
ak2(i,j,bi,bj)=10.**(-1. _d 0*(1394.7 _d 0*invtk+ 4.777 _d 0- |
|
./pkg/bling/bling_carbon_chem.F |
638 |
CARBON_COEFFS |
& 77.942 _d 0*s + 1.728 _d 0*s15 - 0.0996 _d 0*s2)*invtk + |
|
./pkg/bling/bling_carbon_chem.F |
645 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = exp(-4576.752 _d 0*invtk + 115.525 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
647 |
CARBON_COEFFS |
& (-106.736 _d 0*invtk + 0.69171 _d 0)*sqrts + |
|
./pkg/bling/bling_carbon_chem.F |
648 |
CARBON_COEFFS |
& (-0.65643 _d 0*invtk - 0.01844 _d 0)*s) |
|
./pkg/bling/bling_carbon_chem.F |
652 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = exp(-8814.715 _d 0*invtk + 172.0883 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
654 |
CARBON_COEFFS |
& (-160.340 _d 0*invtk + 1.3566 _d 0) * sqrts + |
|
./pkg/bling/bling_carbon_chem.F |
655 |
CARBON_COEFFS |
& (0.37335 _d 0*invtk - 0.05778 _d 0) * s) |
|
./pkg/bling/bling_carbon_chem.F |
659 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = exp(-3070.75 _d 0*invtk - 18.141 _d 0 + |
|
./pkg/bling/bling_carbon_chem.F |
660 |
CARBON_COEFFS |
& (17.27039 _d 0*invtk + 2.81197 _d 0) * |
|
./pkg/bling/bling_carbon_chem.F |
661 |
CARBON_COEFFS |
& sqrts + (-44.99486 _d 0*invtk - 0.09984 _d 0) * s) |
|
./pkg/bling/bling_carbon_chem.F |
665 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = exp(-8904.2 _d 0*invtk + 117.385 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
667 |
CARBON_COEFFS |
& (-458.79 _d 0*invtk + 3.5913 _d 0) * sqrtis + |
|
./pkg/bling/bling_carbon_chem.F |
668 |
CARBON_COEFFS |
& (188.74 _d 0*invtk - 1.5998 _d 0) * is + |
|
./pkg/bling/bling_carbon_chem.F |
669 |
CARBON_COEFFS |
& (-12.1652 _d 0*invtk + 0.07871 _d 0) * is2 + |
|
./pkg/bling/bling_carbon_chem.F |
674 |
CARBON_COEFFS |
akw(i,j,bi,bj) = exp(-13847.26 _d 0*invtk + 148.9652 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
676 |
CARBON_COEFFS |
& (118.67 _d 0*invtk - 5.977 _d 0 + 1.0495 _d 0 * dlogtk) |
|
./pkg/bling/bling_carbon_chem.F |
681 |
CARBON_COEFFS |
aks(i,j,bi,bj)=exp(-4276.1 _d 0*invtk + 141.328 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
683 |
CARBON_COEFFS |
& (-13856. _d 0*invtk + 324.57 _d 0 - 47.986 _d 0*dlogtk)*sqrtis+ |
|
./pkg/bling/bling_carbon_chem.F |
684 |
CARBON_COEFFS |
& (35474. _d 0*invtk - 771.54 _d 0 + 114.723 _d 0*dlogtk)*is - |
|
./pkg/bling/bling_carbon_chem.F |
685 |
CARBON_COEFFS |
& 2698. _d 0*invtk*is**1.5 _d 0 + 1776. _d 0*invtk*is2 + |
|
./pkg/bling/bling_carbon_chem.F |
690 |
CARBON_COEFFS |
akf(i,j,bi,bj)=exp(1590.2 _d 0*invtk - 12.641 _d 0 + |
|
./pkg/bling/bling_carbon_chem.F |
810 |
CARBON_COEFFS_PRESSURE_DEP |
_RL invtk |
|
./pkg/bling/bling_carbon_chem.F |
877 |
CARBON_COEFFS_PRESSURE_DEP |
invtk=1.0/tk |
|
./pkg/bling/bling_carbon_chem.F |
926 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj)=10**(-1*(3670.7*invtk - |
|
./pkg/bling/bling_carbon_chem.F |
929 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj)=10**(-1*(1394.7*invtk + 4.777 - |
|
./pkg/bling/bling_carbon_chem.F |
948 |
CARBON_COEFFS_PRESSURE_DEP |
& 1.728*s15 - 0.0996*s2)*invtk + |
|
./pkg/bling/bling_carbon_chem.F |
965 |
CARBON_COEFFS_PRESSURE_DEP |
ak1p(i,j,bi,bj) = exp(-4576.752*invtk + 115.525 - |
|
./pkg/bling/bling_carbon_chem.F |
967 |
CARBON_COEFFS_PRESSURE_DEP |
& (-106.736*invtk + 0.69171)*sqrts + |
|
./pkg/bling/bling_carbon_chem.F |
968 |
CARBON_COEFFS_PRESSURE_DEP |
& (-0.65643*invtk - 0.01844)*s) |
|
./pkg/bling/bling_carbon_chem.F |
972 |
CARBON_COEFFS_PRESSURE_DEP |
ak2p(i,j,bi,bj) = exp(-8814.715*invtk + 172.0883 - |
|
./pkg/bling/bling_carbon_chem.F |
974 |
CARBON_COEFFS_PRESSURE_DEP |
& (-160.340*invtk + 1.3566) * sqrts + |
|
./pkg/bling/bling_carbon_chem.F |
975 |
CARBON_COEFFS_PRESSURE_DEP |
& (0.37335*invtk - 0.05778) * s) |
|
./pkg/bling/bling_carbon_chem.F |
979 |
CARBON_COEFFS_PRESSURE_DEP |
ak3p(i,j,bi,bj) = exp(-3070.75*invtk - 18.141 + |
|
./pkg/bling/bling_carbon_chem.F |
980 |
CARBON_COEFFS_PRESSURE_DEP |
& (17.27039*invtk + 2.81197) * |
|
./pkg/bling/bling_carbon_chem.F |
981 |
CARBON_COEFFS_PRESSURE_DEP |
& sqrts + (-44.99486*invtk - 0.09984) * s) |
|
./pkg/bling/bling_carbon_chem.F |
985 |
CARBON_COEFFS_PRESSURE_DEP |
aksi(i,j,bi,bj) = exp(-8904.2*invtk + 117.385 - |
|
./pkg/bling/bling_carbon_chem.F |
987 |
CARBON_COEFFS_PRESSURE_DEP |
& (-458.79*invtk + 3.5913) * sqrtis + |
|
./pkg/bling/bling_carbon_chem.F |
988 |
CARBON_COEFFS_PRESSURE_DEP |
& (188.74*invtk - 1.5998) * is + |
|
./pkg/bling/bling_carbon_chem.F |
989 |
CARBON_COEFFS_PRESSURE_DEP |
& (-12.1652*invtk + 0.07871) * is2 + |
|
./pkg/bling/bling_carbon_chem.F |
994 |
CARBON_COEFFS_PRESSURE_DEP |
akw(i,j,bi,bj) = exp(-13847.26*invtk + 148.9652 - |
|
./pkg/bling/bling_carbon_chem.F |
996 |
CARBON_COEFFS_PRESSURE_DEP |
& (118.67*invtk - 5.977 + 1.0495 * dlogtk) * |
|
./pkg/dic/carbon_chem.F |
562 |
CARBON_COEFFS |
_RL invtk |
|
./pkg/dic/carbon_chem.F |
595 |
CARBON_COEFFS |
invtk=1.0 _d 0/tk |
|
./pkg/dic/carbon_chem.F |
633 |
CARBON_COEFFS |
ak1(i,j,bi,bj)=10.**(-1. _d 0*(3670.7 _d 0*invtk - |
|
./pkg/dic/carbon_chem.F |
636 |
CARBON_COEFFS |
ak2(i,j,bi,bj)=10.**(-1. _d 0*(1394.7 _d 0*invtk+ 4.777 _d 0- |
|
./pkg/dic/carbon_chem.F |
642 |
CARBON_COEFFS |
& 77.942 _d 0*s + 1.728 _d 0*s15 - 0.0996 _d 0*s2)*invtk + |
|
./pkg/dic/carbon_chem.F |
649 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = exp(-4576.752 _d 0*invtk + 115.525 _d 0 - |
|
./pkg/dic/carbon_chem.F |
651 |
CARBON_COEFFS |
& (-106.736 _d 0*invtk + 0.69171 _d 0)*sqrts + |
|
./pkg/dic/carbon_chem.F |
652 |
CARBON_COEFFS |
& (-0.65643 _d 0*invtk - 0.01844 _d 0)*s) |
|
./pkg/dic/carbon_chem.F |
656 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = exp(-8814.715 _d 0*invtk + 172.0883 _d 0 - |
|
./pkg/dic/carbon_chem.F |
658 |
CARBON_COEFFS |
& (-160.340 _d 0*invtk + 1.3566 _d 0) * sqrts + |
|
./pkg/dic/carbon_chem.F |
659 |
CARBON_COEFFS |
& (0.37335 _d 0*invtk - 0.05778 _d 0) * s) |
|
./pkg/dic/carbon_chem.F |
663 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = exp(-3070.75 _d 0*invtk - 18.141 _d 0 + |
|
./pkg/dic/carbon_chem.F |
664 |
CARBON_COEFFS |
& (17.27039 _d 0*invtk + 2.81197 _d 0) * |
|
./pkg/dic/carbon_chem.F |
665 |
CARBON_COEFFS |
& sqrts + (-44.99486 _d 0*invtk - 0.09984 _d 0) * s) |
|
./pkg/dic/carbon_chem.F |
669 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = exp(-8904.2 _d 0*invtk + 117.385 _d 0 - |
|
./pkg/dic/carbon_chem.F |
671 |
CARBON_COEFFS |
& (-458.79 _d 0*invtk + 3.5913 _d 0) * sqrtis + |
|
./pkg/dic/carbon_chem.F |
672 |
CARBON_COEFFS |
& (188.74 _d 0*invtk - 1.5998 _d 0) * is + |
|
./pkg/dic/carbon_chem.F |
673 |
CARBON_COEFFS |
& (-12.1652 _d 0*invtk + 0.07871 _d 0) * is2 + |
|
./pkg/dic/carbon_chem.F |
678 |
CARBON_COEFFS |
akw(i,j,bi,bj) = exp(-13847.26 _d 0*invtk + 148.9652 _d 0 - |
|
./pkg/dic/carbon_chem.F |
680 |
CARBON_COEFFS |
& (118.67 _d 0*invtk - 5.977 _d 0 + 1.0495 _d 0 * dlogtk) |
|
./pkg/dic/carbon_chem.F |
685 |
CARBON_COEFFS |
aks(i,j,bi,bj)=exp(-4276.1 _d 0*invtk + 141.328 _d 0 - |
|
./pkg/dic/carbon_chem.F |
687 |
CARBON_COEFFS |
& (-13856. _d 0*invtk + 324.57 _d 0 - 47.986 _d 0*dlogtk)*sqrtis+ |
|
./pkg/dic/carbon_chem.F |
688 |
CARBON_COEFFS |
& (35474. _d 0*invtk - 771.54 _d 0 + 114.723 _d 0*dlogtk)*is - |
|
./pkg/dic/carbon_chem.F |
689 |
CARBON_COEFFS |
& 2698. _d 0*invtk*is**1.5 _d 0 + 1776. _d 0*invtk*is2 + |
|
./pkg/dic/carbon_chem.F |
694 |
CARBON_COEFFS |
akf(i,j,bi,bj)=exp(1590.2 _d 0*invtk - 12.641 _d 0 + |
|
./pkg/dic/carbon_chem.F |
812 |
CARBON_COEFFS_PRESSURE_DEP |
_RL invtk |
|
./pkg/dic/carbon_chem.F |
875 |
CARBON_COEFFS_PRESSURE_DEP |
invtk=1.0/tk |
|
./pkg/dic/carbon_chem.F |
902 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj)=10**(-1*(3670.7*invtk - |
|
./pkg/dic/carbon_chem.F |
905 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj)=10**(-1*(1394.7*invtk + 4.777 - |
|
./pkg/dic/carbon_chem.F |
924 |
CARBON_COEFFS_PRESSURE_DEP |
& 1.728*s15 - 0.0996*s2)*invtk + |
|
./pkg/dic/carbon_chem.F |
941 |
CARBON_COEFFS_PRESSURE_DEP |
ak1p(i,j,bi,bj) = exp(-4576.752*invtk + 115.525 - |
|
./pkg/dic/carbon_chem.F |
943 |
CARBON_COEFFS_PRESSURE_DEP |
& (-106.736*invtk + 0.69171)*sqrts + |
|
./pkg/dic/carbon_chem.F |
944 |
CARBON_COEFFS_PRESSURE_DEP |
& (-0.65643*invtk - 0.01844)*s) |
|
./pkg/dic/carbon_chem.F |
948 |
CARBON_COEFFS_PRESSURE_DEP |
ak2p(i,j,bi,bj) = exp(-8814.715*invtk + 172.0883 - |
|
./pkg/dic/carbon_chem.F |
950 |
CARBON_COEFFS_PRESSURE_DEP |
& (-160.340*invtk + 1.3566) * sqrts + |
|
./pkg/dic/carbon_chem.F |
951 |
CARBON_COEFFS_PRESSURE_DEP |
& (0.37335*invtk - 0.05778) * s) |
|
./pkg/dic/carbon_chem.F |
955 |
CARBON_COEFFS_PRESSURE_DEP |
ak3p(i,j,bi,bj) = exp(-3070.75*invtk - 18.141 + |
|
./pkg/dic/carbon_chem.F |
956 |
CARBON_COEFFS_PRESSURE_DEP |
& (17.27039*invtk + 2.81197) * |
|
./pkg/dic/carbon_chem.F |
957 |
CARBON_COEFFS_PRESSURE_DEP |
& sqrts + (-44.99486*invtk - 0.09984) * s) |
|
./pkg/dic/carbon_chem.F |
961 |
CARBON_COEFFS_PRESSURE_DEP |
aksi(i,j,bi,bj) = exp(-8904.2*invtk + 117.385 - |
|
./pkg/dic/carbon_chem.F |
963 |
CARBON_COEFFS_PRESSURE_DEP |
& (-458.79*invtk + 3.5913) * sqrtis + |
|
./pkg/dic/carbon_chem.F |
964 |
CARBON_COEFFS_PRESSURE_DEP |
& (188.74*invtk - 1.5998) * is + |
|
./pkg/dic/carbon_chem.F |
965 |
CARBON_COEFFS_PRESSURE_DEP |
& (-12.1652*invtk + 0.07871) * is2 + |
|
./pkg/dic/carbon_chem.F |
970 |
CARBON_COEFFS_PRESSURE_DEP |
akw(i,j,bi,bj) = exp(-13847.26*invtk + 148.9652 - |
|
./pkg/dic/carbon_chem.F |
972 |
CARBON_COEFFS_PRESSURE_DEP |
& (118.67*invtk - 5.977 + 1.0495 * dlogtk) * |
|
./pkg/dic/carbon_chem.F |
977 |
CARBON_COEFFS_PRESSURE_DEP |
aks(i,j,bi,bj)=exp(-4276.1*invtk + 141.328 - |
|
./pkg/dic/carbon_chem.F |
979 |
CARBON_COEFFS_PRESSURE_DEP |
& (-13856*invtk + 324.57 - 47.986*dlogtk)*sqrtis + |
|
./pkg/dic/carbon_chem.F |
980 |
CARBON_COEFFS_PRESSURE_DEP |
& (35474*invtk - 771.54 + 114.723*dlogtk)*is - |
|
./pkg/dic/carbon_chem.F |
981 |
CARBON_COEFFS_PRESSURE_DEP |
& 2698*invtk*is**1.5 + 1776*invtk*is2 + |
|
./pkg/dic/carbon_chem.F |
986 |
CARBON_COEFFS_PRESSURE_DEP |
akf(i,j,bi,bj)=exp(1590.2*invtk - 12.641 + 1.525*sqrtis + |