The R Project SVN R

Rev

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

Rev 3388 Rev 12778
Line 1... Line 1...
1 
      subroutine dpbsl(abd,lda,n,m,b)
 1 
      subroutine dpbsl(abd,lda,n,m,b)
2 
 
 2 
 
3 
      implicit none
 - 
 
4 
      integer lda,n,m
 3 
      integer lda,n,m
5 
      double precision abd(lda,n),b(n)
 4 
      double precision abd(lda,n),b(n)
6 
c
 5 
c
7 
c     dpbsl solves the double precision symmetric positive definite
 6 
c     dpbsl solves the double precision symmetric positive definite
8 
c     band system  a*x = b
 7 
c     band system  a*x = b