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

psb_dallc.f90

Browse Source 
psb_ialloc.f90
 psb_zallc.f90
Fixed forgotten declaration of NR variable.
psblas3-type-indexed
Salvatore Filippone 17 years ago
parent f24d39ec18
commit c66badc5f6
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File

2
base/tools/psb_dallc.f90
Unescape Escape View File

@ -196,7 +196,7 @@ subroutine psb_dallocv(x, desc_a,info,n)
integer, optional, intent(in) :: n integer, optional, intent(in) :: n
!locals !locals
integer :: np,me,n_col,n_row,i,err_act integer :: np,me,nr,i,err_act
integer :: ictxt, int_err(5) integer :: ictxt, int_err(5)
integer :: debug_level, debug_unit integer :: debug_level, debug_unit
character(len=20) :: name character(len=20) :: name

2
base/tools/psb_ialloc.f90
Unescape Escape View File

@ -195,7 +195,7 @@ subroutine psb_iallocv(x, desc_a, info,n)
integer, optional, intent(in) :: n integer, optional, intent(in) :: n
!locals !locals
integer :: np,me,n_col,n_row,i,err_act integer :: np,me,nr,i,err_act
integer :: ictxt, int_err(5) integer :: ictxt, int_err(5)
integer :: debug_level, debug_unit integer :: debug_level, debug_unit
character(len=20) :: name character(len=20) :: name

2
base/tools/psb_zallc.f90
Unescape Escape View File

@ -195,7 +195,7 @@ subroutine psb_zallocv(x, desc_a,info,n)
integer, optional, intent(in) :: n integer, optional, intent(in) :: n
!locals !locals
integer :: np,me,n_col,n_row,i,err_act integer :: np,me,nr,i,err_act
integer :: ictxt, int_err(5) integer :: ictxt, int_err(5)
integer :: debug_level, debug_unit integer :: debug_level, debug_unit
character(len=20) :: name character(len=20) :: name

Write Preview
Loading…
Cancel
Save