Fixes for compilation on SP5: avoid "??'", also clean up CR/LF from makefiles.

psblas3-type-indexed
Salvatore Filippone 18 years ago
parent 6e3042a380
commit 2ea35bfab3

@ -133,7 +133,7 @@ subroutine psi_desc_index(desc,index_in,dep_list,&
nrcv = iszs
if ((iszs /= idxs).or.(iszr /= idxr)) then
write(0,*) 'strange results???', iszs,idxs,iszr,idxr
write(0,*) 'strange results?', iszs,idxs,iszr,idxr
end if
if (debug) then
write(0,*) me,'computed sizes ',iszr,iszs

@ -610,7 +610,7 @@ Subroutine psb_dcdovr(a,desc_a,novr,desc_ov,info, extype)
if (debug) write(0,*) me,' CDOVRBLD: Added into t_halo_in from recv',&
&proc_id,n_col,idx
else if (desc_ov%glob_to_loc(idx) < 0) Then
if (debug) write(0,*) me,'Wrong input to cdovrbld??',&
if (debug) write(0,*) me,'Wrong input to cdovrbld?',&
&idx,desc_ov%glob_to_loc(idx)
End If
End Do

@ -608,7 +608,7 @@ Subroutine psb_zcdovr(a,desc_a,novr,desc_ov,info, extype)
if (debug) write(0,*) me,' CDOVRBLD: Added into t_halo_in from recv',&
&proc_id,n_col,idx
else if (desc_ov%glob_to_loc(idx) < 0) Then
if (debug) write(0,*) me,'Wrong input to cdovrbld??',&
if (debug) write(0,*) me,'Wrong input to cdovrbld?',&
&idx,desc_ov%glob_to_loc(idx)
End If
End Do

Loading…
Cancel
Save