anchor.diff:  endif
   
   
  +if (verbosity.ge.2) then
  +    write(stdout,*) 'read_tensile: read',ntensile,' tensile sources'
  +endif
   if (verbosity.ge.3) then
       if (coord_type.eq.'geographic') then
           write(stdout,*) '   #         Lon         Lat   Dep(km)     Str     Dip  '//&
  
positive.code:     do i = 2,nstations
          targets(i,:) = targets(1,:)
      enddo
  endif
  
  if (debug_mode.eq.'read_targets'.or.debug_mode.eq.'all') then
  
negative.code: endif
  
  
  if (verbosity.ge.2) then
      write(stdout,*) 'read_stations: read',nstations,' stations'
  endif
  if (verbosity.ge.3) then
      if (auto_mode.eq.'') then
          if (coord_type.eq.'geographic') then
  