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))