research/incomp-flame-post
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

increased build info buffer

Browse source
This commit is contained in:
ignis 2019-06-14 06:15:05 +09:00
parent 95033a49f6
commit 7db0a2eb32
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
code/post_dns.f90
View file

@ -9,7 +9,7 @@
CHARACTER(100) :: num1char = "" CHARACTER(100) :: num1char = ""
character (len=2000) :: input_string character (len=8000) :: input_string = ""
call cstr(input_string) call cstr(input_string)
@ -26,7 +26,7 @@
WRITE(*,*) " -h show this help message and exit" WRITE(*,*) " -h show this help message and exit"
WRITE(*,*) " -v print version information" WRITE(*,*) " -v print version information"
ELSE IF(num1char=="-v") THEN ELSE IF(num1char=="-v") THEN
WRITE(*,*) input_string WRITE(*,*) input_string(1:lnblnk(input_string))
ELSE ELSE
WRITE(*,*) 'ERROR, OPTION NOT SUPPORTED ', num1char WRITE(*,*) 'ERROR, OPTION NOT SUPPORTED ', num1char
END IF END IF
@ -42,7 +42,7 @@
CALL m_openmpi_init CALL m_openmpi_init
if (iammaster) write(*,*) input_string if (iammaster) write(*,*) input_string(1:lnblnk(input_string))
CALL main CALL main