*-- Author :    R. Henderson   24/10/94
      SUBROUTINE FPDCA(TODIG,VDIG,TOCLS,VCLS,DIST)
C----                                                                                                         
C------------------------------------------------------------                                                 
C-----  FIND dca for the vectors a = todig + x*vdig                                                           
C-----           and the vectors b = tocls + x*vcls                                                           
C------------------------------------------------------------                                                 
C----                                                                                                         
C----                                                                                                         
          CALL VUNIT(VCLS,VCLS,3)                                                                      
C----                                                                                                         
C---                                                                                                          
          CALL VUNIT(TCP,TCP,3)                                                                        
C---                                                                                                          
C---                                                                                                          
          CALL DINV(3,ATRIX,3,WORK,IFAIL)                                                              
C---                                                                                                          
C---                                                                                                          
           CALL VZERO(UVWSOL,3)                                                                        
C                                                                                                             
C---       Assign DIST to UVWSOL(3)                                                                           
C                                                                                                             
C                                                                                                             
*