#include "implicit_f.inc"
Go to the source code of this file.
◆ decompress_i_nnz()
| subroutine decompress_i_nnz |
( |
integer, dimension(len), intent(inout) | array, |
|
|
integer, intent(in) | len ) |
Definition at line 31 of file decompress_nnz.F.
32
33
34
35#include "implicit_f.inc"
36
37
38
39 INTEGER, INTENT(IN) :: LEN
40 INTEGER, INTENT(INOUT) :: ARRAY(LEN)
41
42
43
44
45 INTEGER I,J,IBEGIN, NNZ
46
48 j = 2
49 DO WHILE(ibegin > 0)
51 j = j +1
52 CALL read_i_c(array(ibegin:ibegin+nnz-1),nnz)
53 j = j + nnz
55 j = j + 1
56 END DO
57
void read_i_c(int *w, int *len)
◆ decompress_r_nnz()
| subroutine decompress_r_nnz |
( |
dimension(len), intent(inout) | array, |
|
|
integer, intent(in) | len ) |
Definition at line 70 of file decompress_nnz.F.
71
72
73
74#include "implicit_f.inc"
75
76
77
78 INTEGER, INTENT(IN) :: LEN
79 my_real,
INTENT(INOUT) :: array(len)
80
81
82
83
84 INTEGER I,J,IBEGIN, NNZ
85
87 j = 2
88 DO WHILE(ibegin > 0)
90 j = j +1
91 CALL read_db(array(ibegin:ibegin+nnz-1),nnz)
92 j = j + nnz
94 j = j + 1
95 END DO
96
1.15.0