added no argument case to subroutine parse
This commit is contained in:
parent
e87d137a88
commit
6498610ce5
1 changed files with 3 additions and 0 deletions
|
|
@ -18,6 +18,9 @@
|
|||
!First, make sure the right number of inputs have been provided
|
||||
IF(COMMAND_ARGUMENT_COUNT().EQ.1)THEN
|
||||
CALL GET_COMMAND_ARGUMENT(1,num1char) !first, read in the two values
|
||||
ELSE IF(COMMAND_ARGUMENT_COUNT().EQ.0)THEN
|
||||
WRITE(*,*)'ERROR, NO COMMAND-LINE ARGUMENT'
|
||||
num1char = "-h"
|
||||
ELSE
|
||||
WRITE(*,*)'ERROR, TOO MANY COMMAND-LINE ARGUMENTS(MORE THAN ONE). STOPPING'
|
||||
STOP
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue