anchor.diff:      if (depth_file.ne.'') then
           write(23,*) evlo,evla,evdp,str,len,wid*cos(dip*d2r)
       endif
  +    if (area_file.ne.'') then
  +        write(24,*) len*wid,len,wid
  +    endif
   enddo
   
   ! Epicenter data plots as a single point
  
positive.code: endif
  if (depth_file.ne.'') then
      open(unit=23,file=depth_file,status='unknown')
  endif
  if (epi_file.ne.'') then
      open(unit=31,file=epi_file,status='unknown')
  
negative.code:                   slip_file, &
                    time_file, &
                    depth_file, &
                    area_file, &
                    clip_file, &
                    clip_type, &
                    epi_file, &
  