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) 9 do i = 1, rows 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 20 do i = 1, rows 27 subroutine gramSchmidt_ref (Q, rows, col 28 integer :: i, k, rows local in subroutine:gramSchmidt_ref 43 integer :: i, k, rows local in subroutine:gramSchmidt 68 integer :: cols, rows variable in program:e_51_3 [all...] |