diff --git a/api/GenApi.py b/api/GenApi.py index 6d76db6a80d087a1e27798f55a898eda132f5111..b22f0948d9ae08c2a521c0c8899cee1948b9237f 100644 --- a/api/GenApi.py +++ b/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 diff --git a/api/gmsh.f90 b/api/gmsh.f90 index 10d92b66a2d2b2dd6ccf4a9dd207d55baed68f79..c6fd74f8550bd4650be0e29153bb59f40c8d2900 100644 --- a/api/gmsh.f90 +++ b/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 + character(len=100), parameter :: GMSH_API_VERSION = "4.10.4" 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