resolve an error

PrincetonUniversity · Dec 18, 2024 · 5586201 · 5586201
1 parent 95174fa
commit 5586201
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/hesian.f90 b/src/hesian.f90
@@ -94,7 +94,7 @@ subroutine hesian( NGdof, position, Mvol, mn, LGdof )
 
   ! Only makes sense to compute the Hessian if helicity is constrained
   if(Lconstraint.ne.2) then
-    write(ounit, 'hesian only calculated when Lcons=2')
+    write(*, *) 'hesian: only calculates the hessian matrix when Lcons=2'
     return
   endif