SUBROUTINE DPDCK(A,LDA,N,INFO)
C This routine uses IMSL to check whether the matrix supplied is positive
C definite. Returns INFO=0 if not INFO=1 if it is pd
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      DIMENSION A(LDA,*),EVAL(1000)
      CALL DEVLSF(N,A,LDA,EVAL)
      DO 10 I=1,N
         IF(EVAL(I).LE.0) GO TO 100
 10      CONTINUE
      INFO=0
      RETURN
 100  INFO=1
      RETURN
      END