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:       COMMON /KVARS0/ K1,K2,K3
        COMMON /YVARS0/ U2,V2,W2
        COMMON /ZVARS0/ U3,V3,W3
        COMMON /PRODUCTS/ xx,xy,yy,dd,xd,xc,xq,yq,dq,pq
        COMMON /TAG/ thru
  C----
        thru = 0
  