anchor.diff:        if (vrb.ge.3) then
             write(0,'("INPUT OBSERVATIONS")')
             write(0,'("------------------")')
  -          write(0,'("nobs: ",I5)'),nobs
  -          write(0,'(3A12,3A14)'),'x','y','z','ux','uy','uz'
  +          write(0,'("nobs: ",I5)') nobs
  +          write(0,'(3A12,3A14)') 'x','y','z','ux','uy','uz'
             do 901 i = 1,nobs
                 write(0,'(3F12.2,3F14.4)') (obs(i,j),j=1,6)
     901     continue
  
positive.code:           write(0,*)
            write(0,'("HALF-SPACE PARAMETERS")')
            write(0,'("---------------------")')
            write(0,'(3A14)'),'vp','vs','dens'
            write(0,'(3F14.4)') haf(1),haf(2),haf(3)
            write(0,*)
        endif
  
negative.code:       if (vrb.ge.3) then
            write(0,'("INPUT FAULTS")')
            write(0,'("------------")')
            write(0,'("nflt: ",I5)') nflt
            write(0,'(3A12,4A14)') 'x','y','z','str','dip','wid','len'
            do 902 i = 1,nflt
                write(0,'(3F12.2,4F14.4)') (flt(i,j),j=1,7)
    902     continue
  