Lines Matching refs:rows
5 subroutine init (Q, rows, cols) argument
6 integer :: i, k, rows, cols local
7 double precision :: Q(rows,cols)
9 do i = 1, rows
15 subroutine check (P, Q, rows, cols) argument
16 integer :: i, k, rows, cols local
18 double precision :: P(rows,cols), Q(rows,cols), diff
20 do i = 1, rows
27 subroutine gramSchmidt_ref (Q, rows, cols) argument
28 integer :: i, k, rows, cols local
29 double precision :: Q(rows,cols), tmp
32 do i = 1, rows
36 do i = 1, rows
42 subroutine gramSchmidt (Q, rows, cols) argument
43 integer :: i, k, rows, cols local
44 double precision :: Q(rows,cols), tmp
50 do i = 1, rows
57 do i = 1, rows
68 integer :: cols, rows variable
71 rows = 5
72 allocate (P(rows,cols), Q(rows,cols))
73 call init (P, rows, cols)
74 call init (Q, rows, cols)
75 call gramSchmidt_ref (P, rows, cols)
76 call gramSchmidt (Q, rows, cols)
77 call check (P, Q, rows, cols)