jstchr.f

Go to the documentation of this file.

C> @file
C> @author WOOLLEN @date 1994-01-06
      
C> THIS SUBROUTINE LEFT-JUSTIFIES (I.E. REMOVES ALL LEADING
C>   BLANKS FROM) A CHARACTER STRING.
C>
C> PROGRAM HISTORY LOG:
C> 1994-01-06  J. WOOLLEN -- ORIGINAL AUTHOR (ENTRY POINT IN JSTIFY)
C> 1998-07-08  J. WOOLLEN -- REPLACED CALL TO CRAY LIBRARY ROUTINE
C>                           "ABORT" WITH CALL TO NEW INTERNAL BUFRLIB
C>                           ROUTINE "BORT" (IN PARENT ROUTINE JSTIFY)
C> 2002-05-14  J. WOOLLEN -- CHANGED FROM AN ENTRY POINT TO INCREASE
C>                           PORTABILITY TO OTHER PLATFORMS (JSTIFY WAS
C>                           THEN REMOVED BECAUSE IT WAS JUST A DUMMY
C>                           ROUTINE WITH ENTRIES)
C> 2003-11-04  J. ATOR    -- ADDED DOCUMENTATION
C> 2003-11-04  S. BENDER  -- ADDED REMARKS/BUFRLIB ROUTINE
C>                           INTERDEPENDENCIES
C> 2003-11-04  D. KEYSER  -- UNIFIED/PORTABLE FOR WRF; ADDED HISTORY
C>                           DOCUMENTATION; OUTPUTS MORE COMPLETE
C>                           DIAGNOSTIC INFO WHEN ROUTINE TERMINATES
C>                           ABNORMALLY
C> 2007-01-19  J. ATOR    -- RESTRUCTURED AND ADDED IRET ARGUMENT
C>
C> USAGE:    CALL JSTCHR (STR, IRET)
C>   INPUT ARGUMENT LIST:
C>     STR      - CHARACTER*(*): STRING
C>
C>   OUTPUT ARGUMENT LIST:
C>     STR      - CHARACTER*(*): COPY OF INPUT STR WITH LEADING BLANKS
C>                REMOVED
C>     IRET     - INTEGER: RETURN CODE:
C>                       0 = normal return
C>                      -1 = input string was empty (i.e. all blanks)
C>
C> REMARKS:
C>    THIS ROUTINE CALLS:        None
C>    THIS ROUTINE IS CALLED BY: ELEMDX   IGETFXY  SNTBBE   SNTBDE
C>                               SNTBFE
C>                               Normally not called by any application
C>                               programs but it could be.
C>
      SUBROUTINE jstchr(STR,IRET)



      CHARACTER*(*) str

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

      IF(str.EQ.' ') THEN
         iret = -1
      ELSE
         iret = 0
         lstr = len(str)
         DO WHILE(str(1:1).EQ.' ')
            str = str(2:lstr)
         ENDDO
      ENDIF

      RETURN
      END