Skip to content
Snippets Groups Projects
Verified Commit 44ebf7a3 authored by Giannis Nikiteas's avatar Giannis Nikiteas
Browse files

Removed `M_PI` variable

Fortran moules are public by default so limiting the number of
unecessary variables is important as to not populate the global scope.
parent 681e008a
No related branches found
No related tags found
No related merge requests found
...@@ -1403,7 +1403,6 @@ module gmsh ...@@ -1403,7 +1403,6 @@ module gmsh
integer, parameter :: {2}_API_VERSION_MINOR = {5} integer, parameter :: {2}_API_VERSION_MINOR = {5}
integer, parameter :: {2}_API_VERSION_PATCH = {6} integer, parameter :: {2}_API_VERSION_PATCH = {6}
character(len=100), parameter :: {2}_API_VERSION = "{4}.{5}.{6}" character(len=100), parameter :: {2}_API_VERSION = "{4}.{5}.{6}"
real(c_double), parameter::M_PI = 3.14159265358979323846d0
interface interface
""" """
......
...@@ -98,7 +98,7 @@ program main ...@@ -98,7 +98,7 @@ program main
call gmshModelGeoTranslate(t, 2_8, -0.02d0, 0d0, 0d0, ierr) 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) call gmshModelGeoCopy(iv, 2_8, ov, ov_n, ierr)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment