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

Merge branch 'master' of https://github.com/sfilippone/psblas3

Browse Source
pull/7/head v3.5.1
Salvatore Filippone 7 years ago
parent 883b3fe847 ed1b966d33
commit 39fdc18ef8
669 changed files with 28481 additions and 30219 deletions
Show Stats Download Patch File Download Diff File

4
Changelog
Unescape Escape View File

@ -1,5 +1,9 @@
Changelog. A lot less detailed than usual, at least for past Changelog. A lot less detailed than usual, at least for past
history. history.
2018/01/10: Updated docs.
2017/12/15: Fixed preconditioner build.
2017/10/31: Updated target install directories.
2017/10/15: Fold genpde into examples for readability.
2017/10/02: Merged CBinding. 2017/10/02: Merged CBinding.
2017/09/30: Fixes for README, contributors, bug reporting address. 2017/09/30: Fixes for README, contributors, bug reporting address.
2017/08/09: New optional args to TRIL and TRIU to produce two output 2017/08/09: New optional args to TRIL and TRIU to produce two output

6
LICENSE
Unescape Escape View File

@ -1,7 +1,7 @@
Parallel Sparse BLAS version 3.5 Parallel Sparse BLAS version 3.5
(C) Copyright 2006, 2010, 2015, 2017 (C) Copyright 2006-2018
Salvatore Filippone Cranfield University Salvatore Filippone
Alfredo Buttari CNRS-IRIT, Toulouse Alfredo Buttari
Redistribution and use in source and binary forms, with or without Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions modification, are permitted provided that the following conditions

17
ReleaseNews
Unescape Escape View File

@ -97,25 +97,14 @@ interested in the package MLD2P4 from http://github.com/sfilippone/mld2p4-2
Contact: https://github.com/sfilippone/psblas3 Contact: https://github.com/sfilippone/psblas3
Credits for version 3: Contributors
Salvatore Filippone Salvatore Filippone
Alfredo Buttari Alfredo Buttari
Soren Rasmussen
Ambra Abdullahi Hassan Ambra Abdullahi Hassan
Pasqua D'Ambra Pasqua D'Ambra
Daniela di Serafino Daniela di Serafino
Michele Martone
Credits for version 2.2:
Michele Martone contributed the initial version of the configure
machinery.
Credits for version 2.0:
Salvatore Filippone
Alfredo Buttari
Credits for version 1.0:
Salvatore Filippone
Michele Colajanni Michele Colajanni
Fabio Cerioni Fabio Cerioni
Stefano Maiolatesi Stefano Maiolatesi

6
base/comm/internals/psi_covrl_restr.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_covrl_save.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_covrl_upd.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_cswapdata.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_cswaptran.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_dovrl_restr.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_dovrl_save.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_dovrl_upd.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_dswapdata.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_dswaptran.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_iovrl_restr.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_iovrl_save.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_iovrl_upd.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_iswapdata.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_iswaptran.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_sovrl_restr.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_sovrl_save.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_sovrl_upd.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_sswapdata.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_sswaptran.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_zovrl_restr.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_zovrl_save.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_zovrl_upd.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_zswapdata.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/comm/internals/psi_zswaptran.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

10
base/comm/psb_cgather.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -173,9 +173,9 @@ end subroutine psb_cgatherm
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

10
base/comm/psb_chalo.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -208,9 +208,9 @@ end subroutine psb_chalom
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

10
base/comm/psb_covrl.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -199,9 +199,9 @@ subroutine psb_covrlm(x,desc_a,info,jx,ik,work,update,mode)
end subroutine psb_covrlm end subroutine psb_covrlm
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

14
base/comm/psb_cscatter.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -238,9 +238,9 @@ end subroutine psb_cscatterm
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions
@ -464,9 +464,9 @@ end subroutine psb_cscatterv
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

6
base/comm/psb_cspgather.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

10
base/comm/psb_dgather.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -173,9 +173,9 @@ end subroutine psb_dgatherm
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

10
base/comm/psb_dhalo.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -208,9 +208,9 @@ end subroutine psb_dhalom
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

10
base/comm/psb_dovrl.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -199,9 +199,9 @@ subroutine psb_dovrlm(x,desc_a,info,jx,ik,work,update,mode)
end subroutine psb_dovrlm end subroutine psb_dovrlm
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

14
base/comm/psb_dscatter.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -238,9 +238,9 @@ end subroutine psb_dscatterm
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions
@ -464,9 +464,9 @@ end subroutine psb_dscatterv
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

6
base/comm/psb_dspgather.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

10
base/comm/psb_igather.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -173,9 +173,9 @@ end subroutine psb_igatherm
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

10
base/comm/psb_ihalo.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -208,9 +208,9 @@ end subroutine psb_ihalom
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

10
base/comm/psb_iovrl.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -199,9 +199,9 @@ subroutine psb_iovrlm(x,desc_a,info,jx,ik,work,update,mode)
end subroutine psb_iovrlm end subroutine psb_iovrlm
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

14
base/comm/psb_iscatter.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -238,9 +238,9 @@ end subroutine psb_iscatterm
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions
@ -464,9 +464,9 @@ end subroutine psb_iscatterv
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

10
base/comm/psb_sgather.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -173,9 +173,9 @@ end subroutine psb_sgatherm
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

10
base/comm/psb_shalo.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -208,9 +208,9 @@ end subroutine psb_shalom
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

10
base/comm/psb_sovrl.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -199,9 +199,9 @@ subroutine psb_sovrlm(x,desc_a,info,jx,ik,work,update,mode)
end subroutine psb_sovrlm end subroutine psb_sovrlm
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

14
base/comm/psb_sscatter.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -238,9 +238,9 @@ end subroutine psb_sscatterm
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions
@ -464,9 +464,9 @@ end subroutine psb_sscatterv
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

6
base/comm/psb_sspgather.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

10
base/comm/psb_zgather.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -173,9 +173,9 @@ end subroutine psb_zgatherm
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

10
base/comm/psb_zhalo.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -208,9 +208,9 @@ end subroutine psb_zhalom
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

10
base/comm/psb_zovrl.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -199,9 +199,9 @@ subroutine psb_zovrlm(x,desc_a,info,jx,ik,work,update,mode)
end subroutine psb_zovrlm end subroutine psb_zovrlm
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

14
base/comm/psb_zscatter.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -238,9 +238,9 @@ end subroutine psb_zscatterm
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions
@ -464,9 +464,9 @@ end subroutine psb_zscatterv
!!$ !!$
!!$ Parallel Sparse BLAS version 3.5 !!$ Parallel Sparse BLAS version 3.5
!!$ (C) Copyright 2006, 2010, 2015, 2017 !!$ (C) Copyright 2006-2018
!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Salvatore Filippone University of Rome Tor Vergata
!!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Alfredo Buttari
!!$ !!$
!!$ Redistribution and use in source and binary forms, with or without !!$ Redistribution and use in source and binary forms, with or without
!!$ modification, are permitted provided that the following conditions !!$ modification, are permitted provided that the following conditions

6
base/comm/psb_zspgather.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/internals/psb_indx_map_fnd_owner.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/internals/psi_bld_tmphalo.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/internals/psi_bld_tmpovrl.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/internals/psi_compute_size.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/internals/psi_crea_bnd_elem.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/internals/psi_crea_index.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/internals/psi_crea_ovr_elem.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/internals/psi_desc_impl.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/internals/psi_desc_index.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/internals/psi_dl_check.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

2
base/internals/psi_exist_ovr_elem.f90
Unescape Escape View File

@ -1,7 +1,7 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006, 2010, 2015, 2017
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari CNRS-IRIT, Toulouse
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without

6
base/internals/psi_extrct_dl.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/internals/psi_fnd_owner.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

2
base/internals/psi_list_search.f90
Unescape Escape View File

@ -1,7 +1,7 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006, 2010, 2015, 2017
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari CNRS-IRIT, Toulouse
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without

6
base/internals/psi_sort_dl.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

2
base/internals/psi_srtlist.f90
Unescape Escape View File

@ -1,7 +1,7 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006, 2010, 2015, 2017
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari CNRS-IRIT, Toulouse
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without

14
base/modules/Makefile
Unescape Escape View File

@ -15,12 +15,6 @@ UTIL_MODS = aux/psb_string_mod.o desc/psb_desc_const_mod.o desc/psb_indx_map_mod
comm/psb_s_linmap_mod.o comm/psb_d_linmap_mod.o comm/psb_c_linmap_mod.o comm/psb_z_linmap_mod.o \ comm/psb_s_linmap_mod.o comm/psb_d_linmap_mod.o comm/psb_c_linmap_mod.o comm/psb_z_linmap_mod.o \
comm/psb_comm_mod.o comm/psb_i_comm_mod.o comm/psb_s_comm_mod.o comm/psb_d_comm_mod.o\ comm/psb_comm_mod.o comm/psb_i_comm_mod.o comm/psb_s_comm_mod.o comm/psb_d_comm_mod.o\
comm/psb_c_comm_mod.o comm/psb_z_comm_mod.o \ comm/psb_c_comm_mod.o comm/psb_z_comm_mod.o \
serial/psb_i_base_vect_mod.o serial/psb_i_vect_mod.o\
serial/psb_d_base_vect_mod.o serial/psb_d_vect_mod.o\
serial/psb_s_base_vect_mod.o serial/psb_s_vect_mod.o\
serial/psb_c_base_vect_mod.o serial/psb_c_vect_mod.o\
serial/psb_z_base_vect_mod.o serial/psb_z_vect_mod.o\
serial/psb_vect_mod.o\
psblas/psb_s_psblas_mod.o psblas/psb_c_psblas_mod.o \ psblas/psb_s_psblas_mod.o psblas/psb_c_psblas_mod.o \
psblas/psb_d_psblas_mod.o psblas/psb_z_psblas_mod.o psblas/psb_psblas_mod.o \ psblas/psb_d_psblas_mod.o psblas/psb_z_psblas_mod.o psblas/psb_psblas_mod.o \
aux/psi_serial_mod.o aux/psi_i_serial_mod.o \ aux/psi_serial_mod.o aux/psi_i_serial_mod.o \
@ -30,6 +24,12 @@ UTIL_MODS = aux/psb_string_mod.o desc/psb_desc_const_mod.o desc/psb_indx_map_mod
aux/psb_i_sort_mod.o aux/psb_s_sort_mod.o aux/psb_d_sort_mod.o \ aux/psb_i_sort_mod.o aux/psb_s_sort_mod.o aux/psb_d_sort_mod.o \
aux/psb_c_sort_mod.o aux/psb_z_sort_mod.o \ aux/psb_c_sort_mod.o aux/psb_z_sort_mod.o \
psb_check_mod.o aux/psb_hash_mod.o\ psb_check_mod.o aux/psb_hash_mod.o\
serial/psb_i_base_vect_mod.o serial/psb_i_vect_mod.o\
serial/psb_d_base_vect_mod.o serial/psb_d_vect_mod.o\
serial/psb_s_base_vect_mod.o serial/psb_s_vect_mod.o\
serial/psb_c_base_vect_mod.o serial/psb_c_vect_mod.o\
serial/psb_z_base_vect_mod.o serial/psb_z_vect_mod.o\
serial/psb_vect_mod.o\
serial/psb_base_mat_mod.o serial/psb_mat_mod.o\ serial/psb_base_mat_mod.o serial/psb_mat_mod.o\
serial/psb_s_base_mat_mod.o serial/psb_s_csr_mat_mod.o serial/psb_s_csc_mat_mod.o serial/psb_s_mat_mod.o \ serial/psb_s_base_mat_mod.o serial/psb_s_csr_mat_mod.o serial/psb_s_csc_mat_mod.o serial/psb_s_mat_mod.o \
serial/psb_d_base_mat_mod.o serial/psb_d_csr_mat_mod.o serial/psb_d_csc_mat_mod.o serial/psb_d_mat_mod.o \ serial/psb_d_base_mat_mod.o serial/psb_d_csr_mat_mod.o serial/psb_d_csc_mat_mod.o serial/psb_d_mat_mod.o \
@ -155,7 +155,7 @@ psblas/psb_s_psblas_mod.o psblas/psb_c_psblas_mod.o psblas/psb_d_psblas_mod.o ps
psb_base_mod.o: $(MODULES) psb_base_mod.o: $(MODULES)
psi_penv_mod.o: psi_penv_mod.F90 $(BASIC_MODS) psi_penv_mod.o: psi_penv_mod.F90 $(BASIC_MODS) serial/psb_vect_mod.o serial/psb_mat_mod.o
$(FC) $(FINCLUDES) $(FDEFINES) $(FCOPT) $(EXTRA_OPT) -c $< -o $@ $(FC) $(FINCLUDES) $(FDEFINES) $(FCOPT) $(EXTRA_OPT) -c $< -o $@
psb_penv_mod.o: psb_penv_mod.F90 $(COMMINT) $(BASIC_MODS) psb_penv_mod.o: psb_penv_mod.F90 $(COMMINT) $(BASIC_MODS)

15
base/modules/aux/psb_c_sort_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -44,6 +44,15 @@ module psb_c_sort_mod
use psb_const_mod use psb_const_mod
interface psb_msort_unique
subroutine psb_cmsort_u(x,nout,dir)
import
complex(psb_spk_), intent(inout) :: x(:)
integer(psb_ipk_), intent(out) :: nout
integer(psb_ipk_), optional, intent(in) :: dir
end subroutine psb_cmsort_u
end interface psb_msort_unique
type psb_c_heap type psb_c_heap
integer(psb_ipk_) :: last, dir integer(psb_ipk_) :: last, dir
complex(psb_spk_), allocatable :: keys(:) complex(psb_spk_), allocatable :: keys(:)

35
base/modules/aux/psb_d_sort_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -44,6 +44,15 @@ module psb_d_sort_mod
use psb_const_mod use psb_const_mod
interface psb_msort_unique
subroutine psb_dmsort_u(x,nout,dir)
import
real(psb_dpk_), intent(inout) :: x(:)
integer(psb_ipk_), intent(out) :: nout
integer(psb_ipk_), optional, intent(in) :: dir
end subroutine psb_dmsort_u
end interface psb_msort_unique
type psb_d_heap type psb_d_heap
integer(psb_ipk_) :: last, dir integer(psb_ipk_) :: last, dir
real(psb_dpk_), allocatable :: keys(:) real(psb_dpk_), allocatable :: keys(:)
@ -79,6 +88,26 @@ module psb_d_sort_mod
end subroutine psb_dmsort end subroutine psb_dmsort
end interface psb_msort end interface psb_msort
interface psb_bsrch
function psb_dbsrch(key,n,v) result(ipos)
import
integer(psb_ipk_) :: ipos, n
real(psb_dpk_) :: key
real(psb_dpk_) :: v(:)
end function psb_dbsrch
end interface psb_bsrch
interface psb_ssrch
function psb_dssrch(key,n,v) result(ipos)
import
implicit none
integer(psb_ipk_) :: ipos, n
real(psb_dpk_) :: key
real(psb_dpk_) :: v(:)
end function psb_dssrch
end interface psb_ssrch
interface interface
subroutine psi_d_msort_up(n,k,l,iret) subroutine psi_d_msort_up(n,k,l,iret)
import import

6
base/modules/aux/psb_hash_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

53
base/modules/aux/psb_i_sort_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -43,30 +43,6 @@
module psb_i_sort_mod module psb_i_sort_mod
use psb_const_mod use psb_const_mod
interface psb_iblsrch
function psb_iblsrch(key,n,v) result(ipos)
import :: psb_ipk_
integer(psb_ipk_) :: ipos, key, n
integer(psb_ipk_) :: v(:)
end function psb_iblsrch
end interface psb_iblsrch
interface psb_ibsrch
function psb_ibsrch(key,n,v) result(ipos)
import :: psb_ipk_
integer(psb_ipk_) :: ipos, key, n
integer(psb_ipk_) :: v(:)
end function psb_ibsrch
end interface psb_ibsrch
interface psb_issrch
function psb_issrch(key,n,v) result(ipos)
import :: psb_ipk_
implicit none
integer(psb_ipk_) :: ipos, key, n
integer(psb_ipk_) :: v(:)
end function psb_issrch
end interface psb_issrch
interface psb_isaperm interface psb_isaperm
logical function psb_isaperm(n,eip) logical function psb_isaperm(n,eip)
@ -76,9 +52,10 @@ module psb_i_sort_mod
end function psb_isaperm end function psb_isaperm
end interface psb_isaperm end interface psb_isaperm
interface psb_msort_unique interface psb_msort_unique
subroutine psb_imsort_u(x,nout,dir) subroutine psb_imsort_u(x,nout,dir)
import :: psb_ipk_, psb_spk_, psb_dpk_ import
integer(psb_ipk_), intent(inout) :: x(:) integer(psb_ipk_), intent(inout) :: x(:)
integer(psb_ipk_), intent(out) :: nout integer(psb_ipk_), intent(out) :: nout
integer(psb_ipk_), optional, intent(in) :: dir integer(psb_ipk_), optional, intent(in) :: dir
@ -120,6 +97,26 @@ module psb_i_sort_mod
end subroutine psb_imsort end subroutine psb_imsort
end interface psb_msort end interface psb_msort
interface psb_bsrch
function psb_ibsrch(key,n,v) result(ipos)
import
integer(psb_ipk_) :: ipos, n
integer(psb_ipk_) :: key
integer(psb_ipk_) :: v(:)
end function psb_ibsrch
end interface psb_bsrch
interface psb_ssrch
function psb_issrch(key,n,v) result(ipos)
import
implicit none
integer(psb_ipk_) :: ipos, n
integer(psb_ipk_) :: key
integer(psb_ipk_) :: v(:)
end function psb_issrch
end interface psb_ssrch
interface interface
subroutine psi_i_msort_up(n,k,l,iret) subroutine psi_i_msort_up(n,k,l,iret)
import import

6
base/modules/aux/psb_ip_reord_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

35
base/modules/aux/psb_s_sort_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -44,6 +44,15 @@ module psb_s_sort_mod
use psb_const_mod use psb_const_mod
interface psb_msort_unique
subroutine psb_smsort_u(x,nout,dir)
import
real(psb_spk_), intent(inout) :: x(:)
integer(psb_ipk_), intent(out) :: nout
integer(psb_ipk_), optional, intent(in) :: dir
end subroutine psb_smsort_u
end interface psb_msort_unique
type psb_s_heap type psb_s_heap
integer(psb_ipk_) :: last, dir integer(psb_ipk_) :: last, dir
real(psb_spk_), allocatable :: keys(:) real(psb_spk_), allocatable :: keys(:)
@ -79,6 +88,26 @@ module psb_s_sort_mod
end subroutine psb_smsort end subroutine psb_smsort
end interface psb_msort end interface psb_msort
interface psb_bsrch
function psb_sbsrch(key,n,v) result(ipos)
import
integer(psb_ipk_) :: ipos, n
real(psb_spk_) :: key
real(psb_spk_) :: v(:)
end function psb_sbsrch
end interface psb_bsrch
interface psb_ssrch
function psb_sssrch(key,n,v) result(ipos)
import
implicit none
integer(psb_ipk_) :: ipos, n
real(psb_spk_) :: key
real(psb_spk_) :: v(:)
end function psb_sssrch
end interface psb_ssrch
interface interface
subroutine psi_s_msort_up(n,k,l,iret) subroutine psi_s_msort_up(n,k,l,iret)
import import

6
base/modules/aux/psb_sort_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/modules/aux/psb_string_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

15
base/modules/aux/psb_z_sort_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -44,6 +44,15 @@ module psb_z_sort_mod
use psb_const_mod use psb_const_mod
interface psb_msort_unique
subroutine psb_zmsort_u(x,nout,dir)
import
complex(psb_dpk_), intent(inout) :: x(:)
integer(psb_ipk_), intent(out) :: nout
integer(psb_ipk_), optional, intent(in) :: dir
end subroutine psb_zmsort_u
end interface psb_msort_unique
type psb_z_heap type psb_z_heap
integer(psb_ipk_) :: last, dir integer(psb_ipk_) :: last, dir
complex(psb_dpk_), allocatable :: keys(:) complex(psb_dpk_), allocatable :: keys(:)

31
base/modules/aux/psi_c_serial_mod.f90
Unescape Escape View File

@ -1,3 +1,34 @@
!
! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006-2018
! Salvatore Filippone
! Alfredo Buttari
!
! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions
! are met:
! 1. Redistributions of source code must retain the above copyright
! notice, this list of conditions and the following disclaimer.
! 2. Redistributions in binary form must reproduce the above copyright
! notice, this list of conditions, and the following disclaimer in the
! documentation and/or other materials provided with the distribution.
! 3. The name of the PSBLAS group or the names of its contributors may
! not be used to endorse or promote products derived from this
! software without specific written permission.
!
! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS
! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
! POSSIBILITY OF SUCH DAMAGE.
!
!
module psi_c_serial_mod module psi_c_serial_mod
use psb_const_mod, only : psb_ipk_, psb_spk_ use psb_const_mod, only : psb_ipk_, psb_spk_

31
base/modules/aux/psi_d_serial_mod.f90
Unescape Escape View File

@ -1,3 +1,34 @@
!
! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006-2018
! Salvatore Filippone
! Alfredo Buttari
!
! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions
! are met:
! 1. Redistributions of source code must retain the above copyright
! notice, this list of conditions and the following disclaimer.
! 2. Redistributions in binary form must reproduce the above copyright
! notice, this list of conditions, and the following disclaimer in the
! documentation and/or other materials provided with the distribution.
! 3. The name of the PSBLAS group or the names of its contributors may
! not be used to endorse or promote products derived from this
! software without specific written permission.
!
! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS
! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
! POSSIBILITY OF SUCH DAMAGE.
!
!
module psi_d_serial_mod module psi_d_serial_mod
use psb_const_mod, only : psb_ipk_, psb_dpk_ use psb_const_mod, only : psb_ipk_, psb_dpk_

31
base/modules/aux/psi_i_serial_mod.f90
Unescape Escape View File

@ -1,3 +1,34 @@
!
! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006-2018
! Salvatore Filippone
! Alfredo Buttari
!
! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions
! are met:
! 1. Redistributions of source code must retain the above copyright
! notice, this list of conditions and the following disclaimer.
! 2. Redistributions in binary form must reproduce the above copyright
! notice, this list of conditions, and the following disclaimer in the
! documentation and/or other materials provided with the distribution.
! 3. The name of the PSBLAS group or the names of its contributors may
! not be used to endorse or promote products derived from this
! software without specific written permission.
!
! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS
! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
! POSSIBILITY OF SUCH DAMAGE.
!
!
module psi_i_serial_mod module psi_i_serial_mod
use psb_const_mod, only : psb_ipk_ use psb_const_mod, only : psb_ipk_

31
base/modules/aux/psi_s_serial_mod.f90
Unescape Escape View File

@ -1,3 +1,34 @@
!
! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006-2018
! Salvatore Filippone
! Alfredo Buttari
!
! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions
! are met:
! 1. Redistributions of source code must retain the above copyright
! notice, this list of conditions and the following disclaimer.
! 2. Redistributions in binary form must reproduce the above copyright
! notice, this list of conditions, and the following disclaimer in the
! documentation and/or other materials provided with the distribution.
! 3. The name of the PSBLAS group or the names of its contributors may
! not be used to endorse or promote products derived from this
! software without specific written permission.
!
! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS
! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
! POSSIBILITY OF SUCH DAMAGE.
!
!
module psi_s_serial_mod module psi_s_serial_mod
use psb_const_mod, only : psb_ipk_, psb_spk_ use psb_const_mod, only : psb_ipk_, psb_spk_

6
base/modules/aux/psi_serial_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

31
base/modules/aux/psi_z_serial_mod.f90
Unescape Escape View File

@ -1,3 +1,34 @@
!
! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006-2018
! Salvatore Filippone
! Alfredo Buttari
!
! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions
! are met:
! 1. Redistributions of source code must retain the above copyright
! notice, this list of conditions and the following disclaimer.
! 2. Redistributions in binary form must reproduce the above copyright
! notice, this list of conditions, and the following disclaimer in the
! documentation and/or other materials provided with the distribution.
! 3. The name of the PSBLAS group or the names of its contributors may
! not be used to endorse or promote products derived from this
! software without specific written permission.
!
! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS
! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
! POSSIBILITY OF SUCH DAMAGE.
!
!
module psi_z_serial_mod module psi_z_serial_mod
use psb_const_mod, only : psb_ipk_, psb_dpk_ use psb_const_mod, only : psb_ipk_, psb_dpk_

6
base/modules/comm/psb_base_linmap_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/modules/comm/psb_c_comm_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/modules/comm/psb_c_linmap_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/modules/comm/psb_comm_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/modules/comm/psb_d_comm_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/modules/comm/psb_d_linmap_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/modules/comm/psb_i_comm_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/modules/comm/psb_linmap_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/modules/comm/psb_s_comm_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/modules/comm/psb_s_linmap_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/modules/comm/psb_z_comm_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

6
base/modules/comm/psb_z_linmap_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

9
base/modules/desc/psb_desc_const_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -122,7 +122,8 @@ module psb_desc_const_mod
interface interface
subroutine psb_parts(glob_index,nrow,np,pv,nv) subroutine psb_parts(glob_index,nrow,np,pv,nv)
import :: psb_ipk_ import :: psb_ipk_
integer(psb_ipk_), intent (in) :: glob_index,nrow, np integer(psb_ipk_), intent (in) :: glob_index, nrow
integer(psb_ipk_), intent (in) :: np
integer(psb_ipk_), intent (out) :: nv, pv(*) integer(psb_ipk_), intent (out) :: nv, pv(*)
end subroutine psb_parts end subroutine psb_parts
end interface end interface

6
base/modules/desc/psb_desc_mod.F90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

101
base/modules/desc/psb_gen_block_map_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions
@ -90,7 +90,8 @@ module psb_gen_block_map_mod
& block_get_fmt, block_l2gs1, block_l2gs2, block_l2gv1,& & block_get_fmt, block_l2gs1, block_l2gs2, block_l2gv1,&
& block_l2gv2, block_g2ls1, block_g2ls2, block_g2lv1,& & block_l2gv2, block_g2ls1, block_g2ls2, block_g2lv1,&
& block_g2lv2, block_g2ls1_ins, block_g2ls2_ins,& & block_g2lv2, block_g2ls1_ins, block_g2ls2_ins,&
& block_g2lv1_ins, block_g2lv2_ins, block_clone, block_reinit & block_g2lv1_ins, block_g2lv2_ins, block_clone, block_reinit,&
& gen_block_search
integer(psb_ipk_), private :: laddsz=500 integer(psb_ipk_), private :: laddsz=500
@ -992,7 +993,6 @@ contains
subroutine block_fnd_owner(idx,iprc,idxmap,info) subroutine block_fnd_owner(idx,iprc,idxmap,info)
use psb_penv_mod use psb_penv_mod
use psb_sort_mod
implicit none implicit none
integer(psb_ipk_), intent(in) :: idx(:) integer(psb_ipk_), intent(in) :: idx(:)
integer(psb_ipk_), allocatable, intent(out) :: iprc(:) integer(psb_ipk_), allocatable, intent(out) :: iprc(:)
@ -1009,7 +1009,7 @@ contains
return return
end if end if
do i=1, nv do i=1, nv
ip = psb_iblsrch(idx(i)-1,np+1,idxmap%vnl) ip = gen_block_search(idx(i)-1,np+1,idxmap%vnl)
iprc(i) = ip - 1 iprc(i) = ip - 1
end do end do
@ -1226,52 +1226,49 @@ contains
return return
end subroutine block_reinit end subroutine block_reinit
!!$
!!$ subroutine block_reinit(idxmap,info)
!!$ use psb_penv_mod
!!$ use psb_error_mod
!!$ use psb_realloc_mod
!!$ implicit none
!!$ class(psb_gen_block_map), intent(inout) :: idxmap
!!$ integer(psb_ipk_), intent(out) :: info
!!$ integer(psb_ipk_) :: err_act, nr,nc,k, nl, ictxt
!!$ integer(psb_ipk_), allocatable :: idx(:),lidx(:)
!!$ character(len=20) :: name='block_reinit'
!!$ logical, parameter :: debug=.false.
!!$
!!$ info = psb_success_
!!$ call psb_get_erraction(err_act)
!!$ ictxt = idxmap%get_ctxt()
!!$ nr = idxmap%get_lr()
!!$ nc = idxmap%get_lc()
!!$ if (nc>nr) then
!!$ lidx = (/(k,k=nr+1,nc)/)
!!$ idx = (/(k,k=nr+1,nc)/)
!!$ call idxmap%l2gip(idx,info)
!!$ end if
!!$ if (info /= 0) &
!!$ & write(0,*) 'From l2gip',info
!!$
!!$ call idxmap%init(ictxt,nr,info)
!!$ if (nc>nr) then
!!$ call idxmap%g2lip_ins(idx,info,lidx=lidx)
!!$ end if
!!$
!!$
!!$ if (info /= psb_success_) then
!!$ info = psb_err_from_subroutine_
!!$ call psb_errpush(info,name)
!!$ goto 9999
!!$ end if
!!$ call psb_erractionrestore(err_act)
!!$ return
!!$
!!$
!!$9999 call psb_error_handler(err_act)
!!$
!!$ return
!!$ end subroutine block_reinit
!!$
!
! This is a purely internal version of "binary" search
! specialized for gen_block usage.
!
function gen_block_search(key,n,v) result(ipos)
implicit none
integer(psb_ipk_) :: ipos, key, n
integer(psb_ipk_) :: v(:)
integer(psb_ipk_) :: lb, ub, m
if (n < 5) then
! don't bother with binary search for very
! small vectors
ipos = 0
do
if (ipos == n) return
if (key < v(ipos+1)) return
ipos = ipos + 1
end do
else
lb = 1
ub = n
ipos = -1
do while (lb <= ub)
m = (lb+ub)/2
if (key==v(m)) then
ipos = m
return
else if (key < v(m)) then
ub = m-1
else
lb = m + 1
end if
enddo
if (v(ub) > key) then
ub = ub - 1
end if
ipos = ub
endif
return
end function gen_block_search
end module psb_gen_block_map_mod end module psb_gen_block_map_mod

6
base/modules/desc/psb_glist_map_mod.f90
Unescape Escape View File

@ -1,8 +1,8 @@
! !
! Parallel Sparse BLAS version 3.5 ! Parallel Sparse BLAS version 3.5
! (C) Copyright 2006, 2010, 2015, 2017 ! (C) Copyright 2006-2018
! Salvatore Filippone Cranfield University ! Salvatore Filippone
! Alfredo Buttari CNRS-IRIT, Toulouse ! Alfredo Buttari
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions ! modification, are permitted provided that the following conditions

Some files were not shown because too many files have changed in this diff Show More

Write Preview
Loading…
Cancel
Save