The R Project SVN R

Rev

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

Rev 5458 Rev 13602
Line 1... Line 1...
1 
c-----------------------------------------------------------------------
 1 
c-----------------------------------------------------------------------
2 
c
 2 
c
3 
c  R : A Computer Langage for Statistical Data Analysis
 3 
c  R : A Computer Langage for Statistical Data Analysis
4 
c  Copyright (C) 1996, 1997  Robert Gentleman and Ross Ihaka
 4 
c  Copyright (C) 1996, 1997  Robert Gentleman and Ross Ihaka
- 
 
 5 
c  Copyright (C) 2001        The R Development Core Team
5 
c
 6 
c
6 
c  This program is free software; you can redistribute it and/or modify
 7 
c  This program is free software; you can redistribute it and/or modify
7 
c  it under the terms of the GNU General Public License as published by
 8 
c  it under the terms of the GNU General Public License as published by
8 
c  the Free Software Foundation; either version 2 of the License, or
 9 
c  the Free Software Foundation; either version 2 of the License, or
9 
c  (at your option) any later version.
 10 
c  (at your option) any later version.
Line 48... Line 49...
48 
c
 49 
c
49 
c     this version dated aug 25, 1996.
 50 
c     this version dated aug 25, 1996.
50 
c     ross ihaka, university of auckland.
 51 
c     ross ihaka, university of auckland.
51 
c
 52 
c
52 
      subroutine chol(a, lda, n, v, info)
 53 
      subroutine chol(a, lda, n, v, info)
- 
 
 54 
c     implicit none
- 
 
 55 
      integer n, lda, info
53 
      double precision a(lda, n), v(n,n)
 56 
      double precision a(lda, n), v(n,n)
54 
      integer i, j
 57 
      integer i, j
55 
c
 58 
c
56 
      do 20 i = 1,n
 59 
      do 20 i = 1,n
57 
        do 10 j = 1,n
 60 
        do 10 j = 1,n