c  check for directory
c  leftbrak = place of left bracket "["
c ightbrak=   place of right braket "]"
c istart= place of start of name less directory 
d iend =place of end of name less directory
	subroutine strip_dirname(name,istart,iend,leftbrak,ightbrak)
	character*59 name
	istart=0
	ightbrak=0
	do i=1,72
	  if(name(i:i).ne.' '.and.istart.eq.0)istart=i
	  if(name(i:i).eq.'[')leftbrak=i
	  if(name(i:i).eq.']')ightbrak=i
	  if(name(i:i).eq.' '.and.istart.ne.0)then
	    iend=i-1
	    goto 2
	    endif
	  end do
2	if(ightbrak.ne.0)istart=ightbrak
	return
	end