fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
psblas3-type-indexed
Salvatore Filippone 17 years ago
parent 261056ee48
commit 57ead32f19
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File

2
util/psb_mat_dist_mod.f90
Unescape Escape View File

@ -318,7 +318,6 @@ contains
i_count = j_count i_count = j_count
else else
write(0,*) iam,'unexpected turn'
! here processors are counted 1..np ! here processors are counted 1..np
do j_count = 1, length_row do j_count = 1, length_row
k_count = iwork(j_count) k_count = iwork(j_count)
@ -1063,7 +1062,6 @@ contains
i_count = j_count i_count = j_count
else else
write(0,*) iam,'unexpected turn'
! here processors are counted 1..np ! here processors are counted 1..np
do j_count = 1, length_row do j_count = 1, length_row
k_count = iwork(j_count) k_count = iwork(j_count)

Write Preview
Loading…
Cancel
Save