anchor.diff:        RETURN
         END
   
  -C-------------------
  -
  -      SUBROUTINE rectdisp(f,ksi,eta,q,z)
  +C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -C
  +
  +      SUBROUTINE disp1(f,ksi,eta,q,z)
   C----
   C Components of displacement from finite source
   C----
  
positive.code: 
  C-------------------
  
        SUBROUTINE rectzder(fz,ksi,eta,q,z)
  C----
  C Components of z-derivatives of displacement from finite source
  C----
  
negative.code: 
  C-------------------
  
        SUBROUTINE disp1stn(f,ksi,eta,q,z)
  C----
  C Components of displacement due to finite source for calculating
  C partial derivatives
  