1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
!
! Copyright (C) 2015, Northwestern University and Argonne National Laboratory
! See COPYRIGHT notice in top-level directory.
!
! This is part of the PnetCDF package.
!
! $Id$
! This function gets the executable name and output file name from the
! command line.
integer function get_args(max_argc, cmd, filename, verbose, len)
#ifdef NAGFOR
USE F90_UNIX_ENV, only : iargc, getarg
implicit none
#else
implicit none
integer iargc
#endif
integer max_argc, len
character(len=*) cmd, filename
logical verbose
! local variables
integer argc, i
character(len=16) quiet_mode, str
character(len=256) full_cmd
get_args = 1
call getarg(0, full_cmd)
! remove basename from executable name
i = INDEX(full_cmd, "/", .TRUE.)
if (i .EQ. 0) then
cmd(:) = full_cmd(:)
else
cmd(:) = full_cmd(i+1:)
endif
argc = IARGC()
! command-line arguments are optional
if (argc .EQ. 0) return
if (argc .GT. max_argc) then
if (max_argc .EQ. 3) &
print*,'Usage: ',trim(cmd),' [-q] [filename] [len]'
if (max_argc .EQ. 2) &
print*,'Usage: ',trim(cmd),' [-q] [filename]'
get_args = 0
return
endif
call getarg(1, quiet_mode)
if (quiet_mode(1:2) .EQ. '-q') then
verbose = .FALSE.
if (argc .GE. 2) call getarg(2, filename)
if (argc .EQ. 3) then
call getarg(3, str)
read (str,'(I10)') len
endif
else
if (argc .GE. 1) call getarg(1, filename)
if (argc .EQ. 2) then
call getarg(2, str)
read (str,'(I10)') len
endif
endif
end function get_args
|
