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

psblas3:

Browse Source 
base/serial/psb_crwextd.f90
 base/serial/psb_drwextd.f90
 base/serial/psb_srwextd.f90
 base/serial/psb_zrwextd.f90

Take out workaround for GNU Fortran PR 45439
psblas3-type-indexed
Salvatore Filippone 15 years ago
parent 996bc2d9e6
commit b20a8ca78e
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

4
base/serial/psb_crwextd.f90
Unescape Escape View File

@ -73,7 +73,7 @@ subroutine psb_crwextd(nr,a,info,b,rowscale)
call psb_rwextd(nr,aa,info,rowscale=rowscale) call psb_rwextd(nr,aa,info,rowscale=rowscale)
end if end if
class default class default
call a%a%mv_to_coo(actmp,info) call aa%mv_to_coo(actmp,info)
if (info == psb_success_) then if (info == psb_success_) then
if (present(b)) then if (present(b)) then
call psb_rwextd(nr,actmp,info,b%a,rowscale=rowscale) call psb_rwextd(nr,actmp,info,b%a,rowscale=rowscale)
@ -81,7 +81,7 @@ subroutine psb_crwextd(nr,a,info,b,rowscale)
call psb_rwextd(nr,actmp,info,rowscale=rowscale) call psb_rwextd(nr,actmp,info,rowscale=rowscale)
end if end if
end if end if
if (info == psb_success_) call a%a%mv_from_coo(actmp,info) if (info == psb_success_) call aa%mv_from_coo(actmp,info)
end select end select
end if end if
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999

4
base/serial/psb_drwextd.f90
Unescape Escape View File

@ -73,7 +73,7 @@ subroutine psb_drwextd(nr,a,info,b,rowscale)
call psb_rwextd(nr,aa,info,rowscale=rowscale) call psb_rwextd(nr,aa,info,rowscale=rowscale)
end if end if
class default class default
call a%a%mv_to_coo(actmp,info) call aa%mv_to_coo(actmp,info)
if (info == psb_success_) then if (info == psb_success_) then
if (present(b)) then if (present(b)) then
call psb_rwextd(nr,actmp,info,b%a,rowscale=rowscale) call psb_rwextd(nr,actmp,info,b%a,rowscale=rowscale)
@ -81,7 +81,7 @@ subroutine psb_drwextd(nr,a,info,b,rowscale)
call psb_rwextd(nr,actmp,info,rowscale=rowscale) call psb_rwextd(nr,actmp,info,rowscale=rowscale)
end if end if
end if end if
if (info == psb_success_) call a%a%mv_from_coo(actmp,info) if (info == psb_success_) call aa%mv_from_coo(actmp,info)
end select end select
end if end if
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999

4
base/serial/psb_srwextd.f90
Unescape Escape View File

@ -73,7 +73,7 @@ subroutine psb_srwextd(nr,a,info,b,rowscale)
call psb_rwextd(nr,aa,info,rowscale=rowscale) call psb_rwextd(nr,aa,info,rowscale=rowscale)
end if end if
class default class default
call a%a%mv_to_coo(actmp,info) call aa%mv_to_coo(actmp,info)
if (info == psb_success_) then if (info == psb_success_) then
if (present(b)) then if (present(b)) then
call psb_rwextd(nr,actmp,info,b%a,rowscale=rowscale) call psb_rwextd(nr,actmp,info,b%a,rowscale=rowscale)
@ -81,7 +81,7 @@ subroutine psb_srwextd(nr,a,info,b,rowscale)
call psb_rwextd(nr,actmp,info,rowscale=rowscale) call psb_rwextd(nr,actmp,info,rowscale=rowscale)
end if end if
end if end if
if (info == psb_success_) call a%a%mv_from_coo(actmp,info) if (info == psb_success_) call aa%mv_from_coo(actmp,info)
end select end select
end if end if
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999

4
base/serial/psb_zrwextd.f90
Unescape Escape View File

@ -73,7 +73,7 @@ subroutine psb_zrwextd(nr,a,info,b,rowscale)
call psb_rwextd(nr,aa,info,rowscale=rowscale) call psb_rwextd(nr,aa,info,rowscale=rowscale)
end if end if
class default class default
call a%a%mv_to_coo(actmp,info) call aa%mv_to_coo(actmp,info)
if (info == psb_success_) then if (info == psb_success_) then
if (present(b)) then if (present(b)) then
call psb_rwextd(nr,actmp,info,b%a,rowscale=rowscale) call psb_rwextd(nr,actmp,info,b%a,rowscale=rowscale)
@ -81,7 +81,7 @@ subroutine psb_zrwextd(nr,a,info,b,rowscale)
call psb_rwextd(nr,actmp,info,rowscale=rowscale) call psb_rwextd(nr,actmp,info,rowscale=rowscale)
end if end if
end if end if
if (info == psb_success_) call a%a%mv_from_coo(actmp,info) if (info == psb_success_) call aa%mv_from_coo(actmp,info)
end select end select
end if end if
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999

Write Preview
Loading…
Cancel
Save