anchor.diff:        if (tfile.ne.'none') open(unit=22,file=tfile,status='unknown')
         if (zfile.ne.'none') open(unit=23,file=zfile,status='unknown')
         if (nfile.ne.'none') open(unit=25,file=nfile,status='unknown')
  +      if (efile.ne.'none') open(unit=26,file=efile,status='unknown')
  +      if (dfile.ne.'none') open(unit=27,file=dfile,status='unknown')
   
   C----
   C Read finite fault model
  
positive.code:               write(23,*) evlo(i),evla(i),evdp(i)*1d-3,str(i),
       1                                        dx(i)*1d-3,dy(i)*1d-3*cosd
            endif
    101     continue
    102 continue
        if (cfile.ne.'none') then
            call getclip(cfile,evlo,evla,str,dx,dy,dip,seg,nseg,nflt,cf)
        endif
  
        close(21)
        close(22)
        close(23)
        close(25)
  
        END
  
  
negative.code: 
  C----------------------------------------------------------------------c
  
        SUBROUTINE gcmdln(ifile,sfile,tfile,zfile,cfile,nfile,efile,dfile,
       1                  time,cf)
        IMPLICIT none
        CHARACTER*40 tag,ifile,sfile,tfile,zfile,cfile,nfile,efile,dfile
        INTEGER narg,i,cf
        REAL*8 time
        ifile = 'none'
  