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

Minor formatting

Browse Source
This commit is contained in:
Salvatore Filippone
2021-02-05 16:42:07 +01:00
parent 4c91ab66f2
commit 493beaa751
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/serial/psb_c_vect_mod.F90
+1 -1
View File
@@ -1033,7 +1033,7 @@ contains
! Temp vectors
type(psb_c_vect_type) :: wtemp
info = 0
info = 0
if( allocated(w%v) ) then
if (.not.present(aux)) then
allocate(wtemp%v, mold=w%v)
base/modules/serial/psb_d_vect_mod.F90
+1 -1
View File
@@ -1040,7 +1040,7 @@ contains
! Temp vectors
type(psb_d_vect_type) :: wtemp
info = 0
info = 0
if( allocated(w%v) ) then
if (.not.present(aux)) then
allocate(wtemp%v, mold=w%v)
base/modules/serial/psb_s_vect_mod.F90
+1 -1
View File
@@ -1040,7 +1040,7 @@ contains
! Temp vectors
type(psb_s_vect_type) :: wtemp
info = 0
info = 0
if( allocated(w%v) ) then
if (.not.present(aux)) then
allocate(wtemp%v, mold=w%v)
base/modules/serial/psb_z_vect_mod.F90
+1 -1
View File
@@ -1033,7 +1033,7 @@ contains
! Temp vectors
type(psb_z_vect_type) :: wtemp
info = 0
info = 0
if( allocated(w%v) ) then
if (.not.present(aux)) then
allocate(wtemp%v, mold=w%v)