The R Project SVN R

Rev

Rev 19762 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 19762 Rev 76639
Line 40... Line 40...
40 
c     blas ddot
 40 
c     blas ddot
41 
c     fortran dsqrt
 41 
c     fortran dsqrt
42 
c
 42 
c
43 
      subroutine dpofa(a,lda,n,info)
 43 
      subroutine dpofa(a,lda,n,info)
44 
      integer lda,n,info
 44 
      integer lda,n,info
45 
      double precision a(lda,*)
 45 
      double precision a(lda,n)
46 
c
 46 
c
47 
c     internal variables
 47 
c     internal variables
48 
c
 48 
c
49 
      double precision ddot,t,eps
 49 
      double precision ddot,t,eps
50 
      double precision s
 50 
      double precision s