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 13 years ago
parent d95e29f1ff
commit 1b2cf62547
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File

3
base/modules/psb_error_mod.F90
Unescape Escape View File

@ -488,7 +488,8 @@ contains
write(psb_err_unit,'("input argument n. ",i0," has a dynamic type not allowed here.")')& write(psb_err_unit,'("input argument n. ",i0," has a dynamic type not allowed here.")')&
& i_e_d(1) & i_e_d(1)
case (psb_err_rectangular_mat_unsupported_) case (psb_err_rectangular_mat_unsupported_)
write(psb_err_unit,'("This routine does not support rectangular matrices: ",i0, " /= ",i0)'), & write(psb_err_unit,&
&'("This routine does not support rectangular matrices: ",i0, " /= ",i0)') &
& i_e_d(1), i_e_d(2) & i_e_d(1), i_e_d(2)
case (psb_err_invalid_mat_state_) case (psb_err_invalid_mat_state_)
write(psb_err_unit,'("Invalid state for sparse matrix")') write(psb_err_unit,'("Invalid state for sparse matrix")')

Write Preview
Loading…
Cancel
Save