Bug #10921: For ill-conditioned matrix, the inv function prints a wrong value of...
[scilab.git] / scilab / modules / linear_algebra / src / fortran / writebuf.f
1
2 c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 c Copyright (C) 2007-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
4 c
5 c This file must be used under the terms of the CeCILL.
6 c This source file is licensed as described in the file COPYING, which
7 c you should have received as part of this distribution.  The terms
8 c are also available at
9 c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
10
11 c     ====================================
12 c     requires by f2c :(
13 c     ====================================
14       subroutine writebufdgesv3(buffer,r)
15       
16       character*(*) buffer
17       double precision r
18       
19       write(buffer(1:13),'(1pd13.4)') r
20
21       end
22 c     ====================================      
23       subroutine writebufdgesv4(buffer,r)
24       
25       character*(*) buffer
26       double precision r
27       
28       write(buffer(1:13),'(1pd13.4)') r
29       
30       end
31 c     ====================================      
32       subroutine writebufdgetri(buffer,r)
33       
34       character*(*) buffer
35       double precision r
36       
37       write(buffer(1:13),'(1pd13.4)') r
38       
39       end
40 c     ====================================      
41       subroutine writebufzgesv3(buffer,r)
42       
43       character*(*) buffer
44       double precision r
45       
46       write(buffer(1:13),'(1pd13.4)') r
47       
48       end
49 c     ====================================      
50       subroutine writebufzgesv4(buffer,r)
51       
52       character*(*) buffer
53       double precision r
54       
55       write(buffer(1:13),'(1pd13.4)') r
56       
57       end
58 c     ====================================      
59       subroutine writebufzgetri(buffer,r)
60       
61       character*(*) buffer
62       double precision r
63       
64       write(buffer(1:13),'(1pd13.4)') r
65       
66       end
67 c     ====================================      
68
69
70