c ctadj.f c c
    

      program tadj
      character*32 string  , sout , stout
      character*2 space
      data space(1:1)/' '/
      space(2:2)=achar(9)
      istop=len(string)
      open(11,file='tadj.in')
      print *,'12345678901234567890'
    5 read(11,'(a)',end=10) string
c      
      sout = adjustl(string)
c     
      istart=verify(string,space)
c      
      stout=string(istart:istop)
      print *, string
      print *, sout
      print *, stout
      go to 5
c
   10 stop
      end
c
c c