fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 04:42:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed call to SIZE() to use a copy of an optional argument.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-02-19 14:54:56 +00:00
parent e25d2e1d67
commit e9af5d4d69
1 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_realloc_mod.F90
+10 -3
View File
@@ -373,12 +373,14 @@ Contains
integer :: psb_isize2d
integer, allocatable, intent(in) :: vin(:,:)
integer, optional :: dim
integer :: dim_
if (.not.allocated(vin)) then
psb_isize2d = 0
else
if (present(dim)) then
psb_isize2d = size(vin,dim=dim)
dim_= dim
psb_isize2d = size(vin,dim=dim_)
else
psb_isize2d = size(vin)
end if
@@ -399,12 +401,15 @@ Contains
integer :: psb_dsize2d
real(kind(1.d0)), allocatable, intent(in) :: vin(:,:)
integer, optional :: dim
integer :: dim_
if (.not.allocated(vin)) then
psb_dsize2d = 0
else
if (present(dim)) then
psb_dsize2d = size(vin,dim=dim)
dim_= dim
psb_dsize2d = size(vin,dim=dim_)
else
psb_dsize2d = size(vin)
end if
@@ -427,12 +432,14 @@ Contains
integer :: psb_zsize2d
complex(kind(1.d0)), allocatable, intent(in) :: vin(:,:)
integer, optional :: dim
integer :: dim_
if (.not.allocated(vin)) then
psb_zsize2d = 0
else
if (present(dim)) then
psb_zsize2d = size(vin,dim=dim)
dim_= dim
psb_zsize2d = size(vin,dim=dim_)
else
psb_zsize2d = size(vin)
end if