CTITLEPDOT   -- FUNCTION USED BY SDPICK                                 00010001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA                                                                      00020000
CA   DESIGNER             P. C. LUH                                     00030000
CA   AUTHOR               P. C. LUH                                     00040000
CA   LANGUAGE             FORTRAN                                       00050000
CA   SYSTEM               IBM  ONLY                                     00060000
CA   DATE                 MM/DD/YY                                      00070000
C    REVISED              MM/DD/YY                                      00080000
C                                                                       00090000
C                                                                       00100000
      FUNCTION PDOT(N,A,C)                                              00110000
C                                                                       00120000
      DIMENSION A(1),C(1)                                               00130000
C                                                                       00140000
      PDOT=0.                                                           00150000
      DO 99 I=1,N                                                       00160000
   99 PDOT=PDOT+A(I)*C(I)                                               00170000
C                                                                       00180000
      RETURN                                                            00190000
C                                                                       00200000
      END                                                               00210000