30 |
C This allows the Bates et al formulation to calculate the |
C This allows the Bates et al formulation to calculate the |
31 |
C bolus transport and K for Redi |
C bolus transport and K for Redi |
32 |
#undef GM_K3D |
#undef GM_K3D |
33 |
|
#undef use_lapack |
34 |
|
#undef GM_K3D_PASSIVE |
35 |
|
|
36 |
C This allows the leading diagonal (top two rows) to be non-unity |
C This allows the leading diagonal (top two rows) to be non-unity |
37 |
C (a feature required when tapering adiabatically). |
C (a feature required when tapering adiabatically). |