The R Project SVN R

Rev

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

Rev 75253 Rev 76639
Line 58... Line 58...
58 
c     blas:     daxpy,ddot
 58 
c     blas:     daxpy,ddot
59 
c     fortran   mod
 59 
c     fortran   mod
60 
c
 60 
c
61 
      subroutine dtrsl(t,ldt,n,b,job,info)
 61 
      subroutine dtrsl(t,ldt,n,b,job,info)
62 
      integer ldt,n,job,info
 62 
      integer ldt,n,job,info
63 
      double precision t(ldt,*),b(*)
 63 
      double precision t(ldt,n),b(n)
64 
c
 64 
c
65 
c     internal variables
 65 
c     internal variables
66 
c
 66 
c
67 
      double precision ddot,temp
 67 
      double precision ddot,temp
68 
      integer kase,j,jj
 68 
      integer kase,j,jj