diff --git a/src/lattice.f90 b/src/lattice.f90 index 4e288e96d..5cb254012 100644 --- a/src/lattice.f90 +++ b/src/lattice.f90 @@ -2172,7 +2172,7 @@ pure function lattice_isotropic_nu(C,assumption,lattice) result(nu) error stop 'invalid assumption' end if - mu = lattice_isotropic_mu(C,assumption,misc_optional(lattice,'')) + mu = lattice_isotropic_mu(C,assumption,lattice) nu = (1.5_pReal*K-mu)/(3.0_pReal*K+mu) end function lattice_isotropic_nu