100
97
do n=1,min(nresiduals,ntrials)
102
99
if ((algorithm.eq.1).or.(algorithm.eq.2)) then
103
call ga_add_patch(apbvec(m,n),g_prod_p(i),1,nov(i),m,m,
104
1 1.0d0,g_residuals_1(i),1,nov(i),n,n,
105
2 g_residuals_1(i),1,nov(i),n,n)
100
call tga_add(apbvec(m,n),g_prod_p(i),g_residuals_1(i),
107
103
dummy=dra_read_section(.false.,
108
104
1 g_buffer1(i),1,nov(i),1,1,
109
105
2 d_prod_p(i),1,nov(i),m,m,request)
110
106
dummy=dra_wait(request)
111
call ga_add_patch(apbvec(m,n),g_buffer1(i),1,nov(i),1,1,
112
1 1.0d0,g_residuals_1(i),1,nov(i),n,n,
113
2 g_residuals_1(i),1,nov(i),n,n)
107
call tga_add(apbvec(m,n),g_buffer1(i),g_residuals_1(i),
115
110
enddo ! m=1,ntrials
116
111
enddo ! n=1,min(nresiduals,ntrials)
130
125
do n=1,min(nresiduals,ntrials)
132
127
if ((algorithm.eq.1).or.(algorithm.eq.2)) then
133
call ga_add_patch(apbvec(m,n),g_prod_p(i),1,nov(i),m,m,
134
1 1.0d0,g_residuals_1(i),1,nov(i),n,n,
135
2 g_residuals_1(i),1,nov(i),n,n)
136
call ga_add_patch(ambvec(m,n),g_prod_m(i),1,nov(i),m,m,
137
1 1.0d0,g_residuals_2(i),1,nov(i),n,n,
138
2 g_residuals_2(i),1,nov(i),n,n)
128
call tga_add(apbvec(m,n),g_prod_p(i),g_residuals_1(i),
130
call tga_add(ambvec(m,n),g_prod_m(i),g_residuals_2(i),
140
133
dummy=dra_read_section(.false.,
141
134
1 g_buffer1(i),1,nov(i),1,1,
142
135
2 d_prod_p(i),1,nov(i),m,m,request)
143
136
dummy=dra_wait(request)
144
call ga_add_patch(apbvec(m,n),g_buffer1(i),1,nov(i),1,1,
145
1 1.0d0,g_residuals_1(i),1,nov(i),n,n,
146
2 g_residuals_1(i),1,nov(i),n,n)
137
call tga_add(apbvec(m,n),g_buffer1(i),g_residuals_1(i),
147
139
dummy=dra_read_section(.false.,
148
140
1 g_buffer1(i),1,nov(i),1,1,
149
141
2 d_prod_m(i),1,nov(i),m,m,request)
150
142
dummy=dra_wait(request)
151
call ga_add_patch(ambvec(m,n),g_buffer1(i),1,nov(i),1,1,
152
1 1.0d0,g_residuals_2(i),1,nov(i),n,n,
153
2 g_residuals_2(i),1,nov(i),n,n)
143
call tga_add(ambvec(m,n),g_buffer1(i),g_residuals_2(i),
155
146
enddo ! m=1,ntrials
156
147
enddo ! n=1,min(nresiduals,ntrials)