Add a function to provide the version of GALAHAD in the Julia interface

ralna · Aug 15, 2024 · 8e56cfe · 8e56cfe
1 parent 46accfe
commit 8e56cfe
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/GALAHAD.jl/src/wrappers/version.jl b/GALAHAD.jl/src/wrappers/version.jl
@@ -4,6 +4,6 @@ function galahad_version()
   major = Ref{Cint}(0)
   minor = Ref{Cint}(0)
   patch = Ref{Cint}(0)
-  @ccall libgalahad_double.galahad_version(major::Ref{Cint}, minor::Ref{Cint}, patch::Ref{Cint})::Cvoid
+  @ccall libgalahad_double.version_galahad(major::Ref{Cint}, minor::Ref{Cint}, patch::Ref{Cint})::Cvoid
   return VersionNumber(major[], minor[], patch[])
 end
diff --git a/include/galahad_version.h b/include/galahad_version.h
@@ -1 +1 @@
-void galahad_version(int *major, int *minor, int *patch);
+void version_galahad(int *major, int *minor, int *patch);
diff --git a/src/version/version.F90 b/src/version/version.F90
@@ -31,7 +31,7 @@ MODULE GALAHAD_VERSION
 
 !-*-*-*-*-*-*-  G A L A H A D   V E R S I O N   F U N C T I O N   -*-*-*-*-*-*-
 
-      FUNCTION VERSION(major_version, minor_version, patch_version) BIND(C, NAME="version_galahad")
+      SUBROUTINE VERSION(major_version, minor_version, patch_version) BIND(C, NAME="version_galahad")
       INTEGER :: major_version, minor_version, patch_version
 
 !  return the current GALAHAD version number (major.minor.patch)
@@ -41,7 +41,7 @@ FUNCTION VERSION(major_version, minor_version, patch_version) BIND(C, NAME="vers
 
 !  End of subroutine VERSION
 
-      END FUNCTION VERSION
+      SUBROUTINE VERSION
 
 !  End of module GALAHAD_VERSION