isize.f

Go to the documentation of this file.

C> @file
C> @author ATOR @date 2009-03-23
    
C> THIS FUNCTION COMPUTES AND RETURNS THE NUMBER OF CHARACTERS
C>   NEEDED TO ENCODE THE INPUT INTEGER NUM AS A STRING.  IT DOES NOT
C>   ACTUALLY ENCODE THE STRING BUT RATHER ONLY FIGURES OUT THE REQUIRED
C>   SIZE.  NUM MUST BE AN INTEGER IN THE RANGE OF 0 TO 99999.
C>
C> PROGRAM HISTORY LOG:
C> 2009-03-23  J. ATOR    -- ORIGINAL AUTHOR
C> 2016-02-12  J. ATOR    -- MODIFIED FOR CRAYFTN COMPATIBILITY
C>
C> USAGE:    CALL ISIZE ( NUM )
C>   INPUT ARGUMENT LIST:
C>     NUM      - INTEGER: NUMBER TO BE ENCODED
C>
C>   OUTPUT ARGUMENT LIST:
C>     ISIZE    - INTEGER: NUMBER OF CHARACTERS NECESSARY TO ENCODE NUM
C>                AS A STRING
C>
C> REMARKS:
C>    THIS ROUTINE CALLS:        BORT
C>    THIS ROUTINE IS CALLED BY: MTFNAM   UFBDMP   UFDUMP
C>                               Normally not called by any application
C>                               programs but it could be.
C>
    INTEGER FUNCTION isize (NUM)
 
 
 
    CHARACTER*128 bort_str
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
    IF ( num .GE. 0 ) THEN
      DO isize = 1, 5
        IF ( num .LT. 10**isize ) RETURN
      ENDDO
    ENDIF
    WRITE(bort_str,'("BUFRLIB: ISIZE - INPUT NUMBER (",I7,'//
     .    '") IS OUT OF RANGE")') num
    CALL bort(bort_str)
 
    RETURN
    END