fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 02:49:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/modules/psb_c_vect_mod.F90
 base/modules/psb_d_vect_mod.F90
 base/modules/psb_i_vect_mod.F90
 base/modules/psb_s_vect_mod.F90
 base/modules/psb_z_vect_mod.F90

INTENT of arguments of clone methods
This commit is contained in:
Salvatore Filippone
2013-04-09 09:43:14 +00:00
parent 9f4a8ca232
commit bb67510238
5 changed files with 15 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_c_vect_mod.F90
+3 -2
View File
@@ -98,11 +98,12 @@ contains
subroutine c_vect_clone(x,y,info)
implicit none
class(psb_c_vect_type), intent(inout) :: x
class(psb_c_vect_type), intent(out) :: y
class(psb_c_vect_type), intent(inout) :: y
integer(psb_ipk_), intent(out) :: info
info = psb_success_
if (allocated(x%v)) then
call y%free(info)
if ((info==0).and.allocated(x%v)) then
call y%bld(x%get_vect(),mold=x%v)
end if
end subroutine c_vect_clone
base/modules/psb_d_vect_mod.F90
+3 -2
View File
@@ -98,11 +98,12 @@ contains
subroutine d_vect_clone(x,y,info)
implicit none
class(psb_d_vect_type), intent(inout) :: x
class(psb_d_vect_type), intent(out) :: y
class(psb_d_vect_type), intent(inout) :: y
integer(psb_ipk_), intent(out) :: info
info = psb_success_
if (allocated(x%v)) then
call y%free(info)
if ((info==0).and.allocated(x%v)) then
call y%bld(x%get_vect(),mold=x%v)
end if
end subroutine d_vect_clone
base/modules/psb_i_vect_mod.F90
+3 -2
View File
@@ -98,11 +98,12 @@ contains
subroutine i_vect_clone(x,y,info)
implicit none
class(psb_i_vect_type), intent(inout) :: x
class(psb_i_vect_type), intent(out) :: y
class(psb_i_vect_type), intent(inout) :: y
integer(psb_ipk_), intent(out) :: info
info = psb_success_
if (allocated(x%v)) then
call y%free(info)
if ((info==0).and.allocated(x%v)) then
call y%bld(x%get_vect(),mold=x%v)
end if
end subroutine i_vect_clone
base/modules/psb_s_vect_mod.F90
+3 -2
View File
@@ -98,11 +98,12 @@ contains
subroutine s_vect_clone(x,y,info)
implicit none
class(psb_s_vect_type), intent(inout) :: x
class(psb_s_vect_type), intent(out) :: y
class(psb_s_vect_type), intent(inout) :: y
integer(psb_ipk_), intent(out) :: info
info = psb_success_
if (allocated(x%v)) then
call y%free(info)
if ((info==0).and.allocated(x%v)) then
call y%bld(x%get_vect(),mold=x%v)
end if
end subroutine s_vect_clone
base/modules/psb_z_vect_mod.F90
+3 -2
View File
@@ -98,11 +98,12 @@ contains
subroutine z_vect_clone(x,y,info)
implicit none
class(psb_z_vect_type), intent(inout) :: x
class(psb_z_vect_type), intent(out) :: y
class(psb_z_vect_type), intent(inout) :: y
integer(psb_ipk_), intent(out) :: info
info = psb_success_
if (allocated(x%v)) then
call y%free(info)
if ((info==0).and.allocated(x%v)) then
call y%bld(x%get_vect(),mold=x%v)
end if
end subroutine z_vect_clone