You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
779 B
28 lines
779 B
2 years ago
|
C Copyright(C) 1999-2020 National Technology & Engineering Solutions
|
||
|
|
C of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
|
||
|
|
C NTESS, the U.S. Government retains certain rights in this software.
|
||
|
|
C
|
||
|
|
C See packages/seacas/LICENSE for details
|
||
|
|
|
||
|
|
integer function argument_count()
|
||
|
|
integer*4 arg_count4
|
||
|
|
arg_count4 = iargc()
|
||
|
|
argument_count = arg_count4
|
||
|
|
return
|
||
|
|
end
|
||
|
|
|
||
|
|
subroutine get_argument(which, optvalue, length)
|
||
|
|
integer which
|
||
|
|
character*(*) optvalue
|
||
|
|
integer length
|
||
|
|
#if defined(__XLF__) || defined(__INTEL_COMPILER)
|
||
|
|
integer*4 which4
|
||
|
|
which4 = which
|
||
|
|
call getarg(which4, optvalue)
|
||
|
|
#else
|
||
|
|
call getarg(which, optvalue)
|
||
|
|
#endif
|
||
|
|
length = lenstr(optvalue)
|
||
|
|
return
|
||
|
|
end
|