Skip to content
Snippets Groups Projects
Commit 0fc87520 authored by Stephan Schulz's avatar Stephan Schulz
Browse files

fix function names in errors in Fortran module (#21)

parent ca8e899b
No related branches found
No related tags found
1 merge request!8Refactor
Pipeline #52698 failed
Stage: build_mpich_gcc8
Stage: build_openmpi_gcc8
Stage: build_mpich_gcc9
Stage: build_openmpi_gcc9
Stage: build_mpich_gcc10
Stage: build_openmpi_gcc10
Show whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
src/ALL_module.F90
+ 1
− 1
View file @ 0fc87520
...@@ -326,7 +326,7 @@ contains ...@@ -326,7 +326,7 @@ contains
real(c_double), dimension(:,:), intent(in) :: vertices !< vertices of domain, for `n` domains must have shape: (dim,n) real(c_double), dimension(:,:), intent(in) :: vertices !< vertices of domain, for `n` domains must have shape: (dim,n)
#ifndef NDEBUG #ifndef NDEBUG
if(size(vertices,1) /= this%dim) then if(size(vertices,1) /= this%dim) then
write(error_unit,'(a)') "ALL_setVertices: Wrong dimension for vertices" write(error_unit,'(a)') "ALL_set_vertices: Wrong dimension for vertices"
stop stop
endif endif
#endif #endif
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment