Skip to content
Snippets Groups Projects

Feature/amalgamated

Closed Stephan Schulz requested to merge feature/amalgamated into refactor
4 files
+ 21
1
Compare changes
  • Side-by-side
  • Inline

Files

+ 2
1
@@ -80,7 +80,7 @@ PROGRAM ALL_test_f
CALL ALL_setWork(obj, real( product(coords,1)*64,8) )
CALL ALL_setVertices(obj,vertices)
! if using a non cartesian communicator, this call would be required
! CALL ALL_setProcGridParams(obj,coords,dims)
CALL ALL_setProcGridParams(obj,coords,dims)
CALL ALL_setCommunicator(obj,cart_comm)
CALL ALL_setup(obj)
@@ -100,6 +100,7 @@ PROGRAM ALL_test_f
END IF
END DO
DEALLOCATE(new_vertices)
CALL ALL_finalize(obj);
CALL MPI_FINALIZE(error);
END PROGRAM
Loading