valx.f

Go to the documentation of this file.

C> @file
C> @brief Decode a real number from a character string

C> This function decodes a real number from a character string.
C> The string may contain a leading sign ('+' or '-') character.
C> If the decode fails for any reason, then the current placeholder
C> value for "missing" data is returned.
C>
C> @author J. Woollen
C> @date 1994-01-06
C>
C> @param[in] STR -- character*(*): String
C> @returns  VALX -- real: Value decoded from STR
C>
C> <b>Program History Log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 1994-01-06 | J. Woollen | Original author |
C> | 1998-07-08 | J. Woollen | Replaced call to CRAY library routine "ABORT" with call to new internal routine bort() |
C> | 1999-11-18 | J. Woollen | Renamed from val$ to valx because the $ symbol causes problems on certain platforms |
C> | 2003-11-04 | D. Keyser  | Use bort2() instead of bort() |
C> | 2009-04-21 | J. Ator    | Use errwrt() |
C> | 2021-09-30 | J. Ator    | Replace rjust with Fortran intrinsic adjustr |
C>
      FUNCTION valx(STR)

      USE modv_bmiss

      CHARACTER*(*) str
      CHARACTER*128 bort_str1,bort_str2
      CHARACTER*99  bstr
      CHARACTER*8   fmt

      COMMON /quiet / iprt

C----------------------------------------------------------------------
C----------------------------------------------------------------------

      lens = len(str)
      IF(lens.GT.99) goto 900
      bstr(1:lens) = adjustr(str)
      WRITE(fmt,'(''(F'',I2,''.0)'')') lens
      valx = bmiss
      READ(bstr,fmt,err=800) val
      valx = val
      goto 100
800   IF(iprt.GE.0) THEN
      CALL errwrt('+++++++++++++++++++++WARNING+++++++++++++++++++++++')
      CALL errwrt('BUFRLIB: VALX - ERROR READING STRING:')
      CALL errwrt(bstr(1:lens))
      CALL errwrt('RETURN WITH VALX = MISSING')
      CALL errwrt('+++++++++++++++++++++WARNING+++++++++++++++++++++++')
      CALL errwrt(' ')
      ENDIF

C  EXITS
C  -----

100   RETURN
900   WRITE(bort_str1,'("STRING IS: ",A)') str
      WRITE(bort_str2,'("BUFRLIB: VALX - STRING LENGTH EXCEEDS LIMIT '//
     . ' OF 99 CHARACTERS")')
      CALL bort2(bort_str1,bort_str2)
      END