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

reject unsupported options and disable default input file name

Browse source
This commit is contained in:
ignis 2019-08-30 01:17:18 +09:00
parent 01877fe909
commit cb68140f62
1 changed files with 29 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
code/ysolve.f90
View file

@ -35,22 +35,42 @@
CHARACTER(100) :: num1char CHARACTER(100) :: num1char
!First, make sure the right number of inputs have been provided !First, make sure the right number of inputs have been provided
IF(COMMAND_ARGUMENT_COUNT().EQ.0)THEN IF(COMMAND_ARGUMENT_COUNT().EQ.1)THEN
! read from itape
read_itape = .true.
ELSE IF(COMMAND_ARGUMENT_COUNT().EQ.1)THEN
CALL GET_COMMAND_ARGUMENT(1,num1char) !first, read in the two values CALL GET_COMMAND_ARGUMENT(1,num1char) !first, read in the two values
ELSE ELSE
WRITE(*,*)'ERROR, TOO MANY COMMAND-LINE ARGUMENTS(MORE THAN ONE). STOPPING' WRITE(*,*)'ERROR, TOO MANY COMMAND-LINE ARGUMENTS(MORE THAN ONE). STOPPING'
STOP STOP
ENDIF ENDIF
read_stdin = (num1char=="-")
IF(read_itape)THEN IF(num1char(1:1) == "-") THEN
itape_name = "itape"
WRITE(*,*) "Read from itape" if(num1char=="-h") then
ELSE IF(read_stdin)THEN write(*,'(a)') "usage: ex [-h] -|input_file"
write(*,'(a)') ""
write(*,'(a)') "positional arguments:"
write(*,'(a)') " - read from std_in"
write(*,'(a)') " input_file input file name"
write(*,'(a)') ""
write(*,'(a)') "optional arguments:"
write(*,'(a)') " -h show this help message and exit"
stop
else if (num1char=="-") then
read_stdin = .true.
else
WRITE(*,*)'ERROR, UNSUPPORTED OPTION ', trim(num1char), '. STOPPING'
STOP
end if
ELSE
END IF
IF(read_stdin)THEN
WRITE(*,*) "Read from STDIN" WRITE(*,*) "Read from STDIN"
ELSE ELSE
itape_name = num1char itape_name = num1char