Minor changes and update gmsh.f90

api/GenApi.py

@@ -810,7 +810,7 @@ def iargcargv():
     a.julia_arg = "length(argv), argv"
     a.texi = "(argc = 0)}, @code{argv = []"
     a.fortran_name_pre = "argc,"
-    a.fortran_type = "integer (C_INT), value :: argc\n            type (C_PTR)"
+    a.fortran_type = "integer(c_int), value :: argc\n" + " " * 8 + "type(c_ptr)"
     a.fortran_type_post = "(*)"
     return a
 

api/gmsh.f90

@@ -21,9 +21,7 @@ module gmsh
     integer, parameter :: GMSH_API_VERSION_MAJOR = 4
     integer, parameter :: GMSH_API_VERSION_MINOR = 10
     integer, parameter :: GMSH_API_VERSION_PATCH = 4
-    ! TODO: the len= is problematic
     character(len=100), parameter :: GMSH_API_VERSION = "4.10.4"
-    real(c_double), parameter::M_PI = 3.14159265358979323846d0
 
     interface
 
@@ -39,8 +37,8 @@ module gmsh
     !! to "General.NumThreads".
     subroutine gmshInitialize(argc,argv, readConfigFiles, run, ierr) bind(C, name="gmshInitialize")
         use, intrinsic :: iso_c_binding
-        integer (C_INT), value :: argc
-            type (C_PTR) :: argv(*)
+        integer(c_int), value :: argc
+        type(c_ptr) :: argv(*)
         integer(c_int), value :: readConfigFiles
         integer(c_int), value :: run
         integer(c_int) :: ierr