subroutine back_skip_blanks(line,location) implicit none character*(*) line integer*4 location,length,i length=len(line) location=0 do i=length,1,-1 if(.not.((line(i:i).eq.' ').or. 1 (line(i:i).eq.char(9)).or. 1 (line(i:i).eq.char(0))))then location=i return endif enddo return end