The R Project SVN R

Rev

Rev 808 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 808 Rev 20777
Line 44... Line 44...
44 
c
 44 
c
45 
c     blas daxpy,ddot
 45 
c     blas daxpy,ddot
46 
c
 46 
c
47 
      subroutine dposl(a,lda,n,b)
 47 
      subroutine dposl(a,lda,n,b)
48 
      integer lda,n
 48 
      integer lda,n
49 
      double precision a(lda,1),b(1)
 49 
      double precision a(lda,*),b(*)
50 
c
 50 
c
51 
c     internal variables
 51 
c     internal variables
52 
c
 52 
c
53 
      double precision ddot,t
 53 
      double precision ddot,t
54 
      integer k,kb
 54 
      integer k,kb