two small fix

This commit is contained in:
tTh 2022-12-04 17:49:49 +01:00
parent 4853779493
commit 046c9f0b56

View File

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