aboutsummaryrefslogtreecommitdiff
path: root/orrs/src/getarg0.f
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2009-05-11 00:27:49 +0000
committerDimitri Sokolyuk <demon@dim13.org>2009-05-11 00:27:49 +0000
commit0d4f43d355de79178b1142e9735902cf641670b6 (patch)
tree2ced2323f6351db2a51090b3fd13eb11f69ff53f /orrs/src/getarg0.f
Xfoil 6.97
Diffstat (limited to 'orrs/src/getarg0.f')
-rw-r--r--orrs/src/getarg0.f20
1 files changed, 20 insertions, 0 deletions
diff --git a/orrs/src/getarg0.f b/orrs/src/getarg0.f
new file mode 100644
index 0000000..01c0d84
--- /dev/null
+++ b/orrs/src/getarg0.f
@@ -0,0 +1,20 @@
+
+ SUBROUTINE GETARG0(IARG,ARG)
+C------------------------------------------------
+C Same as GETARG, but...
+C
+C ...in the case of Intel Fortran, this one
+C doesn't barf if there's no Unix argument
+C (just returns blank string instead)
+C------------------------------------------------
+ CHARACTER*(*) ARG
+C
+ NARG = IARGC()
+ IF(NARG.GE.IARG) THEN
+ CALL GETARG(IARG,ARG)
+ ELSE
+ ARG = ' '
+ ENDIF
+C
+ RETURN
+ END ! GETARG0