rjust.f

Go to the documentation of this file.

C> @file
C> @author WOOLLEN @date 1994-01-06
      
C> THIS FUNCTION RIGHT JUSTIFIES A CHARACTER STRING.
C>
C> PROGRAM HISTORY LOG:
C> 1994-01-06  J. WOOLLEN -- ORIGINAL AUTHOR
C> 2003-11-04  S. BENDER  -- ADDED REMARKS/BUFRLIB ROUTINE
C>                           INTERDEPENDENCIES
C> 2003-11-04  D. KEYSER  -- UNIFIED/PORTABLE FOR WRF; ADDED
C>                           DOCUMENTATION (INCLUDING HISTORY); OUTPUTS
C>                           MORE COMPLETE DIAGNOSTIC INFO WHEN ROUTINE
C>                           TERMINATES ABNORMALLY
C>
C> USAGE:    RJUST (STR)
C>   INPUT ARGUMENT LIST:
C>     STR      - CHARACTER*(*): STRING TO BE RIGHT-JUSTIFED
C>
C>   OUTPUT ARGUMENT LIST:
C>     STR      - CHARACTER*(*): RIGHT-JUSTIFIED STRING
C>     RJUST    - REAL: ALWAYS RETURNED AS 0 (DUMMY)
C>
C> REMARKS:
C>    THIS ROUTINE CALLS:        BORT
C>    THIS ROUTINE IS CALLED BY: SNTBBE   UFBDMP   UFDUMP   VALX
C>                               Normally not called by any application
C>                               programs but it could be.
C>
      FUNCTION rjust(STR)



      CHARACTER*(*) str
      rjust = 0.
      IF(str.EQ.' ') goto 100
      lstr = len(str)
      DO WHILE(str(lstr:lstr).EQ.' ')
         DO i=lstr,2,-1
         str(i:i) = str(i-1:i-1)
         ENDDO
         str(1:1) = ' '
      ENDDO

C  EXIT
C  ----

100   RETURN
      END