optional propagates

2023-04-12 05:56:11 +02:00 · 2023-04-12 05:56:11 +02:00 · 58141210a2
parent 62c1fe3584
commit 58141210a2
1 changed files with 1 additions and 1 deletions
--- 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