use vcpwdf if nlopt is not available

aoterodelaroza · Oct 27, 2024 · 967e279 · 967e279
1 parent 6c9a59e
commit 967e279
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/VERSION b/VERSION
@@ -1 +1 @@
-1.2.310
+1.2.311
diff --git a/src/[email protected] b/src/[email protected]
@@ -2036,13 +2036,17 @@ module subroutine struct_comparevc(s,line)
 
     ! header and initalization
     lp = 1
-    write (uout,'("* COMPAREVC: compare crystal structures allowing for deformed cells")')
-
     word = lgetword(line,lp)
     if (equal(word,'vcpwdf')) then
        call struct_comparevc_vcpwdf(s,line(lp:))
+    elseif (equal(word,'vcgpwdf')) then
+       call struct_comparevc_vcgpwdf(s,line(lp:))
     else
+#ifdef HAVE_NLOPT
        call struct_comparevc_vcgpwdf(s,line)
+#else
+       call struct_comparevc_vcpwdf(s,line)
+#endif
     end if
 
   end subroutine struct_comparevc