diff --git a/api/GenApi.py b/api/GenApi.py index 18e000c5ad6dd15694933b7dbc20dc31b2fc4765..6d76db6a80d087a1e27798f55a898eda132f5111 100644 --- a/api/GenApi.py +++ b/api/GenApi.py @@ -1403,7 +1403,6 @@ module gmsh integer, parameter :: {2}_API_VERSION_MINOR = {5} integer, parameter :: {2}_API_VERSION_PATCH = {6} character(len=100), parameter :: {2}_API_VERSION = "{4}.{5}.{6}" - real(c_double), parameter::M_PI = 3.14159265358979323846d0 interface """ diff --git a/tutorials/fortran/t2.f90 b/tutorials/fortran/t2.f90 index 90dc7fdf5d268caae8fdead30486a7b159a6d8bc..d898ca260da0be8989979a6665ef5d5195ea58a4 100644 --- a/tutorials/fortran/t2.f90 +++ b/tutorials/fortran/t2.f90 @@ -98,7 +98,7 @@ program main call gmshModelGeoTranslate(t, 2_8, -0.02d0, 0d0, 0d0, ierr) - call gmshModelGeoRotate(t, 2_8, 0d0, 0.3d0, 0d0, 0d0, 0d0, 1d0, -M_PI / 4d0, ierr) + call gmshModelGeoRotate(t, 2_8, 0d0, 0.3d0, 0d0, 0d0, 0d0, 1d0, -acos(1.0) / 4d0, ierr) call gmshModelGeoCopy(iv, 2_8, ov, ov_n, ierr)