tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

two small fix

Browse Source
This commit is contained in:
tTh 2022-12-04 17:49:49 +01:00
parent 4853779493
commit 046c9f0b56
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
BloubWorld/exportbloubs.f90
View File

@ -1,4 +1,4 @@
program genbloubs program exportbloubs
use bloubspace use bloubspace
implicit none implicit none
@ -11,7 +11,7 @@ program genbloubs
! parsing command line ! parsing command line
i = IARGC() i = IARGC()
if (1 .ne. i) then if (1 .ne. i) then
STOP ' :BAD COMMAND LINE' STOP ' : BAD COMMAND LINE'
endif endif
call getarg(1, filename) call getarg(1, filename)