| H A D | e.51.3.f90 | 5 subroutine init (Q, rows, cols)
6 integer :: i, k, rows, cols local in subroutine:init
7 double precision :: Q(rows,cols)
8 do k = 1, cols
15 subroutine check (P, Q, rows, cols)
16 integer :: i, k, rows, cols local in subroutine:check
18 double precision :: P(rows,cols), Q(rows,cols), diff
19 do k = 1, cols
27 subroutine gramSchmidt_ref (Q, rows, cols)
28 integer :: i, k, rows, cols local in subroutine:gramSchmidt_ref
43 integer :: i, k, rows, cols local in subroutine:gramSchmidt
68 integer :: cols variable in program:e_51_3
[all...] |