hwrf-baseline-20120103-1354/ungrib/src/ngl/w3/fparser.f

   1 C-----------------------------------------------------------------------
   2       SUBROUTINE FPARSER(CARG,MARG,RARG)
   3 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 C                .      .    .                                       .
   5 C SUBPROGRAM:  FPARSER       PARSE REAL NUMBERS FROM A CHARACTER STRING
   6 C   PRGMMR: IREDELL          ORG: NP23        DATE:1998-09-03
   7 C
   8 C ABSTRACT: THIS SUBPROGRAM EXTRACTS REAL NUMBERS FROM A FREE-FORMAT
   9 C   CHARACTER STRING.  IT IS USEFUL FOR PARSING COMMAND ARGUMENTS.
  10 C
  11 C PROGRAM HISTORY LOG:
  12 C 1998-09-03  IREDELL
  13 C
  14 C USAGE:  CALL FPARSER(CARG,MARG,RARG)
  15 C
  16 C   INPUT ARGUMENT LIST:
  17 C     CARG     - CHARACTER*(*) STRING OF ASCII DIGITS TO PARSE.
  18 C                REAL NUMBERS MAY BE SEPARATED BY A COMMA OR BY BLANKS.
  19 C     MARG     - INTEGER MAXIMUM NUMBER OF REAL NUMBERS TO PARSE.
  20 C
  21 C   OUTPUT ARGUMENT LIST:
  22 C     RARG     - REAL (MARG) NUMBERS PARSED.
  23 C                (FROM 0 TO MARG VALUES MAY BE RETURNED.)
  24 C
  25 C REMARKS:
  26 C   TO DETERMINE THE ACTUAL NUMBER OF REAL NUMBERS FOUND IN THE STRING,
  27 C   RARG SHOULD BE SET TO FILL VALUES BEFORE THE CALL TO FPARSER AND
  28 C   THE NUMBER OF NON-FILL VALUES SHOULD BE COUNTED AFTER THE CALL.
  29 C
  30 C ATTRIBUTES:
  31 C   LANGUAGE: FORTRAN 90
  32 C
  33 C$$$
  34       CHARACTER*(*) CARG
  35       REAL RARG(MARG)
  36 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  37       READ(CARG,*,IOSTAT=IOS) RARG
  38 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  39       END