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