*-- Author :    R. Henderson   24/10/94
      SUBROUTINE FPNDCA(TODIG,VDIG,TOCLS,VCLS,DIST)
C------------------------------------------------------------                                                 
C-----  FIND dca for the vectors a = todig + x*vdig                                                           
C-----           and the vectors b = tocls + x*vcls                                                           
C------------------------------------------------------------                                                 
C------------------------------------------------------------                                                 
*