From 58141210a2627d718ae262d39972bcf5c40600fd Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Wed, 12 Apr 2023 05:56:11 +0200
Subject: [PATCH] optional propagates

---
 src/lattice.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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