From 0d4f43d355de79178b1142e9735902cf641670b6 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Mon, 11 May 2009 00:27:49 +0000 Subject: Xfoil 6.97 --- orrs/src/getarg0.f | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 orrs/src/getarg0.f (limited to 'orrs/src/getarg0.f') 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 -- cgit v1.2.3