Line data    Source code

       1           0 :       subroutine ljusty(text)
       2             : C
       3             : C     A.J. Hunt  -  August, 1981
       4             : C     H.May - August 1987, fix handling of blank string
       5             : C     JER 03/01/91; blank-fill null strings.
       6             : C
       7             : C  call ljusty (text)
       8             : C
       9             : C     LJUSTY is a subroutine for left justifying a text string 
      10             : C     (i.e. removing the leading spaces and shifting them to 
      11             : C      the end).
      12             :  
      13             :       character *(*) text
      14             :       integer ist
      15             :  
      16           0 :       do ist=1,len(text)
      17           0 :           if (ichar(text(ist:ist)) .eq. 0) text(ist:ist) = ' '
      18           0 :           if (text(ist:ist).ne.' ') goto 100
      19             :       end do
      20           0 :       return
      21             : 
      22           0 : 100   text = text(ist:)
      23             : 
      24           0 :       return
      25           0 :       end