From 046c9f0b569695e915c2dff61c448576cc44d973 Mon Sep 17 00:00:00 2001 From: tTh Date: Sun, 4 Dec 2022 17:49:49 +0100 Subject: [PATCH] two small fix --- BloubWorld/exportbloubs.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/BloubWorld/exportbloubs.f90 b/BloubWorld/exportbloubs.f90 index b628e71..80c00ca 100644 --- a/BloubWorld/exportbloubs.f90 +++ b/BloubWorld/exportbloubs.f90 @@ -1,4 +1,4 @@ -program genbloubs +program exportbloubs use bloubspace implicit none @@ -11,7 +11,7 @@ program genbloubs ! parsing command line i = IARGC() if (1 .ne. i) then - STOP ' :BAD COMMAND LINE' + STOP ' : BAD COMMAND LINE' endif call getarg(1, filename)