diff --git a/code/post_dns.f90 b/code/post_dns.f90 index 034db8f..5f5d436 100644 --- a/code/post_dns.f90 +++ b/code/post_dns.f90 @@ -9,7 +9,7 @@ CHARACTER(100) :: num1char = "" - character (len=2000) :: input_string + character (len=8000) :: input_string = "" call cstr(input_string) @@ -26,7 +26,7 @@ WRITE(*,*) " -h show this help message and exit" WRITE(*,*) " -v print version information" ELSE IF(num1char=="-v") THEN - WRITE(*,*) input_string + WRITE(*,*) input_string(1:lnblnk(input_string)) ELSE WRITE(*,*) 'ERROR, OPTION NOT SUPPORTED ', num1char END IF @@ -42,7 +42,7 @@ CALL m_openmpi_init - if (iammaster) write(*,*) input_string + if (iammaster) write(*,*) input_string(1:lnblnk(input_string)) CALL main