From 6f657b4163aab5607573dfbf3b953dea59067c1a Mon Sep 17 00:00:00 2001 From: Pedro Costa Date: Fri, 25 Nov 2022 21:47:37 +0000 Subject: [PATCH] nit --- src/main.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/main.f90 b/src/main.f90 index 169dff5..16cda58 100644 --- a/src/main.f90 +++ b/src/main.f90 @@ -204,7 +204,7 @@ program snac #else if(myid == 0) write(stderr,*) 'ERROR: there can be only one FFT direction; check the pre-processor flags.' if(myid == 0) write(stderr,*) 'Aborting...' - call MPI_FINALIZE + call MPI_FINALIZE() error stop #endif call test_sanity_fft(dims(idir),ng(idir),lmin(idir),lmax(idir),gr(idir))