Skip to content
Snippets Groups Projects

Feature/amalgamated

Closed Stephan Schulz requested to merge feature/amalgamated into refactor
1 file
+ 1
1
Compare changes
  • Side-by-side
  • Inline
+ 1
1
@@ -299,8 +299,8 @@ contains
class(ALL_t), intent(in) :: this
real(c_double), dimension(:,:), intent(out) :: vertices !< set to new vertices, must be exact size (dim,n)
integer(c_int) :: n_verts
#ifndef NDEBUG
call this%get_new_n_vertices(n_verts)
#ifndef NDEBUG
if(size(vertices,1) /= this%dim .or. size(vertices,2) < n_verts) then
write(error_unit,'(a)') "ALL_getResultVertices: vertices array not large enough!"
stop
Loading