Minor formatting

newG2L
Salvatore Filippone 4 years ago
parent 4c91ab66f2
commit 493beaa751

@ -1033,7 +1033,7 @@ contains
! Temp vectors ! Temp vectors
type(psb_c_vect_type) :: wtemp type(psb_c_vect_type) :: wtemp
info = 0 info = 0
if( allocated(w%v) ) then if( allocated(w%v) ) then
if (.not.present(aux)) then if (.not.present(aux)) then
allocate(wtemp%v, mold=w%v) allocate(wtemp%v, mold=w%v)

@ -1040,7 +1040,7 @@ contains
! Temp vectors ! Temp vectors
type(psb_d_vect_type) :: wtemp type(psb_d_vect_type) :: wtemp
info = 0 info = 0
if( allocated(w%v) ) then if( allocated(w%v) ) then
if (.not.present(aux)) then if (.not.present(aux)) then
allocate(wtemp%v, mold=w%v) allocate(wtemp%v, mold=w%v)

@ -1040,7 +1040,7 @@ contains
! Temp vectors ! Temp vectors
type(psb_s_vect_type) :: wtemp type(psb_s_vect_type) :: wtemp
info = 0 info = 0
if( allocated(w%v) ) then if( allocated(w%v) ) then
if (.not.present(aux)) then if (.not.present(aux)) then
allocate(wtemp%v, mold=w%v) allocate(wtemp%v, mold=w%v)

@ -1033,7 +1033,7 @@ contains
! Temp vectors ! Temp vectors
type(psb_z_vect_type) :: wtemp type(psb_z_vect_type) :: wtemp
info = 0 info = 0
if( allocated(w%v) ) then if( allocated(w%v) ) then
if (.not.present(aux)) then if (.not.present(aux)) then
allocate(wtemp%v, mold=w%v) allocate(wtemp%v, mold=w%v)

Loading…
Cancel
Save