diff --git a/base/comm/psb_cgather.f90 b/base/comm/psb_cgather.f90 index 35725eab..4871c86f 100644 --- a/base/comm/psb_cgather.f90 +++ b/base/comm/psb_cgather.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -174,7 +174,7 @@ end subroutine psb_cgatherm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_chalo.f90 b/base/comm/psb_chalo.f90 index 7d9b5de1..1abe718a 100644 --- a/base/comm/psb_chalo.f90 +++ b/base/comm/psb_chalo.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -223,7 +223,7 @@ end subroutine psb_chalom !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_covrl.f90 b/base/comm/psb_covrl.f90 index caaf86ac..9238dce0 100644 --- a/base/comm/psb_covrl.f90 +++ b/base/comm/psb_covrl.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -203,7 +203,7 @@ subroutine psb_covrlm(x,desc_a,info,jx,ik,work,update,mode) end subroutine psb_covrlm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_cscatter.F90 b/base/comm/psb_cscatter.F90 index 5a9c29ff..f80ab7b2 100644 --- a/base/comm/psb_cscatter.F90 +++ b/base/comm/psb_cscatter.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -230,7 +230,7 @@ end subroutine psb_cscatterm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_dgather.f90 b/base/comm/psb_dgather.f90 index b17af498..8d713f83 100644 --- a/base/comm/psb_dgather.f90 +++ b/base/comm/psb_dgather.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -172,7 +172,7 @@ end subroutine psb_dgatherm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_dhalo.f90 b/base/comm/psb_dhalo.f90 index 5f4034ea..602ffc9c 100644 --- a/base/comm/psb_dhalo.f90 +++ b/base/comm/psb_dhalo.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -224,7 +224,7 @@ end subroutine psb_dhalom !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_dovrl.f90 b/base/comm/psb_dovrl.f90 index 280ccf0e..5c35165b 100644 --- a/base/comm/psb_dovrl.f90 +++ b/base/comm/psb_dovrl.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -204,7 +204,7 @@ end subroutine psb_dovrlm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_dscatter.F90 b/base/comm/psb_dscatter.F90 index 7840125d..53243298 100644 --- a/base/comm/psb_dscatter.F90 +++ b/base/comm/psb_dscatter.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -230,7 +230,7 @@ end subroutine psb_dscatterm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_igather.f90 b/base/comm/psb_igather.f90 index a7a0156f..53ff66d1 100644 --- a/base/comm/psb_igather.f90 +++ b/base/comm/psb_igather.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -172,7 +172,7 @@ end subroutine psb_igatherm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_ihalo.f90 b/base/comm/psb_ihalo.f90 index 0aca5902..66fec413 100644 --- a/base/comm/psb_ihalo.f90 +++ b/base/comm/psb_ihalo.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -226,7 +226,7 @@ end subroutine psb_ihalom !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_iovrl.f90 b/base/comm/psb_iovrl.f90 index d5596b9c..094d240e 100644 --- a/base/comm/psb_iovrl.f90 +++ b/base/comm/psb_iovrl.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -203,7 +203,7 @@ end subroutine psb_iovrlm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_iscatter.F90 b/base/comm/psb_iscatter.F90 index 57ca3ef9..667933e3 100644 --- a/base/comm/psb_iscatter.F90 +++ b/base/comm/psb_iscatter.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -228,7 +228,7 @@ end subroutine psb_iscatterm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_sgather.f90 b/base/comm/psb_sgather.f90 index 822b4986..237d8f31 100644 --- a/base/comm/psb_sgather.f90 +++ b/base/comm/psb_sgather.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -172,7 +172,7 @@ end subroutine psb_sgatherm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_shalo.f90 b/base/comm/psb_shalo.f90 index 39555a55..f13e0aa3 100644 --- a/base/comm/psb_shalo.f90 +++ b/base/comm/psb_shalo.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -224,7 +224,7 @@ end subroutine psb_shalom !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_sovrl.f90 b/base/comm/psb_sovrl.f90 index fce0002c..b52d49b2 100644 --- a/base/comm/psb_sovrl.f90 +++ b/base/comm/psb_sovrl.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -204,7 +204,7 @@ end subroutine psb_sovrlm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_sscatter.F90 b/base/comm/psb_sscatter.F90 index fc04eac6..3610489f 100644 --- a/base/comm/psb_sscatter.F90 +++ b/base/comm/psb_sscatter.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -230,7 +230,7 @@ end subroutine psb_sscatterm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_zgather.f90 b/base/comm/psb_zgather.f90 index 0dfafe0a..71d50815 100644 --- a/base/comm/psb_zgather.f90 +++ b/base/comm/psb_zgather.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -174,7 +174,7 @@ end subroutine psb_zgatherm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_zhalo.f90 b/base/comm/psb_zhalo.f90 index 86516d14..034db559 100644 --- a/base/comm/psb_zhalo.f90 +++ b/base/comm/psb_zhalo.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -223,7 +223,7 @@ end subroutine psb_zhalom !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_zovrl.f90 b/base/comm/psb_zovrl.f90 index 7ce1c3b2..b75d0f2b 100644 --- a/base/comm/psb_zovrl.f90 +++ b/base/comm/psb_zovrl.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -203,7 +203,7 @@ subroutine psb_zovrlm(x,desc_a,info,jx,ik,work,update,mode) end subroutine psb_zovrlm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/comm/psb_zscatter.F90 b/base/comm/psb_zscatter.F90 index 5eb802b2..fbbf52a2 100644 --- a/base/comm/psb_zscatter.F90 +++ b/base/comm/psb_zscatter.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -229,7 +229,7 @@ end subroutine psb_zscatterm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_bld_g2lmap.f90 b/base/internals/psi_bld_g2lmap.f90 index 5cc57bee..d44df9db 100644 --- a/base/internals/psi_bld_g2lmap.f90 +++ b/base/internals/psi_bld_g2lmap.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_bld_tmphalo.f90 b/base/internals/psi_bld_tmphalo.f90 index 418622ac..1806649b 100644 --- a/base/internals/psi_bld_tmphalo.f90 +++ b/base/internals/psi_bld_tmphalo.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_bld_tmpovrl.f90 b/base/internals/psi_bld_tmpovrl.f90 index b100209b..36f692b5 100644 --- a/base/internals/psi_bld_tmpovrl.f90 +++ b/base/internals/psi_bld_tmpovrl.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_compute_size.f90 b/base/internals/psi_compute_size.f90 index cee0b2c3..71e849a5 100644 --- a/base/internals/psi_compute_size.f90 +++ b/base/internals/psi_compute_size.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_crea_bnd_elem.f90 b/base/internals/psi_crea_bnd_elem.f90 index e35f3044..f3cde0f3 100644 --- a/base/internals/psi_crea_bnd_elem.f90 +++ b/base/internals/psi_crea_bnd_elem.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_crea_index.f90 b/base/internals/psi_crea_index.f90 index 80b76373..63542421 100644 --- a/base/internals/psi_crea_index.f90 +++ b/base/internals/psi_crea_index.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_crea_ovr_elem.f90 b/base/internals/psi_crea_ovr_elem.f90 index a8b35c8c..9965ae49 100644 --- a/base/internals/psi_crea_ovr_elem.f90 +++ b/base/internals/psi_crea_ovr_elem.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_cswapdata.F90 b/base/internals/psi_cswapdata.F90 index 69a90e99..b909fced 100644 --- a/base/internals/psi_cswapdata.F90 +++ b/base/internals/psi_cswapdata.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_cswaptran.F90 b/base/internals/psi_cswaptran.F90 index d3eb1ebe..321b3ee5 100644 --- a/base/internals/psi_cswaptran.F90 +++ b/base/internals/psi_cswaptran.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_desc_index.F90 b/base/internals/psi_desc_index.F90 index 2d939bd8..1b94fb1f 100644 --- a/base/internals/psi_desc_index.F90 +++ b/base/internals/psi_desc_index.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_dl_check.f90 b/base/internals/psi_dl_check.f90 index 7437cb27..176e19dd 100644 --- a/base/internals/psi_dl_check.f90 +++ b/base/internals/psi_dl_check.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_dswapdata.F90 b/base/internals/psi_dswapdata.F90 index b28efa09..58b668f2 100644 --- a/base/internals/psi_dswapdata.F90 +++ b/base/internals/psi_dswapdata.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_dswaptran.F90 b/base/internals/psi_dswaptran.F90 index f90d43a2..3eb1bb87 100644 --- a/base/internals/psi_dswaptran.F90 +++ b/base/internals/psi_dswaptran.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_exist_ovr_elem.f b/base/internals/psi_exist_ovr_elem.f index 403d632d..777e44f6 100644 --- a/base/internals/psi_exist_ovr_elem.f +++ b/base/internals/psi_exist_ovr_elem.f @@ -1,6 +1,6 @@ C C Parallel Sparse BLAS version 3.0 -C (C) Copyright 2010 +C (C) Copyright 2006, 2007, 2008, 2009, 2010 C Salvatore Filippone University of Rome Tor Vergata C Alfredo Buttari CNRS-IRIT, Toulouse C diff --git a/base/internals/psi_extrct_dl.F90 b/base/internals/psi_extrct_dl.F90 index e318609f..1e0f4645 100644 --- a/base/internals/psi_extrct_dl.F90 +++ b/base/internals/psi_extrct_dl.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_fnd_owner.F90 b/base/internals/psi_fnd_owner.F90 index 773cecfd..8fb807e8 100644 --- a/base/internals/psi_fnd_owner.F90 +++ b/base/internals/psi_fnd_owner.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_idx_cnv.f90 b/base/internals/psi_idx_cnv.f90 index be125669..f5be88d8 100644 --- a/base/internals/psi_idx_cnv.f90 +++ b/base/internals/psi_idx_cnv.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -247,7 +247,7 @@ subroutine psi_idx_cnv1(nv,idxin,desc,info,mask,owned) end subroutine psi_idx_cnv1 !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -371,7 +371,7 @@ subroutine psi_idx_cnv2(nv,idxin,idxout,desc,info,mask,owned) end subroutine psi_idx_cnv2 !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_idx_ins_cnv.f90 b/base/internals/psi_idx_ins_cnv.f90 index fb3ce2aa..70c37d32 100644 --- a/base/internals/psi_idx_ins_cnv.f90 +++ b/base/internals/psi_idx_ins_cnv.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -355,7 +355,7 @@ subroutine psi_idx_ins_cnv1(nv,idxin,desc,info,mask) end subroutine psi_idx_ins_cnv1 !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -480,7 +480,7 @@ subroutine psi_idx_ins_cnv2(nv,idxin,idxout,desc,info,mask) end subroutine psi_idx_ins_cnv2 !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -551,7 +551,7 @@ subroutine psi_idx_ins_cnvs2(idxin,idxout,desc,info,mask) end subroutine psi_idx_ins_cnvs2 !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_iswapdata.F90 b/base/internals/psi_iswapdata.F90 index 6731e0f6..e0dda14f 100644 --- a/base/internals/psi_iswapdata.F90 +++ b/base/internals/psi_iswapdata.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_iswaptran.F90 b/base/internals/psi_iswaptran.F90 index daef3cc9..54394033 100644 --- a/base/internals/psi_iswaptran.F90 +++ b/base/internals/psi_iswaptran.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_ldsc_pre_halo.f90 b/base/internals/psi_ldsc_pre_halo.f90 index 4bdc9aa0..dfd4ef9e 100644 --- a/base/internals/psi_ldsc_pre_halo.f90 +++ b/base/internals/psi_ldsc_pre_halo.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_list_search.f b/base/internals/psi_list_search.f index d6e417be..5130edae 100644 --- a/base/internals/psi_list_search.f +++ b/base/internals/psi_list_search.f @@ -1,6 +1,6 @@ C C Parallel Sparse BLAS version 3.0 -C (C) Copyright 2010 +C (C) Copyright 2006, 2007, 2008, 2009, 2010 C Salvatore Filippone University of Rome Tor Vergata C Alfredo Buttari CNRS-IRIT, Toulouse C diff --git a/base/internals/psi_sort_dl.f90 b/base/internals/psi_sort_dl.f90 index 53355c10..606370a1 100644 --- a/base/internals/psi_sort_dl.f90 +++ b/base/internals/psi_sort_dl.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_sswapdata.F90 b/base/internals/psi_sswapdata.F90 index fd3df17e..b85b0088 100644 --- a/base/internals/psi_sswapdata.F90 +++ b/base/internals/psi_sswapdata.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_sswaptran.F90 b/base/internals/psi_sswaptran.F90 index 845b7244..71b5a44b 100644 --- a/base/internals/psi_sswaptran.F90 +++ b/base/internals/psi_sswaptran.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_zswapdata.F90 b/base/internals/psi_zswapdata.F90 index c0b8ab9c..889d08d6 100644 --- a/base/internals/psi_zswapdata.F90 +++ b/base/internals/psi_zswapdata.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/psi_zswaptran.F90 b/base/internals/psi_zswaptran.F90 index 53a26ca3..72281e45 100644 --- a/base/internals/psi_zswaptran.F90 +++ b/base/internals/psi_zswaptran.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/internals/srtlist.f b/base/internals/srtlist.f index 8904d9c4..3da41c4e 100644 --- a/base/internals/srtlist.f +++ b/base/internals/srtlist.f @@ -1,6 +1,6 @@ C C Parallel Sparse BLAS version 3.0 -C (C) Copyright 2010 +C (C) Copyright 2006, 2007, 2008, 2009, 2010 C Salvatore Filippone University of Rome Tor Vergata C Alfredo Buttari CNRS-IRIT, Toulouse C diff --git a/base/modules/error.f90 b/base/modules/error.f90 index 68c54595..7511fa4d 100644 --- a/base/modules/error.f90 +++ b/base/modules/error.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_base_mat_mod.f03 b/base/modules/psb_base_mat_mod.f03 index dec41838..500572e0 100644 --- a/base/modules/psb_base_mat_mod.f03 +++ b/base/modules/psb_base_mat_mod.f03 @@ -92,7 +92,7 @@ module psb_base_mat_mod interface function psb_base_get_nz_row(idx,a) result(res) - import psb_base_sparse_mat, psb_long_int_k_ + import :: psb_base_sparse_mat, psb_long_int_k_ integer, intent(in) :: idx class(psb_base_sparse_mat), intent(in) :: a integer :: res @@ -101,7 +101,7 @@ module psb_base_mat_mod interface function psb_base_get_nzeros(a) result(res) - import psb_base_sparse_mat, psb_long_int_k_ + import :: psb_base_sparse_mat, psb_long_int_k_ class(psb_base_sparse_mat), intent(in) :: a integer :: res end function psb_base_get_nzeros @@ -109,7 +109,7 @@ module psb_base_mat_mod interface function psb_base_get_size(a) result(res) - import psb_base_sparse_mat, psb_long_int_k_ + import :: psb_base_sparse_mat, psb_long_int_k_ class(psb_base_sparse_mat), intent(in) :: a integer :: res end function psb_base_get_size @@ -117,7 +117,7 @@ module psb_base_mat_mod interface subroutine psb_base_reinit(a,clear) - import psb_base_sparse_mat, psb_long_int_k_ + import :: psb_base_sparse_mat, psb_long_int_k_ class(psb_base_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_base_reinit @@ -125,7 +125,7 @@ module psb_base_mat_mod interface subroutine psb_base_sparse_print(iout,a,iv,eirs,eics,head,ivr,ivc) - import psb_base_sparse_mat, psb_long_int_k_ + import :: psb_base_sparse_mat, psb_long_int_k_ integer, intent(in) :: iout class(psb_base_sparse_mat), intent(in) :: a integer, intent(in), optional :: iv(:) @@ -138,7 +138,7 @@ module psb_base_mat_mod interface subroutine psb_base_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_base_sparse_mat, psb_long_int_k_ + import :: psb_base_sparse_mat, psb_long_int_k_ class(psb_base_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -153,7 +153,7 @@ module psb_base_mat_mod interface subroutine psb_base_get_neigh(a,idx,neigh,n,info,lev) - import psb_base_sparse_mat, psb_long_int_k_ + import :: psb_base_sparse_mat, psb_long_int_k_ class(psb_base_sparse_mat), intent(in) :: a integer, intent(in) :: idx integer, intent(out) :: n @@ -165,7 +165,7 @@ module psb_base_mat_mod interface subroutine psb_base_allocate_mnnz(m,n,a,nz) - import psb_base_sparse_mat, psb_long_int_k_ + import :: psb_base_sparse_mat, psb_long_int_k_ integer, intent(in) :: m,n class(psb_base_sparse_mat), intent(inout) :: a integer, intent(in), optional :: nz @@ -174,7 +174,7 @@ module psb_base_mat_mod interface subroutine psb_base_reallocate_nz(nz,a) - import psb_base_sparse_mat, psb_long_int_k_ + import :: psb_base_sparse_mat, psb_long_int_k_ integer, intent(in) :: nz class(psb_base_sparse_mat), intent(inout) :: a end subroutine psb_base_reallocate_nz @@ -182,14 +182,14 @@ module psb_base_mat_mod interface subroutine psb_base_free(a) - import psb_base_sparse_mat, psb_long_int_k_ + import :: psb_base_sparse_mat, psb_long_int_k_ class(psb_base_sparse_mat), intent(inout) :: a end subroutine psb_base_free end interface interface subroutine psb_base_trim(a) - import psb_base_sparse_mat, psb_long_int_k_ + import :: psb_base_sparse_mat, psb_long_int_k_ class(psb_base_sparse_mat), intent(inout) :: a end subroutine psb_base_trim end interface diff --git a/base/modules/psb_base_tools_mod.f90 b/base/modules/psb_base_tools_mod.f90 index 186ac2b0..d747c90b 100644 --- a/base/modules/psb_base_tools_mod.f90 +++ b/base/modules/psb_base_tools_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_c_base_mat_mod.f03 b/base/modules/psb_c_base_mat_mod.f03 index fc757eb6..ec138186 100644 --- a/base/modules/psb_c_base_mat_mod.f03 +++ b/base/modules/psb_c_base_mat_mod.f03 @@ -113,7 +113,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_csmm(alpha,a,x,beta,y,info,trans) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -124,7 +124,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_csmv(alpha,a,x,beta,y,info,trans) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -135,7 +135,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_inner_cssm(alpha,a,x,beta,y,info,trans) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -146,7 +146,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_inner_cssv(alpha,a,x,beta,y,info,trans) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -157,7 +157,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -169,7 +169,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -181,7 +181,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_scals(d,a,info) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer, intent(out) :: info @@ -190,7 +190,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_scal(d,a,info) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer, intent(out) :: info @@ -199,7 +199,7 @@ module psb_c_base_mat_mod interface function psb_c_base_csnmi(a) result(res) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_base_csnmi @@ -207,7 +207,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_get_diag(a,d,info) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer, intent(out) :: info @@ -216,7 +216,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -228,7 +228,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -245,7 +245,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer, intent(in) :: imin,imax @@ -261,7 +261,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(out) :: b integer,intent(out) :: info @@ -272,7 +272,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_mold(a,b,info) - import psb_c_base_sparse_mat, psb_long_int_k_ + import :: psb_c_base_sparse_mat, psb_long_int_k_ class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(out), allocatable :: b integer, intent(out) :: info @@ -281,7 +281,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_cp_to_coo(a,b,info) - import psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -290,7 +290,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_cp_from_coo(a,b,info) - import psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -299,7 +299,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_cp_to_fmt(a,b,info) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -308,7 +308,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_cp_from_fmt(a,b,info) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -317,7 +317,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_mv_to_coo(a,b,info) - import psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -326,7 +326,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_mv_from_coo(a,b,info) - import psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -335,7 +335,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_mv_to_fmt(a,b,info) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -344,7 +344,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_mv_from_fmt(a,b,info) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -353,7 +353,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_transp_2mat(a,b) - import psb_c_base_sparse_mat, psb_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(out) :: a class(psb_base_sparse_mat), intent(in) :: b end subroutine psb_c_base_transp_2mat @@ -361,7 +361,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_transc_2mat(a,b) - import psb_c_base_sparse_mat, psb_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(out) :: a class(psb_base_sparse_mat), intent(in) :: b end subroutine psb_c_base_transc_2mat @@ -369,14 +369,14 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_transp_1mat(a) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a end subroutine psb_c_base_transp_1mat end interface interface subroutine psb_c_base_transc_1mat(a) - import psb_c_base_sparse_mat, psb_spk_ + import :: psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a end subroutine psb_c_base_transc_1mat end interface @@ -392,7 +392,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_reallocate_nz(nz,a) - import psb_c_coo_sparse_mat + import :: psb_c_coo_sparse_mat integer, intent(in) :: nz class(psb_c_coo_sparse_mat), intent(inout) :: a end subroutine psb_c_coo_reallocate_nz @@ -400,7 +400,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_reinit(a,clear) - import psb_c_coo_sparse_mat + import :: psb_c_coo_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_c_coo_reinit @@ -408,14 +408,14 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_trim(a) - import psb_c_coo_sparse_mat + import :: psb_c_coo_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a end subroutine psb_c_coo_trim end interface interface subroutine psb_c_coo_allocate_mnnz(m,n,a,nz) - import psb_c_coo_sparse_mat + import :: psb_c_coo_sparse_mat integer, intent(in) :: m,n class(psb_c_coo_sparse_mat), intent(inout) :: a integer, intent(in), optional :: nz @@ -424,7 +424,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_mold(a,b,info) - import psb_c_coo_sparse_mat, psb_c_base_sparse_mat, psb_long_int_k_ + import :: psb_c_coo_sparse_mat, psb_c_base_sparse_mat, psb_long_int_k_ class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(out), allocatable :: b integer, intent(out) :: info @@ -433,7 +433,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_print(iout,a,iv,eirs,eics,head,ivr,ivc) - import psb_c_coo_sparse_mat + import :: psb_c_coo_sparse_mat integer, intent(in) :: iout class(psb_c_coo_sparse_mat), intent(in) :: a integer, intent(in), optional :: iv(:) @@ -446,7 +446,7 @@ module psb_c_base_mat_mod interface function psb_c_coo_get_nz_row(idx,a) result(res) - import psb_c_coo_sparse_mat + import :: psb_c_coo_sparse_mat class(psb_c_coo_sparse_mat), intent(in) :: a integer, intent(in) :: idx integer :: res @@ -456,7 +456,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) - import psb_spk_ + import :: psb_spk_ integer, intent(in) :: nzin,dupl integer, intent(inout) :: ia(:), ja(:) complex(psb_spk_), intent(inout) :: val(:) @@ -467,7 +467,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_fix_coo(a,info,idir) - import psb_c_coo_sparse_mat + import :: psb_c_coo_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a integer, intent(out) :: info integer, intent(in), optional :: idir @@ -476,7 +476,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_cp_coo_to_coo(a,b,info) - import psb_c_coo_sparse_mat + import :: psb_c_coo_sparse_mat class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -485,7 +485,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_cp_coo_from_coo(a,b,info) - import psb_c_coo_sparse_mat + import :: psb_c_coo_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -494,7 +494,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_cp_coo_to_fmt(a,b,info) - import psb_c_coo_sparse_mat, psb_c_base_sparse_mat + import :: psb_c_coo_sparse_mat, psb_c_base_sparse_mat class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -503,7 +503,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_cp_coo_from_fmt(a,b,info) - import psb_c_coo_sparse_mat, psb_c_base_sparse_mat + import :: psb_c_coo_sparse_mat, psb_c_base_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -512,7 +512,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_mv_coo_to_coo(a,b,info) - import psb_c_coo_sparse_mat + import :: psb_c_coo_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -521,7 +521,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_mv_coo_from_coo(a,b,info) - import psb_c_coo_sparse_mat + import :: psb_c_coo_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -530,7 +530,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_mv_coo_to_fmt(a,b,info) - import psb_c_coo_sparse_mat, psb_c_base_sparse_mat + import :: psb_c_coo_sparse_mat, psb_c_base_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -539,7 +539,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_mv_coo_from_fmt(a,b,info) - import psb_c_coo_sparse_mat, psb_c_base_sparse_mat + import :: psb_c_coo_sparse_mat, psb_c_base_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -548,7 +548,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_cp_from(a,b) - import psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(inout) :: a type(psb_c_coo_sparse_mat), intent(in) :: b end subroutine psb_c_coo_cp_from @@ -556,7 +556,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_mv_from(a,b) - import psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(inout) :: a type(psb_c_coo_sparse_mat), intent(inout) :: b end subroutine psb_c_coo_mv_from @@ -565,7 +565,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) integer, intent(in) :: nz,ia(:), ja(:),& @@ -578,7 +578,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -594,7 +594,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -610,7 +610,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_cssv(alpha,a,x,beta,y,info,trans) - import psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -618,7 +618,7 @@ module psb_c_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_coo_cssv subroutine psb_c_coo_cssm(alpha,a,x,beta,y,info,trans) - import psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -629,7 +629,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans) - import psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -637,7 +637,7 @@ module psb_c_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_coo_csmv subroutine psb_c_coo_csmm(alpha,a,x,beta,y,info,trans) - import psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -649,7 +649,7 @@ module psb_c_base_mat_mod interface function psb_c_coo_csnmi(a) result(res) - import psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_coo_csnmi @@ -657,7 +657,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_get_diag(a,d,info) - import psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer, intent(out) :: info @@ -666,7 +666,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_scal(d,a,info) - import psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer, intent(out) :: info @@ -675,7 +675,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_scals(d,a,info) - import psb_c_coo_sparse_mat, psb_spk_ + import :: psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer, intent(out) :: info diff --git a/base/modules/psb_c_csc_mat_mod.f03 b/base/modules/psb_c_csc_mat_mod.f03 index 909aeb70..f70effeb 100644 --- a/base/modules/psb_c_csc_mat_mod.f03 +++ b/base/modules/psb_c_csc_mat_mod.f03 @@ -51,7 +51,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_reallocate_nz(nz,a) - import psb_c_csc_sparse_mat + import :: psb_c_csc_sparse_mat integer, intent(in) :: nz class(psb_c_csc_sparse_mat), intent(inout) :: a end subroutine psb_c_csc_reallocate_nz @@ -59,7 +59,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_reinit(a,clear) - import psb_c_csc_sparse_mat + import :: psb_c_csc_sparse_mat class(psb_c_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_c_csc_reinit @@ -67,14 +67,14 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_trim(a) - import psb_c_csc_sparse_mat + import :: psb_c_csc_sparse_mat class(psb_c_csc_sparse_mat), intent(inout) :: a end subroutine psb_c_csc_trim end interface interface subroutine psb_c_csc_allocate_mnnz(m,n,a,nz) - import psb_c_csc_sparse_mat + import :: psb_c_csc_sparse_mat integer, intent(in) :: m,n class(psb_c_csc_sparse_mat), intent(inout) :: a integer, intent(in), optional :: nz @@ -83,7 +83,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_mold(a,b,info) - import psb_c_csc_sparse_mat, psb_c_base_sparse_mat, psb_long_int_k_ + import :: psb_c_csc_sparse_mat, psb_c_base_sparse_mat, psb_long_int_k_ class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(out), allocatable :: b integer, intent(out) :: info @@ -92,7 +92,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_print(iout,a,iv,eirs,eics,head,ivr,ivc) - import psb_c_csc_sparse_mat + import :: psb_c_csc_sparse_mat integer, intent(in) :: iout class(psb_c_csc_sparse_mat), intent(in) :: a integer, intent(in), optional :: iv(:) @@ -104,7 +104,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_cp_csc_to_coo(a,b,info) - import psb_c_coo_sparse_mat, psb_c_csc_sparse_mat + import :: psb_c_coo_sparse_mat, psb_c_csc_sparse_mat class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -113,7 +113,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_cp_csc_from_coo(a,b,info) - import psb_c_csc_sparse_mat, psb_c_coo_sparse_mat + import :: psb_c_csc_sparse_mat, psb_c_coo_sparse_mat class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -122,7 +122,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_cp_csc_to_fmt(a,b,info) - import psb_c_csc_sparse_mat, psb_c_base_sparse_mat + import :: psb_c_csc_sparse_mat, psb_c_base_sparse_mat class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -131,7 +131,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_cp_csc_from_fmt(a,b,info) - import psb_c_csc_sparse_mat, psb_c_base_sparse_mat + import :: psb_c_csc_sparse_mat, psb_c_base_sparse_mat class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -140,7 +140,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_mv_csc_to_coo(a,b,info) - import psb_c_csc_sparse_mat, psb_c_coo_sparse_mat + import :: psb_c_csc_sparse_mat, psb_c_coo_sparse_mat class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -149,7 +149,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_mv_csc_from_coo(a,b,info) - import psb_c_csc_sparse_mat, psb_c_coo_sparse_mat + import :: psb_c_csc_sparse_mat, psb_c_coo_sparse_mat class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -158,7 +158,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_mv_csc_to_fmt(a,b,info) - import psb_c_csc_sparse_mat, psb_c_base_sparse_mat + import :: psb_c_csc_sparse_mat, psb_c_base_sparse_mat class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -167,7 +167,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_mv_csc_from_fmt(a,b,info) - import psb_c_csc_sparse_mat, psb_c_base_sparse_mat + import :: psb_c_csc_sparse_mat, psb_c_base_sparse_mat class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -176,7 +176,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_cp_from(a,b) - import psb_c_csc_sparse_mat, psb_spk_ + import :: psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(inout) :: a type(psb_c_csc_sparse_mat), intent(in) :: b end subroutine psb_c_csc_cp_from @@ -184,7 +184,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_mv_from(a,b) - import psb_c_csc_sparse_mat, psb_spk_ + import :: psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(inout) :: a type(psb_c_csc_sparse_mat), intent(inout) :: b end subroutine psb_c_csc_mv_from @@ -193,7 +193,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_c_csc_sparse_mat, psb_spk_ + import :: psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) integer, intent(in) :: nz,ia(:), ja(:),& @@ -206,7 +206,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_c_csc_sparse_mat, psb_spk_ + import :: psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -222,7 +222,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_c_csc_sparse_mat, psb_spk_ + import :: psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -239,7 +239,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import psb_c_csc_sparse_mat, psb_spk_, psb_c_coo_sparse_mat + import :: psb_c_csc_sparse_mat, psb_spk_, psb_c_coo_sparse_mat class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer, intent(in) :: imin,imax @@ -253,7 +253,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_cssv(alpha,a,x,beta,y,info,trans) - import psb_c_csc_sparse_mat, psb_spk_ + import :: psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -261,7 +261,7 @@ module psb_c_csc_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_csc_cssv subroutine psb_c_csc_cssm(alpha,a,x,beta,y,info,trans) - import psb_c_csc_sparse_mat, psb_spk_ + import :: psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -272,7 +272,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_csmv(alpha,a,x,beta,y,info,trans) - import psb_c_csc_sparse_mat, psb_spk_ + import :: psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -280,7 +280,7 @@ module psb_c_csc_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_csc_csmv subroutine psb_c_csc_csmm(alpha,a,x,beta,y,info,trans) - import psb_c_csc_sparse_mat, psb_spk_ + import :: psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -292,7 +292,7 @@ module psb_c_csc_mat_mod interface function psb_c_csc_csnmi(a) result(res) - import psb_c_csc_sparse_mat, psb_spk_ + import :: psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_csc_csnmi @@ -300,7 +300,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_get_diag(a,d,info) - import psb_c_csc_sparse_mat, psb_spk_ + import :: psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer, intent(out) :: info @@ -309,7 +309,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_scal(d,a,info) - import psb_c_csc_sparse_mat, psb_spk_ + import :: psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer, intent(out) :: info @@ -318,7 +318,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_scals(d,a,info) - import psb_c_csc_sparse_mat, psb_spk_ + import :: psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer, intent(out) :: info diff --git a/base/modules/psb_c_csr_mat_mod.f03 b/base/modules/psb_c_csr_mat_mod.f03 index bf93cb86..a7cd57ac 100644 --- a/base/modules/psb_c_csr_mat_mod.f03 +++ b/base/modules/psb_c_csr_mat_mod.f03 @@ -51,7 +51,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_reallocate_nz(nz,a) - import psb_c_csr_sparse_mat + import :: psb_c_csr_sparse_mat integer, intent(in) :: nz class(psb_c_csr_sparse_mat), intent(inout) :: a end subroutine psb_c_csr_reallocate_nz @@ -59,7 +59,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_reinit(a,clear) - import psb_c_csr_sparse_mat + import :: psb_c_csr_sparse_mat class(psb_c_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_c_csr_reinit @@ -67,14 +67,14 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_trim(a) - import psb_c_csr_sparse_mat + import :: psb_c_csr_sparse_mat class(psb_c_csr_sparse_mat), intent(inout) :: a end subroutine psb_c_csr_trim end interface interface subroutine psb_c_csr_allocate_mnnz(m,n,a,nz) - import psb_c_csr_sparse_mat + import :: psb_c_csr_sparse_mat integer, intent(in) :: m,n class(psb_c_csr_sparse_mat), intent(inout) :: a integer, intent(in), optional :: nz @@ -83,7 +83,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_mold(a,b,info) - import psb_c_csr_sparse_mat, psb_c_base_sparse_mat, psb_long_int_k_ + import :: psb_c_csr_sparse_mat, psb_c_base_sparse_mat, psb_long_int_k_ class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(out), allocatable :: b integer, intent(out) :: info @@ -92,7 +92,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_print(iout,a,iv,eirs,eics,head,ivr,ivc) - import psb_c_csr_sparse_mat + import :: psb_c_csr_sparse_mat integer, intent(in) :: iout class(psb_c_csr_sparse_mat), intent(in) :: a integer, intent(in), optional :: iv(:) @@ -104,7 +104,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_cp_csr_to_coo(a,b,info) - import psb_c_coo_sparse_mat, psb_c_csr_sparse_mat + import :: psb_c_coo_sparse_mat, psb_c_csr_sparse_mat class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -113,7 +113,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_cp_csr_from_coo(a,b,info) - import psb_c_csr_sparse_mat, psb_c_coo_sparse_mat + import :: psb_c_csr_sparse_mat, psb_c_coo_sparse_mat class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -122,7 +122,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_cp_csr_to_fmt(a,b,info) - import psb_c_csr_sparse_mat, psb_c_base_sparse_mat + import :: psb_c_csr_sparse_mat, psb_c_base_sparse_mat class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -131,7 +131,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_cp_csr_from_fmt(a,b,info) - import psb_c_csr_sparse_mat, psb_c_base_sparse_mat + import :: psb_c_csr_sparse_mat, psb_c_base_sparse_mat class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -140,7 +140,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_mv_csr_to_coo(a,b,info) - import psb_c_csr_sparse_mat, psb_c_coo_sparse_mat + import :: psb_c_csr_sparse_mat, psb_c_coo_sparse_mat class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -149,7 +149,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_mv_csr_from_coo(a,b,info) - import psb_c_csr_sparse_mat, psb_c_coo_sparse_mat + import :: psb_c_csr_sparse_mat, psb_c_coo_sparse_mat class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -158,7 +158,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_mv_csr_to_fmt(a,b,info) - import psb_c_csr_sparse_mat, psb_c_base_sparse_mat + import :: psb_c_csr_sparse_mat, psb_c_base_sparse_mat class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -167,7 +167,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_mv_csr_from_fmt(a,b,info) - import psb_c_csr_sparse_mat, psb_c_base_sparse_mat + import :: psb_c_csr_sparse_mat, psb_c_base_sparse_mat class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -176,7 +176,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_cp_from(a,b) - import psb_c_csr_sparse_mat, psb_spk_ + import :: psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(inout) :: a type(psb_c_csr_sparse_mat), intent(in) :: b end subroutine psb_c_csr_cp_from @@ -184,7 +184,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_mv_from(a,b) - import psb_c_csr_sparse_mat, psb_spk_ + import :: psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(inout) :: a type(psb_c_csr_sparse_mat), intent(inout) :: b end subroutine psb_c_csr_mv_from @@ -193,7 +193,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_c_csr_sparse_mat, psb_spk_ + import :: psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) integer, intent(in) :: nz,ia(:), ja(:),& @@ -206,7 +206,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_c_csr_sparse_mat, psb_spk_ + import :: psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -222,7 +222,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_c_csr_sparse_mat, psb_spk_ + import :: psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -239,7 +239,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import psb_c_csr_sparse_mat, psb_spk_, psb_c_coo_sparse_mat + import :: psb_c_csr_sparse_mat, psb_spk_, psb_c_coo_sparse_mat class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer, intent(in) :: imin,imax @@ -253,7 +253,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_cssv(alpha,a,x,beta,y,info,trans) - import psb_c_csr_sparse_mat, psb_spk_ + import :: psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -261,7 +261,7 @@ module psb_c_csr_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_csr_cssv subroutine psb_c_csr_cssm(alpha,a,x,beta,y,info,trans) - import psb_c_csr_sparse_mat, psb_spk_ + import :: psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -272,7 +272,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_csmv(alpha,a,x,beta,y,info,trans) - import psb_c_csr_sparse_mat, psb_spk_ + import :: psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -280,7 +280,7 @@ module psb_c_csr_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_csr_csmv subroutine psb_c_csr_csmm(alpha,a,x,beta,y,info,trans) - import psb_c_csr_sparse_mat, psb_spk_ + import :: psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -292,7 +292,7 @@ module psb_c_csr_mat_mod interface function psb_c_csr_csnmi(a) result(res) - import psb_c_csr_sparse_mat, psb_spk_ + import :: psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_csr_csnmi @@ -300,7 +300,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_get_diag(a,d,info) - import psb_c_csr_sparse_mat, psb_spk_ + import :: psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer, intent(out) :: info @@ -309,7 +309,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_scal(d,a,info) - import psb_c_csr_sparse_mat, psb_spk_ + import :: psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer, intent(out) :: info @@ -318,7 +318,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_scals(d,a,info) - import psb_c_csr_sparse_mat, psb_spk_ + import :: psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer, intent(out) :: info diff --git a/base/modules/psb_c_linmap_mod.f90 b/base/modules/psb_c_linmap_mod.f90 index ad1cd3c9..87be88fa 100644 --- a/base/modules/psb_c_linmap_mod.f90 +++ b/base/modules/psb_c_linmap_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_c_mat_mod.f03 b/base/modules/psb_c_mat_mod.f03 index fa1bc990..6bdee625 100644 --- a/base/modules/psb_c_mat_mod.f03 +++ b/base/modules/psb_c_mat_mod.f03 @@ -125,7 +125,7 @@ module psb_c_mat_mod interface subroutine psb_c_set_nrows(m,a) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a integer, intent(in) :: m end subroutine psb_c_set_nrows @@ -133,7 +133,7 @@ module psb_c_mat_mod interface subroutine psb_c_set_ncols(n,a) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a integer, intent(in) :: n end subroutine psb_c_set_ncols @@ -141,7 +141,7 @@ module psb_c_mat_mod interface subroutine psb_c_set_state(n,a) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a integer, intent(in) :: n end subroutine psb_c_set_state @@ -149,7 +149,7 @@ module psb_c_mat_mod interface subroutine psb_c_set_dupl(n,a) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a integer, intent(in) :: n end subroutine psb_c_set_dupl @@ -157,35 +157,35 @@ module psb_c_mat_mod interface subroutine psb_c_set_null(a) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a end subroutine psb_c_set_null end interface interface subroutine psb_c_set_bld(a) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a end subroutine psb_c_set_bld end interface interface subroutine psb_c_set_upd(a) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a end subroutine psb_c_set_upd end interface interface subroutine psb_c_set_asb(a) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a end subroutine psb_c_set_asb end interface interface subroutine psb_c_set_sorted(a,val) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_c_set_sorted @@ -193,7 +193,7 @@ module psb_c_mat_mod interface subroutine psb_c_set_triangle(a,val) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_c_set_triangle @@ -201,7 +201,7 @@ module psb_c_mat_mod interface subroutine psb_c_set_unit(a,val) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_c_set_unit @@ -209,7 +209,7 @@ module psb_c_mat_mod interface subroutine psb_c_set_lower(a,val) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_c_set_lower @@ -217,7 +217,7 @@ module psb_c_mat_mod interface subroutine psb_c_set_upper(a,val) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_c_set_upper @@ -226,7 +226,7 @@ module psb_c_mat_mod interface subroutine psb_c_sparse_print(iout,a,iv,eirs,eics,head,ivr,ivc) - import psb_c_sparse_mat + import :: psb_c_sparse_mat integer, intent(in) :: iout class(psb_c_sparse_mat), intent(in) :: a integer, intent(in), optional :: iv(:) @@ -238,7 +238,7 @@ module psb_c_mat_mod interface subroutine psb_c_get_neigh(a,idx,neigh,n,info,lev) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(in) :: a integer, intent(in) :: idx integer, intent(out) :: n @@ -250,7 +250,7 @@ module psb_c_mat_mod interface subroutine psb_c_csall(nr,nc,a,info,nz) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(out) :: a integer, intent(in) :: nr,nc integer, intent(out) :: info @@ -260,7 +260,7 @@ module psb_c_mat_mod interface subroutine psb_c_reallocate_nz(nz,a) - import psb_c_sparse_mat + import :: psb_c_sparse_mat integer, intent(in) :: nz class(psb_c_sparse_mat), intent(inout) :: a end subroutine psb_c_reallocate_nz @@ -268,21 +268,21 @@ module psb_c_mat_mod interface subroutine psb_c_free(a) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a end subroutine psb_c_free end interface interface subroutine psb_c_trim(a) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a end subroutine psb_c_trim end interface interface subroutine psb_c_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_c_sparse_mat, psb_spk_ + import :: psb_c_sparse_mat, psb_spk_ class(psb_c_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -294,7 +294,7 @@ module psb_c_mat_mod interface subroutine psb_c_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_c_sparse_mat, psb_spk_ + import :: psb_c_sparse_mat, psb_spk_ class(psb_c_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -310,7 +310,7 @@ module psb_c_mat_mod interface subroutine psb_c_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_c_sparse_mat, psb_spk_ + import :: psb_c_sparse_mat, psb_spk_ class(psb_c_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -327,7 +327,7 @@ module psb_c_mat_mod interface subroutine psb_c_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import psb_c_sparse_mat, psb_spk_ + import :: psb_c_sparse_mat, psb_spk_ class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(out) :: b integer, intent(in) :: imin,imax @@ -342,7 +342,7 @@ module psb_c_mat_mod interface subroutine psb_c_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import psb_c_sparse_mat, psb_spk_ + import :: psb_c_sparse_mat, psb_spk_ class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(out) :: b integer,intent(out) :: info @@ -354,7 +354,7 @@ module psb_c_mat_mod interface subroutine psb_c_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import psb_c_sparse_mat, psb_spk_, psb_c_coo_sparse_mat + import :: psb_c_sparse_mat, psb_spk_, psb_c_coo_sparse_mat class(psb_c_sparse_mat), intent(in) :: a type(psb_c_coo_sparse_mat), intent(out) :: b integer,intent(out) :: info @@ -365,7 +365,7 @@ module psb_c_mat_mod interface subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl) - import psb_c_sparse_mat, psb_spk_, psb_c_base_sparse_mat + import :: psb_c_sparse_mat, psb_spk_, psb_c_base_sparse_mat class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(out) :: b integer, intent(out) :: info @@ -378,7 +378,7 @@ module psb_c_mat_mod interface subroutine psb_c_cscnv_ip(a,iinfo,type,mold,dupl) - import psb_c_sparse_mat, psb_spk_, psb_c_base_sparse_mat + import :: psb_c_sparse_mat, psb_spk_, psb_c_base_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a integer, intent(out) :: iinfo integer,optional, intent(in) :: dupl @@ -390,7 +390,7 @@ module psb_c_mat_mod interface subroutine psb_c_cscnv_base(a,b,info,dupl) - import psb_c_sparse_mat, psb_spk_, psb_c_base_sparse_mat + import :: psb_c_sparse_mat, psb_spk_, psb_c_base_sparse_mat class(psb_c_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(out) :: b integer, intent(out) :: info @@ -400,7 +400,7 @@ module psb_c_mat_mod interface subroutine psb_c_clip_d(a,b,info) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(out) :: b integer,intent(out) :: info @@ -409,7 +409,7 @@ module psb_c_mat_mod interface subroutine psb_c_clip_d_ip(a,info) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a integer,intent(out) :: info end subroutine psb_c_clip_d_ip @@ -417,7 +417,7 @@ module psb_c_mat_mod interface subroutine psb_c_mv_from(a,b) - import psb_c_sparse_mat, psb_spk_, psb_c_base_sparse_mat + import :: psb_c_sparse_mat, psb_spk_, psb_c_base_sparse_mat class(psb_c_sparse_mat), intent(out) :: a class(psb_c_base_sparse_mat), intent(inout) :: b end subroutine psb_c_mv_from @@ -425,7 +425,7 @@ module psb_c_mat_mod interface subroutine psb_c_cp_from(a,b) - import psb_c_sparse_mat, psb_spk_, psb_c_base_sparse_mat + import :: psb_c_sparse_mat, psb_spk_, psb_c_base_sparse_mat class(psb_c_sparse_mat), intent(out) :: a class(psb_c_base_sparse_mat), intent(inout), allocatable :: b end subroutine psb_c_cp_from @@ -433,7 +433,7 @@ module psb_c_mat_mod interface subroutine psb_c_mv_to(a,b) - import psb_c_sparse_mat, psb_spk_, psb_c_base_sparse_mat + import :: psb_c_sparse_mat, psb_spk_, psb_c_base_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(out) :: b end subroutine psb_c_mv_to @@ -441,7 +441,7 @@ module psb_c_mat_mod interface subroutine psb_c_cp_to(a,b) - import psb_c_sparse_mat, psb_spk_, psb_c_base_sparse_mat + import :: psb_c_sparse_mat, psb_spk_, psb_c_base_sparse_mat class(psb_c_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(out) :: b end subroutine psb_c_cp_to @@ -449,7 +449,7 @@ module psb_c_mat_mod interface psb_move_alloc subroutine psb_c_sparse_mat_move(a,b,info) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a class(psb_c_sparse_mat), intent(out) :: b integer, intent(out) :: info @@ -459,7 +459,7 @@ module psb_c_mat_mod interface psb_clone subroutine psb_c_sparse_mat_clone(a,b,info) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(in) :: a class(psb_c_sparse_mat), intent(out) :: b integer, intent(out) :: info @@ -468,14 +468,14 @@ module psb_c_mat_mod interface subroutine psb_c_transp_1mat(a) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a end subroutine psb_c_transp_1mat end interface interface subroutine psb_c_transp_2mat(a,b) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(out) :: a class(psb_c_sparse_mat), intent(in) :: b end subroutine psb_c_transp_2mat @@ -483,14 +483,14 @@ module psb_c_mat_mod interface subroutine psb_c_transc_1mat(a) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a end subroutine psb_c_transc_1mat end interface interface subroutine psb_c_transc_2mat(a,b) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(out) :: a class(psb_c_sparse_mat), intent(in) :: b end subroutine psb_c_transc_2mat @@ -498,7 +498,7 @@ module psb_c_mat_mod interface subroutine psb_c_reinit(a,clear) - import psb_c_sparse_mat + import :: psb_c_sparse_mat class(psb_c_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_c_reinit @@ -522,7 +522,7 @@ module psb_c_mat_mod interface psb_csmm subroutine psb_c_csmm(alpha,a,x,beta,y,info,trans) - import psb_c_sparse_mat, psb_spk_ + import :: psb_c_sparse_mat, psb_spk_ class(psb_c_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -530,7 +530,7 @@ module psb_c_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_csmm subroutine psb_c_csmv(alpha,a,x,beta,y,info,trans) - import psb_c_sparse_mat, psb_spk_ + import :: psb_c_sparse_mat, psb_spk_ class(psb_c_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -541,7 +541,7 @@ module psb_c_mat_mod interface psb_cssm subroutine psb_c_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import psb_c_sparse_mat, psb_spk_ + import :: psb_c_sparse_mat, psb_spk_ class(psb_c_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -550,7 +550,7 @@ module psb_c_mat_mod complex(psb_spk_), intent(in), optional :: d(:) end subroutine psb_c_cssm subroutine psb_c_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import psb_c_sparse_mat, psb_spk_ + import :: psb_c_sparse_mat, psb_spk_ class(psb_c_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -562,7 +562,7 @@ module psb_c_mat_mod interface function psb_c_csnmi(a) result(res) - import psb_c_sparse_mat, psb_spk_ + import :: psb_c_sparse_mat, psb_spk_ class(psb_c_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_csnmi @@ -570,7 +570,7 @@ module psb_c_mat_mod interface subroutine psb_c_get_diag(a,d,info) - import psb_c_sparse_mat, psb_spk_ + import :: psb_c_sparse_mat, psb_spk_ class(psb_c_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer, intent(out) :: info @@ -579,13 +579,13 @@ module psb_c_mat_mod interface psb_scal subroutine psb_c_scal(d,a,info) - import psb_c_sparse_mat, psb_spk_ + import :: psb_c_sparse_mat, psb_spk_ class(psb_c_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer, intent(out) :: info end subroutine psb_c_scal subroutine psb_c_scals(d,a,info) - import psb_c_sparse_mat, psb_spk_ + import :: psb_c_sparse_mat, psb_spk_ class(psb_c_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer, intent(out) :: info diff --git a/base/modules/psb_c_psblas_mod.f90 b/base/modules/psb_c_psblas_mod.f90 index 352fd502..84ef1fa3 100644 --- a/base/modules/psb_c_psblas_mod.f90 +++ b/base/modules/psb_c_psblas_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_c_tools_mod.f90 b/base/modules/psb_c_tools_mod.f90 index 6cc02921..aaa3f993 100644 --- a/base/modules/psb_c_tools_mod.f90 +++ b/base/modules/psb_c_tools_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_check_mod.f90 b/base/modules/psb_check_mod.f90 index 45dbb538..7185e992 100644 --- a/base/modules/psb_check_mod.f90 +++ b/base/modules/psb_check_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_comm_mod.f90 b/base/modules/psb_comm_mod.f90 index 4e4671d1..94f4fc51 100644 --- a/base/modules/psb_comm_mod.f90 +++ b/base/modules/psb_comm_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_const_mod.F90 b/base/modules/psb_const_mod.F90 index 0966ba89..e91cafca 100644 --- a/base/modules/psb_const_mod.F90 +++ b/base/modules/psb_const_mod.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_d_base_mat_mod.f03 b/base/modules/psb_d_base_mat_mod.f03 index 3ce96fb7..5aec293b 100644 --- a/base/modules/psb_d_base_mat_mod.f03 +++ b/base/modules/psb_d_base_mat_mod.f03 @@ -123,7 +123,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_csmm(alpha,a,x,beta,y,info,trans) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -134,7 +134,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_csmv(alpha,a,x,beta,y,info,trans) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -145,7 +145,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_inner_cssm(alpha,a,x,beta,y,info,trans) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -156,7 +156,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_inner_cssv(alpha,a,x,beta,y,info,trans) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -167,7 +167,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -179,7 +179,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -191,7 +191,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_scals(d,a,info) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer, intent(out) :: info @@ -200,7 +200,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_scal(d,a,info) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer, intent(out) :: info @@ -209,7 +209,7 @@ module psb_d_base_mat_mod interface function psb_d_base_csnmi(a) result(res) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_base_csnmi @@ -217,7 +217,7 @@ module psb_d_base_mat_mod interface function psb_d_base_csnm1(a) result(res) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_base_csnm1 @@ -225,7 +225,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_rowsum(d,a) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_base_rowsum @@ -233,7 +233,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_arwsum(d,a) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_base_arwsum @@ -241,7 +241,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_colsum(d,a) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_base_colsum @@ -249,7 +249,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_aclsum(d,a) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_base_aclsum @@ -257,7 +257,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_get_diag(a,d,info) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer, intent(out) :: info @@ -266,7 +266,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -278,7 +278,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -295,7 +295,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(in) :: imin,imax @@ -311,7 +311,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(out) :: b integer,intent(out) :: info @@ -322,7 +322,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_mold(a,b,info) - import psb_d_base_sparse_mat, psb_long_int_k_ + import :: psb_d_base_sparse_mat, psb_long_int_k_ class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b integer, intent(out) :: info @@ -332,7 +332,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_cp_to_coo(a,b,info) - import psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -341,7 +341,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_cp_from_coo(a,b,info) - import psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -350,7 +350,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_cp_to_fmt(a,b,info) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -359,7 +359,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_cp_from_fmt(a,b,info) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -368,7 +368,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_mv_to_coo(a,b,info) - import psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -377,7 +377,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_mv_from_coo(a,b,info) - import psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -386,7 +386,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_mv_to_fmt(a,b,info) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -395,7 +395,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_mv_from_fmt(a,b,info) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -404,7 +404,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_transp_2mat(a,b) - import psb_d_base_sparse_mat, psb_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(out) :: a class(psb_base_sparse_mat), intent(in) :: b end subroutine psb_d_base_transp_2mat @@ -412,7 +412,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_transc_2mat(a,b) - import psb_d_base_sparse_mat, psb_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(out) :: a class(psb_base_sparse_mat), intent(in) :: b end subroutine psb_d_base_transc_2mat @@ -420,14 +420,14 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_transp_1mat(a) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a end subroutine psb_d_base_transp_1mat end interface interface subroutine psb_d_base_transc_1mat(a) - import psb_d_base_sparse_mat, psb_dpk_ + import :: psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a end subroutine psb_d_base_transc_1mat end interface @@ -443,7 +443,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_reallocate_nz(nz,a) - import psb_d_coo_sparse_mat + import :: psb_d_coo_sparse_mat integer, intent(in) :: nz class(psb_d_coo_sparse_mat), intent(inout) :: a end subroutine psb_d_coo_reallocate_nz @@ -451,7 +451,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_reinit(a,clear) - import psb_d_coo_sparse_mat + import :: psb_d_coo_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_d_coo_reinit @@ -459,14 +459,14 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_trim(a) - import psb_d_coo_sparse_mat + import :: psb_d_coo_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a end subroutine psb_d_coo_trim end interface interface subroutine psb_d_coo_allocate_mnnz(m,n,a,nz) - import psb_d_coo_sparse_mat + import :: psb_d_coo_sparse_mat integer, intent(in) :: m,n class(psb_d_coo_sparse_mat), intent(inout) :: a integer, intent(in), optional :: nz @@ -475,7 +475,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_mold(a,b,info) - import psb_d_coo_sparse_mat, psb_d_base_sparse_mat, psb_long_int_k_ + import :: psb_d_coo_sparse_mat, psb_d_base_sparse_mat, psb_long_int_k_ class(psb_d_coo_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b integer, intent(out) :: info @@ -485,7 +485,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_print(iout,a,iv,eirs,eics,head,ivr,ivc) - import psb_d_coo_sparse_mat + import :: psb_d_coo_sparse_mat integer, intent(in) :: iout class(psb_d_coo_sparse_mat), intent(in) :: a integer, intent(in), optional :: iv(:) @@ -498,7 +498,7 @@ module psb_d_base_mat_mod interface function psb_d_coo_get_nz_row(idx,a) result(res) - import psb_d_coo_sparse_mat + import :: psb_d_coo_sparse_mat class(psb_d_coo_sparse_mat), intent(in) :: a integer, intent(in) :: idx integer :: res @@ -508,7 +508,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) - import psb_dpk_ + import :: psb_dpk_ integer, intent(in) :: nzin,dupl integer, intent(inout) :: ia(:), ja(:) real(psb_dpk_), intent(inout) :: val(:) @@ -519,7 +519,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_fix_coo(a,info,idir) - import psb_d_coo_sparse_mat + import :: psb_d_coo_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a integer, intent(out) :: info integer, intent(in), optional :: idir @@ -528,7 +528,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_cp_coo_to_coo(a,b,info) - import psb_d_coo_sparse_mat + import :: psb_d_coo_sparse_mat class(psb_d_coo_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -537,7 +537,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_cp_coo_from_coo(a,b,info) - import psb_d_coo_sparse_mat + import :: psb_d_coo_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -546,7 +546,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_cp_coo_to_fmt(a,b,info) - import psb_d_coo_sparse_mat, psb_d_base_sparse_mat + import :: psb_d_coo_sparse_mat, psb_d_base_sparse_mat class(psb_d_coo_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -555,7 +555,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_cp_coo_from_fmt(a,b,info) - import psb_d_coo_sparse_mat, psb_d_base_sparse_mat + import :: psb_d_coo_sparse_mat, psb_d_base_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -564,7 +564,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_mv_coo_to_coo(a,b,info) - import psb_d_coo_sparse_mat + import :: psb_d_coo_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -573,7 +573,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_mv_coo_from_coo(a,b,info) - import psb_d_coo_sparse_mat + import :: psb_d_coo_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -582,7 +582,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_mv_coo_to_fmt(a,b,info) - import psb_d_coo_sparse_mat, psb_d_base_sparse_mat + import :: psb_d_coo_sparse_mat, psb_d_base_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -591,7 +591,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_mv_coo_from_fmt(a,b,info) - import psb_d_coo_sparse_mat, psb_d_base_sparse_mat + import :: psb_d_coo_sparse_mat, psb_d_base_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -600,7 +600,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_cp_from(a,b) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(inout) :: a type(psb_d_coo_sparse_mat), intent(in) :: b end subroutine psb_d_coo_cp_from @@ -608,7 +608,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_mv_from(a,b) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(inout) :: a type(psb_d_coo_sparse_mat), intent(inout) :: b end subroutine psb_d_coo_mv_from @@ -617,7 +617,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) integer, intent(in) :: nz,ia(:), ja(:),& @@ -630,7 +630,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -646,7 +646,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -662,7 +662,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_cssv(alpha,a,x,beta,y,info,trans) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -670,7 +670,7 @@ module psb_d_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_coo_cssv subroutine psb_d_coo_cssm(alpha,a,x,beta,y,info,trans) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -681,7 +681,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_csmv(alpha,a,x,beta,y,info,trans) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -689,7 +689,7 @@ module psb_d_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_coo_csmv subroutine psb_d_coo_csmm(alpha,a,x,beta,y,info,trans) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -701,7 +701,7 @@ module psb_d_base_mat_mod interface function psb_d_coo_csnmi(a) result(res) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_coo_csnmi @@ -709,7 +709,7 @@ module psb_d_base_mat_mod interface function psb_d_coo_csnm1(a) result(res) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_coo_csnm1 @@ -717,7 +717,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_rowsum(d,a) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_coo_rowsum @@ -725,7 +725,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_arwsum(d,a) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_coo_arwsum @@ -733,7 +733,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_colsum(d,a) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_coo_colsum @@ -741,7 +741,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_aclsum(d,a) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_coo_aclsum @@ -750,7 +750,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_get_diag(a,d,info) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer, intent(out) :: info @@ -759,7 +759,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_scal(d,a,info) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer, intent(out) :: info @@ -768,7 +768,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_scals(d,a,info) - import psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer, intent(out) :: info diff --git a/base/modules/psb_d_csc_mat_mod.f03 b/base/modules/psb_d_csc_mat_mod.f03 index 19dc4db5..ac88a269 100644 --- a/base/modules/psb_d_csc_mat_mod.f03 +++ b/base/modules/psb_d_csc_mat_mod.f03 @@ -56,7 +56,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_reallocate_nz(nz,a) - import psb_d_csc_sparse_mat + import :: psb_d_csc_sparse_mat integer, intent(in) :: nz class(psb_d_csc_sparse_mat), intent(inout) :: a end subroutine psb_d_csc_reallocate_nz @@ -64,7 +64,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_reinit(a,clear) - import psb_d_csc_sparse_mat + import :: psb_d_csc_sparse_mat class(psb_d_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_d_csc_reinit @@ -72,14 +72,14 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_trim(a) - import psb_d_csc_sparse_mat + import :: psb_d_csc_sparse_mat class(psb_d_csc_sparse_mat), intent(inout) :: a end subroutine psb_d_csc_trim end interface interface subroutine psb_d_csc_allocate_mnnz(m,n,a,nz) - import psb_d_csc_sparse_mat + import :: psb_d_csc_sparse_mat integer, intent(in) :: m,n class(psb_d_csc_sparse_mat), intent(inout) :: a integer, intent(in), optional :: nz @@ -88,7 +88,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_mold(a,b,info) - import psb_d_csc_sparse_mat, psb_d_base_sparse_mat, psb_long_int_k_ + import :: psb_d_csc_sparse_mat, psb_d_base_sparse_mat, psb_long_int_k_ class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b integer, intent(out) :: info @@ -97,7 +97,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_print(iout,a,iv,eirs,eics,head,ivr,ivc) - import psb_d_csc_sparse_mat + import :: psb_d_csc_sparse_mat integer, intent(in) :: iout class(psb_d_csc_sparse_mat), intent(in) :: a integer, intent(in), optional :: iv(:) @@ -109,7 +109,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_cp_csc_to_coo(a,b,info) - import psb_d_coo_sparse_mat, psb_d_csc_sparse_mat + import :: psb_d_coo_sparse_mat, psb_d_csc_sparse_mat class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -118,7 +118,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_cp_csc_from_coo(a,b,info) - import psb_d_csc_sparse_mat, psb_d_coo_sparse_mat + import :: psb_d_csc_sparse_mat, psb_d_coo_sparse_mat class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -127,7 +127,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_cp_csc_to_fmt(a,b,info) - import psb_d_csc_sparse_mat, psb_d_base_sparse_mat + import :: psb_d_csc_sparse_mat, psb_d_base_sparse_mat class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -136,7 +136,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_cp_csc_from_fmt(a,b,info) - import psb_d_csc_sparse_mat, psb_d_base_sparse_mat + import :: psb_d_csc_sparse_mat, psb_d_base_sparse_mat class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -145,7 +145,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_mv_csc_to_coo(a,b,info) - import psb_d_csc_sparse_mat, psb_d_coo_sparse_mat + import :: psb_d_csc_sparse_mat, psb_d_coo_sparse_mat class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -154,7 +154,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_mv_csc_from_coo(a,b,info) - import psb_d_csc_sparse_mat, psb_d_coo_sparse_mat + import :: psb_d_csc_sparse_mat, psb_d_coo_sparse_mat class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -163,7 +163,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_mv_csc_to_fmt(a,b,info) - import psb_d_csc_sparse_mat, psb_d_base_sparse_mat + import :: psb_d_csc_sparse_mat, psb_d_base_sparse_mat class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -172,7 +172,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_mv_csc_from_fmt(a,b,info) - import psb_d_csc_sparse_mat, psb_d_base_sparse_mat + import :: psb_d_csc_sparse_mat, psb_d_base_sparse_mat class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -181,7 +181,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_cp_from(a,b) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(inout) :: a type(psb_d_csc_sparse_mat), intent(in) :: b end subroutine psb_d_csc_cp_from @@ -189,7 +189,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_mv_from(a,b) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(inout) :: a type(psb_d_csc_sparse_mat), intent(inout) :: b end subroutine psb_d_csc_mv_from @@ -198,7 +198,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) integer, intent(in) :: nz,ia(:), ja(:),& @@ -211,7 +211,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -227,7 +227,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -244,7 +244,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import psb_d_csc_sparse_mat, psb_dpk_, psb_d_coo_sparse_mat + import :: psb_d_csc_sparse_mat, psb_dpk_, psb_d_coo_sparse_mat class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(in) :: imin,imax @@ -258,7 +258,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_cssv(alpha,a,x,beta,y,info,trans) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -266,7 +266,7 @@ module psb_d_csc_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_csc_cssv subroutine psb_d_csc_cssm(alpha,a,x,beta,y,info,trans) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -277,7 +277,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_csmv(alpha,a,x,beta,y,info,trans) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -285,7 +285,7 @@ module psb_d_csc_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_csc_csmv subroutine psb_d_csc_csmm(alpha,a,x,beta,y,info,trans) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -297,7 +297,7 @@ module psb_d_csc_mat_mod interface function psb_d_csc_csnmi(a) result(res) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csc_csnmi @@ -305,7 +305,7 @@ module psb_d_csc_mat_mod interface function psb_d_csc_csnm1(a) result(res) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csc_csnm1 @@ -313,7 +313,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_rowsum(d,a) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csc_rowsum @@ -321,7 +321,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_arwsum(d,a) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csc_arwsum @@ -329,7 +329,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_colsum(d,a) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csc_colsum @@ -337,7 +337,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_aclsum(d,a) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csc_aclsum @@ -345,7 +345,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_get_diag(a,d,info) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer, intent(out) :: info @@ -354,7 +354,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_scal(d,a,info) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer, intent(out) :: info @@ -363,7 +363,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_scals(d,a,info) - import psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer, intent(out) :: info diff --git a/base/modules/psb_d_csr_mat_mod.f03 b/base/modules/psb_d_csr_mat_mod.f03 index cf53ab20..a3a82d62 100644 --- a/base/modules/psb_d_csr_mat_mod.f03 +++ b/base/modules/psb_d_csr_mat_mod.f03 @@ -56,7 +56,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_reallocate_nz(nz,a) - import psb_d_csr_sparse_mat + import :: psb_d_csr_sparse_mat integer, intent(in) :: nz class(psb_d_csr_sparse_mat), intent(inout) :: a end subroutine psb_d_csr_reallocate_nz @@ -64,7 +64,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_reinit(a,clear) - import psb_d_csr_sparse_mat + import :: psb_d_csr_sparse_mat class(psb_d_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_d_csr_reinit @@ -72,14 +72,14 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_trim(a) - import psb_d_csr_sparse_mat + import :: psb_d_csr_sparse_mat class(psb_d_csr_sparse_mat), intent(inout) :: a end subroutine psb_d_csr_trim end interface interface subroutine psb_d_csr_mold(a,b,info) - import psb_d_csr_sparse_mat, psb_d_base_sparse_mat, psb_long_int_k_ + import :: psb_d_csr_sparse_mat, psb_d_base_sparse_mat, psb_long_int_k_ class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b integer, intent(out) :: info @@ -88,7 +88,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_allocate_mnnz(m,n,a,nz) - import psb_d_csr_sparse_mat + import :: psb_d_csr_sparse_mat integer, intent(in) :: m,n class(psb_d_csr_sparse_mat), intent(inout) :: a integer, intent(in), optional :: nz @@ -97,7 +97,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_print(iout,a,iv,eirs,eics,head,ivr,ivc) - import psb_d_csr_sparse_mat + import :: psb_d_csr_sparse_mat integer, intent(in) :: iout class(psb_d_csr_sparse_mat), intent(in) :: a integer, intent(in), optional :: iv(:) @@ -109,7 +109,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_cp_csr_to_coo(a,b,info) - import psb_d_coo_sparse_mat, psb_d_csr_sparse_mat + import :: psb_d_coo_sparse_mat, psb_d_csr_sparse_mat class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -118,7 +118,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_cp_csr_from_coo(a,b,info) - import psb_d_csr_sparse_mat, psb_d_coo_sparse_mat + import :: psb_d_csr_sparse_mat, psb_d_coo_sparse_mat class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -127,7 +127,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_cp_csr_to_fmt(a,b,info) - import psb_d_csr_sparse_mat, psb_d_base_sparse_mat + import :: psb_d_csr_sparse_mat, psb_d_base_sparse_mat class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -136,7 +136,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_cp_csr_from_fmt(a,b,info) - import psb_d_csr_sparse_mat, psb_d_base_sparse_mat + import :: psb_d_csr_sparse_mat, psb_d_base_sparse_mat class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -145,7 +145,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_mv_csr_to_coo(a,b,info) - import psb_d_csr_sparse_mat, psb_d_coo_sparse_mat + import :: psb_d_csr_sparse_mat, psb_d_coo_sparse_mat class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -154,7 +154,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_mv_csr_from_coo(a,b,info) - import psb_d_csr_sparse_mat, psb_d_coo_sparse_mat + import :: psb_d_csr_sparse_mat, psb_d_coo_sparse_mat class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -163,7 +163,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_mv_csr_to_fmt(a,b,info) - import psb_d_csr_sparse_mat, psb_d_base_sparse_mat + import :: psb_d_csr_sparse_mat, psb_d_base_sparse_mat class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -172,7 +172,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_mv_csr_from_fmt(a,b,info) - import psb_d_csr_sparse_mat, psb_d_base_sparse_mat + import :: psb_d_csr_sparse_mat, psb_d_base_sparse_mat class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -181,7 +181,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_cp_from(a,b) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(inout) :: a type(psb_d_csr_sparse_mat), intent(in) :: b end subroutine psb_d_csr_cp_from @@ -189,7 +189,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_mv_from(a,b) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(inout) :: a type(psb_d_csr_sparse_mat), intent(inout) :: b end subroutine psb_d_csr_mv_from @@ -198,7 +198,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) integer, intent(in) :: nz,ia(:), ja(:),& @@ -211,7 +211,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -227,7 +227,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -244,7 +244,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import psb_d_csr_sparse_mat, psb_dpk_, psb_d_coo_sparse_mat + import :: psb_d_csr_sparse_mat, psb_dpk_, psb_d_coo_sparse_mat class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(in) :: imin,imax @@ -258,7 +258,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_cssv(alpha,a,x,beta,y,info,trans) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -266,7 +266,7 @@ module psb_d_csr_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_csr_cssv subroutine psb_d_csr_cssm(alpha,a,x,beta,y,info,trans) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -277,7 +277,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_csmv(alpha,a,x,beta,y,info,trans) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -285,7 +285,7 @@ module psb_d_csr_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_csr_csmv subroutine psb_d_csr_csmm(alpha,a,x,beta,y,info,trans) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -297,7 +297,7 @@ module psb_d_csr_mat_mod interface function psb_d_csr_csnmi(a) result(res) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csr_csnmi @@ -305,7 +305,7 @@ module psb_d_csr_mat_mod interface function psb_d_csr_csnm1(a) result(res) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csr_csnm1 @@ -313,7 +313,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_rowsum(d,a) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csr_rowsum @@ -321,7 +321,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_arwsum(d,a) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csr_arwsum @@ -329,7 +329,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_colsum(d,a) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csr_colsum @@ -337,7 +337,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_aclsum(d,a) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csr_aclsum @@ -345,7 +345,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_get_diag(a,d,info) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer, intent(out) :: info @@ -354,7 +354,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_scal(d,a,info) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer, intent(out) :: info @@ -363,7 +363,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_scals(d,a,info) - import psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer, intent(out) :: info diff --git a/base/modules/psb_d_linmap_mod.f90 b/base/modules/psb_d_linmap_mod.f90 index 88f6544d..f363bb15 100644 --- a/base/modules/psb_d_linmap_mod.f90 +++ b/base/modules/psb_d_linmap_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_d_mat_mod.f03 b/base/modules/psb_d_mat_mod.f03 index fb070eb0..9947dc44 100644 --- a/base/modules/psb_d_mat_mod.f03 +++ b/base/modules/psb_d_mat_mod.f03 @@ -130,7 +130,7 @@ module psb_d_mat_mod interface subroutine psb_d_set_nrows(m,a) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a integer, intent(in) :: m end subroutine psb_d_set_nrows @@ -138,7 +138,7 @@ module psb_d_mat_mod interface subroutine psb_d_set_ncols(n,a) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a integer, intent(in) :: n end subroutine psb_d_set_ncols @@ -146,7 +146,7 @@ module psb_d_mat_mod interface subroutine psb_d_set_state(n,a) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a integer, intent(in) :: n end subroutine psb_d_set_state @@ -154,7 +154,7 @@ module psb_d_mat_mod interface subroutine psb_d_set_dupl(n,a) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a integer, intent(in) :: n end subroutine psb_d_set_dupl @@ -162,35 +162,35 @@ module psb_d_mat_mod interface subroutine psb_d_set_null(a) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a end subroutine psb_d_set_null end interface interface subroutine psb_d_set_bld(a) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a end subroutine psb_d_set_bld end interface interface subroutine psb_d_set_upd(a) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a end subroutine psb_d_set_upd end interface interface subroutine psb_d_set_asb(a) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a end subroutine psb_d_set_asb end interface interface subroutine psb_d_set_sorted(a,val) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_d_set_sorted @@ -198,7 +198,7 @@ module psb_d_mat_mod interface subroutine psb_d_set_triangle(a,val) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_d_set_triangle @@ -206,7 +206,7 @@ module psb_d_mat_mod interface subroutine psb_d_set_unit(a,val) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_d_set_unit @@ -214,7 +214,7 @@ module psb_d_mat_mod interface subroutine psb_d_set_lower(a,val) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_d_set_lower @@ -222,7 +222,7 @@ module psb_d_mat_mod interface subroutine psb_d_set_upper(a,val) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_d_set_upper @@ -231,7 +231,7 @@ module psb_d_mat_mod interface subroutine psb_d_sparse_print(iout,a,iv,eirs,eics,head,ivr,ivc) - import psb_d_sparse_mat + import :: psb_d_sparse_mat integer, intent(in) :: iout class(psb_d_sparse_mat), intent(in) :: a integer, intent(in), optional :: iv(:) @@ -243,7 +243,7 @@ module psb_d_mat_mod interface subroutine psb_d_get_neigh(a,idx,neigh,n,info,lev) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(in) :: a integer, intent(in) :: idx integer, intent(out) :: n @@ -255,7 +255,7 @@ module psb_d_mat_mod interface subroutine psb_d_csall(nr,nc,a,info,nz) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(out) :: a integer, intent(in) :: nr,nc integer, intent(out) :: info @@ -265,7 +265,7 @@ module psb_d_mat_mod interface subroutine psb_d_reallocate_nz(nz,a) - import psb_d_sparse_mat + import :: psb_d_sparse_mat integer, intent(in) :: nz class(psb_d_sparse_mat), intent(inout) :: a end subroutine psb_d_reallocate_nz @@ -273,21 +273,21 @@ module psb_d_mat_mod interface subroutine psb_d_free(a) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a end subroutine psb_d_free end interface interface subroutine psb_d_trim(a) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a end subroutine psb_d_trim end interface interface subroutine psb_d_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -299,7 +299,7 @@ module psb_d_mat_mod interface subroutine psb_d_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -315,7 +315,7 @@ module psb_d_mat_mod interface subroutine psb_d_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -332,7 +332,7 @@ module psb_d_mat_mod interface subroutine psb_d_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(out) :: b integer, intent(in) :: imin,imax @@ -347,7 +347,7 @@ module psb_d_mat_mod interface subroutine psb_d_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(out) :: b integer,intent(out) :: info @@ -359,7 +359,7 @@ module psb_d_mat_mod interface subroutine psb_d_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import psb_d_sparse_mat, psb_dpk_, psb_d_coo_sparse_mat + import :: psb_d_sparse_mat, psb_dpk_, psb_d_coo_sparse_mat class(psb_d_sparse_mat), intent(in) :: a type(psb_d_coo_sparse_mat), intent(out) :: b integer,intent(out) :: info @@ -370,7 +370,7 @@ module psb_d_mat_mod interface subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl) - import psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat + import :: psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(out) :: b integer, intent(out) :: info @@ -383,7 +383,7 @@ module psb_d_mat_mod interface subroutine psb_d_cscnv_ip(a,iinfo,type,mold,dupl) - import psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat + import :: psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a integer, intent(out) :: iinfo integer,optional, intent(in) :: dupl @@ -395,7 +395,7 @@ module psb_d_mat_mod interface subroutine psb_d_cscnv_base(a,b,info,dupl) - import psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat + import :: psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat class(psb_d_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out) :: b integer, intent(out) :: info @@ -405,7 +405,7 @@ module psb_d_mat_mod interface subroutine psb_d_clip_d(a,b,info) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(out) :: b integer,intent(out) :: info @@ -414,7 +414,7 @@ module psb_d_mat_mod interface subroutine psb_d_clip_d_ip(a,info) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a integer,intent(out) :: info end subroutine psb_d_clip_d_ip @@ -422,7 +422,7 @@ module psb_d_mat_mod interface subroutine psb_d_mv_from(a,b) - import psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat + import :: psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat class(psb_d_sparse_mat), intent(out) :: a class(psb_d_base_sparse_mat), intent(inout) :: b end subroutine psb_d_mv_from @@ -430,7 +430,7 @@ module psb_d_mat_mod interface subroutine psb_d_cp_from(a,b) - import psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat + import :: psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat class(psb_d_sparse_mat), intent(out) :: a class(psb_d_base_sparse_mat), intent(inout), allocatable :: b end subroutine psb_d_cp_from @@ -438,7 +438,7 @@ module psb_d_mat_mod interface subroutine psb_d_mv_to(a,b) - import psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat + import :: psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(out) :: b end subroutine psb_d_mv_to @@ -446,7 +446,7 @@ module psb_d_mat_mod interface subroutine psb_d_cp_to(a,b) - import psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat + import :: psb_d_sparse_mat, psb_dpk_, psb_d_base_sparse_mat class(psb_d_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out) :: b end subroutine psb_d_cp_to @@ -454,7 +454,7 @@ module psb_d_mat_mod interface psb_move_alloc subroutine psb_d_sparse_mat_move(a,b,info) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a class(psb_d_sparse_mat), intent(out) :: b integer, intent(out) :: info @@ -464,7 +464,7 @@ module psb_d_mat_mod interface psb_clone subroutine psb_d_sparse_mat_clone(a,b,info) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(in) :: a class(psb_d_sparse_mat), intent(out) :: b integer, intent(out) :: info @@ -473,14 +473,14 @@ module psb_d_mat_mod interface subroutine psb_d_transp_1mat(a) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a end subroutine psb_d_transp_1mat end interface interface subroutine psb_d_transp_2mat(a,b) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(out) :: a class(psb_d_sparse_mat), intent(in) :: b end subroutine psb_d_transp_2mat @@ -488,14 +488,14 @@ module psb_d_mat_mod interface subroutine psb_d_transc_1mat(a) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a end subroutine psb_d_transc_1mat end interface interface subroutine psb_d_transc_2mat(a,b) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(out) :: a class(psb_d_sparse_mat), intent(in) :: b end subroutine psb_d_transc_2mat @@ -503,7 +503,7 @@ module psb_d_mat_mod interface subroutine psb_d_reinit(a,clear) - import psb_d_sparse_mat + import :: psb_d_sparse_mat class(psb_d_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_d_reinit @@ -526,7 +526,7 @@ module psb_d_mat_mod interface psb_csmm subroutine psb_d_csmm(alpha,a,x,beta,y,info,trans) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -534,7 +534,7 @@ module psb_d_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_csmm subroutine psb_d_csmv(alpha,a,x,beta,y,info,trans) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -545,7 +545,7 @@ module psb_d_mat_mod interface psb_cssm subroutine psb_d_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -554,7 +554,7 @@ module psb_d_mat_mod real(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_d_cssm subroutine psb_d_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -566,7 +566,7 @@ module psb_d_mat_mod interface function psb_d_csnmi(a) result(res) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csnmi @@ -574,7 +574,7 @@ module psb_d_mat_mod interface function psb_d_csnm1(a) result(res) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csnm1 @@ -582,7 +582,7 @@ module psb_d_mat_mod interface subroutine psb_d_rowsum(d,a) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_rowsum @@ -590,7 +590,7 @@ module psb_d_mat_mod interface subroutine psb_d_arwsum(d,a) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_arwsum @@ -598,7 +598,7 @@ module psb_d_mat_mod interface subroutine psb_d_colsum(d,a) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_colsum @@ -606,7 +606,7 @@ module psb_d_mat_mod interface subroutine psb_d_aclsum(d,a) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_aclsum @@ -615,7 +615,7 @@ module psb_d_mat_mod interface subroutine psb_d_get_diag(a,d,info) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer, intent(out) :: info @@ -624,13 +624,13 @@ module psb_d_mat_mod interface psb_scal subroutine psb_d_scal(d,a,info) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer, intent(out) :: info end subroutine psb_d_scal subroutine psb_d_scals(d,a,info) - import psb_d_sparse_mat, psb_dpk_ + import :: psb_d_sparse_mat, psb_dpk_ class(psb_d_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer, intent(out) :: info diff --git a/base/modules/psb_d_psblas_mod.f90 b/base/modules/psb_d_psblas_mod.f90 index b9b8931b..22a1be82 100644 --- a/base/modules/psb_d_psblas_mod.f90 +++ b/base/modules/psb_d_psblas_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_d_tools_mod.f90 b/base/modules/psb_d_tools_mod.f90 index 1ab157f1..937f1957 100644 --- a/base/modules/psb_d_tools_mod.f90 +++ b/base/modules/psb_d_tools_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_desc_type.f90 b/base/modules/psb_desc_type.f90 index 592349c2..33d06625 100644 --- a/base/modules/psb_desc_type.f90 +++ b/base/modules/psb_desc_type.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_error_mod.F90 b/base/modules/psb_error_mod.F90 index a3cd6bb3..c3b77f47 100644 --- a/base/modules/psb_error_mod.F90 +++ b/base/modules/psb_error_mod.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_gps_mod.f90 b/base/modules/psb_gps_mod.f90 index a48e9383..d74fe3c5 100644 --- a/base/modules/psb_gps_mod.f90 +++ b/base/modules/psb_gps_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_hash_mod.f90 b/base/modules/psb_hash_mod.f90 index b22c03d5..f5bf528e 100644 --- a/base/modules/psb_hash_mod.f90 +++ b/base/modules/psb_hash_mod.f90 @@ -1,6 +1,7 @@ !!$ !!$ Parallel Sparse BLAS v2.0 -!!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 +!!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/base/modules/psb_ip_reord_mod.f90 b/base/modules/psb_ip_reord_mod.f90 index 33a4df3a..add91d69 100644 --- a/base/modules/psb_ip_reord_mod.f90 +++ b/base/modules/psb_ip_reord_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_linmap_mod.f90 b/base/modules/psb_linmap_mod.f90 index 8c0ccf6b..c9a2b097 100644 --- a/base/modules/psb_linmap_mod.f90 +++ b/base/modules/psb_linmap_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_linmap_type_mod.f90 b/base/modules/psb_linmap_type_mod.f90 index 445bca8e..9bee4ea5 100644 --- a/base/modules/psb_linmap_type_mod.f90 +++ b/base/modules/psb_linmap_type_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_psblas_mod.f90 b/base/modules/psb_psblas_mod.f90 index 832d367f..b7ccdd36 100644 --- a/base/modules/psb_psblas_mod.f90 +++ b/base/modules/psb_psblas_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_realloc_mod.F90 b/base/modules/psb_realloc_mod.F90 index ae36842f..773c5466 100644 --- a/base/modules/psb_realloc_mod.F90 +++ b/base/modules/psb_realloc_mod.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_s_base_mat_mod.f03 b/base/modules/psb_s_base_mat_mod.f03 index befcf18c..3f1886ff 100644 --- a/base/modules/psb_s_base_mat_mod.f03 +++ b/base/modules/psb_s_base_mat_mod.f03 @@ -113,7 +113,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_csmm(alpha,a,x,beta,y,info,trans) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -124,7 +124,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_csmv(alpha,a,x,beta,y,info,trans) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -135,7 +135,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_inner_cssm(alpha,a,x,beta,y,info,trans) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -146,7 +146,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_inner_cssv(alpha,a,x,beta,y,info,trans) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -157,7 +157,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -169,7 +169,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -181,7 +181,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_scals(d,a,info) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer, intent(out) :: info @@ -190,7 +190,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_scal(d,a,info) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer, intent(out) :: info @@ -199,7 +199,7 @@ module psb_s_base_mat_mod interface function psb_s_base_csnmi(a) result(res) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_base_csnmi @@ -207,7 +207,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_get_diag(a,d,info) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer, intent(out) :: info @@ -216,7 +216,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -228,7 +228,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -245,7 +245,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer, intent(in) :: imin,imax @@ -261,7 +261,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(out) :: b integer,intent(out) :: info @@ -272,7 +272,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_mold(a,b,info) - import psb_s_base_sparse_mat, psb_long_int_k_ + import :: psb_s_base_sparse_mat, psb_long_int_k_ class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(out), allocatable :: b integer, intent(out) :: info @@ -282,7 +282,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_cp_to_coo(a,b,info) - import psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -291,7 +291,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_cp_from_coo(a,b,info) - import psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -300,7 +300,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_cp_to_fmt(a,b,info) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -309,7 +309,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_cp_from_fmt(a,b,info) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -318,7 +318,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_mv_to_coo(a,b,info) - import psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -327,7 +327,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_mv_from_coo(a,b,info) - import psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -336,7 +336,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_mv_to_fmt(a,b,info) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -345,7 +345,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_mv_from_fmt(a,b,info) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -354,7 +354,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_transp_2mat(a,b) - import psb_s_base_sparse_mat, psb_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(out) :: a class(psb_base_sparse_mat), intent(in) :: b end subroutine psb_s_base_transp_2mat @@ -362,7 +362,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_transc_2mat(a,b) - import psb_s_base_sparse_mat, psb_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(out) :: a class(psb_base_sparse_mat), intent(in) :: b end subroutine psb_s_base_transc_2mat @@ -370,14 +370,14 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_transp_1mat(a) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a end subroutine psb_s_base_transp_1mat end interface interface subroutine psb_s_base_transc_1mat(a) - import psb_s_base_sparse_mat, psb_spk_ + import :: psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a end subroutine psb_s_base_transc_1mat end interface @@ -393,7 +393,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_reallocate_nz(nz,a) - import psb_s_coo_sparse_mat + import :: psb_s_coo_sparse_mat integer, intent(in) :: nz class(psb_s_coo_sparse_mat), intent(inout) :: a end subroutine psb_s_coo_reallocate_nz @@ -401,7 +401,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_reinit(a,clear) - import psb_s_coo_sparse_mat + import :: psb_s_coo_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_s_coo_reinit @@ -409,14 +409,14 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_trim(a) - import psb_s_coo_sparse_mat + import :: psb_s_coo_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a end subroutine psb_s_coo_trim end interface interface subroutine psb_s_coo_allocate_mnnz(m,n,a,nz) - import psb_s_coo_sparse_mat + import :: psb_s_coo_sparse_mat integer, intent(in) :: m,n class(psb_s_coo_sparse_mat), intent(inout) :: a integer, intent(in), optional :: nz @@ -425,7 +425,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_mold(a,b,info) - import psb_s_coo_sparse_mat, psb_s_base_sparse_mat, psb_long_int_k_ + import :: psb_s_coo_sparse_mat, psb_s_base_sparse_mat, psb_long_int_k_ class(psb_s_coo_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(out), allocatable :: b integer, intent(out) :: info @@ -434,7 +434,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_print(iout,a,iv,eirs,eics,head,ivr,ivc) - import psb_s_coo_sparse_mat + import :: psb_s_coo_sparse_mat integer, intent(in) :: iout class(psb_s_coo_sparse_mat), intent(in) :: a integer, intent(in), optional :: iv(:) @@ -447,7 +447,7 @@ module psb_s_base_mat_mod interface function psb_s_coo_get_nz_row(idx,a) result(res) - import psb_s_coo_sparse_mat + import :: psb_s_coo_sparse_mat class(psb_s_coo_sparse_mat), intent(in) :: a integer, intent(in) :: idx integer :: res @@ -457,7 +457,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) - import psb_spk_ + import :: psb_spk_ integer, intent(in) :: nzin,dupl integer, intent(inout) :: ia(:), ja(:) real(psb_spk_), intent(inout) :: val(:) @@ -468,7 +468,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_fix_coo(a,info,idir) - import psb_s_coo_sparse_mat + import :: psb_s_coo_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a integer, intent(out) :: info integer, intent(in), optional :: idir @@ -477,7 +477,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_cp_coo_to_coo(a,b,info) - import psb_s_coo_sparse_mat + import :: psb_s_coo_sparse_mat class(psb_s_coo_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -486,7 +486,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_cp_coo_from_coo(a,b,info) - import psb_s_coo_sparse_mat + import :: psb_s_coo_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -495,7 +495,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_cp_coo_to_fmt(a,b,info) - import psb_s_coo_sparse_mat, psb_s_base_sparse_mat + import :: psb_s_coo_sparse_mat, psb_s_base_sparse_mat class(psb_s_coo_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -504,7 +504,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_cp_coo_from_fmt(a,b,info) - import psb_s_coo_sparse_mat, psb_s_base_sparse_mat + import :: psb_s_coo_sparse_mat, psb_s_base_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -513,7 +513,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_mv_coo_to_coo(a,b,info) - import psb_s_coo_sparse_mat + import :: psb_s_coo_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -522,7 +522,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_mv_coo_from_coo(a,b,info) - import psb_s_coo_sparse_mat + import :: psb_s_coo_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -531,7 +531,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_mv_coo_to_fmt(a,b,info) - import psb_s_coo_sparse_mat, psb_s_base_sparse_mat + import :: psb_s_coo_sparse_mat, psb_s_base_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -540,7 +540,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_mv_coo_from_fmt(a,b,info) - import psb_s_coo_sparse_mat, psb_s_base_sparse_mat + import :: psb_s_coo_sparse_mat, psb_s_base_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -549,7 +549,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_cp_from(a,b) - import psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(inout) :: a type(psb_s_coo_sparse_mat), intent(in) :: b end subroutine psb_s_coo_cp_from @@ -557,7 +557,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_mv_from(a,b) - import psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(inout) :: a type(psb_s_coo_sparse_mat), intent(inout) :: b end subroutine psb_s_coo_mv_from @@ -566,7 +566,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) integer, intent(in) :: nz,ia(:), ja(:),& @@ -579,7 +579,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -595,7 +595,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -611,7 +611,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_cssv(alpha,a,x,beta,y,info,trans) - import psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -619,7 +619,7 @@ module psb_s_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_coo_cssv subroutine psb_s_coo_cssm(alpha,a,x,beta,y,info,trans) - import psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -630,7 +630,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_csmv(alpha,a,x,beta,y,info,trans) - import psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -638,7 +638,7 @@ module psb_s_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_coo_csmv subroutine psb_s_coo_csmm(alpha,a,x,beta,y,info,trans) - import psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -650,7 +650,7 @@ module psb_s_base_mat_mod interface function psb_s_coo_csnmi(a) result(res) - import psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_coo_csnmi @@ -658,7 +658,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_get_diag(a,d,info) - import psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer, intent(out) :: info @@ -667,7 +667,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_scal(d,a,info) - import psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer, intent(out) :: info @@ -676,7 +676,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_scals(d,a,info) - import psb_s_coo_sparse_mat, psb_spk_ + import :: psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer, intent(out) :: info diff --git a/base/modules/psb_s_csc_mat_mod.f03 b/base/modules/psb_s_csc_mat_mod.f03 index fa0ad705..6ef1c846 100644 --- a/base/modules/psb_s_csc_mat_mod.f03 +++ b/base/modules/psb_s_csc_mat_mod.f03 @@ -51,7 +51,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_reallocate_nz(nz,a) - import psb_s_csc_sparse_mat + import :: psb_s_csc_sparse_mat integer, intent(in) :: nz class(psb_s_csc_sparse_mat), intent(inout) :: a end subroutine psb_s_csc_reallocate_nz @@ -59,7 +59,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_reinit(a,clear) - import psb_s_csc_sparse_mat + import :: psb_s_csc_sparse_mat class(psb_s_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_s_csc_reinit @@ -67,14 +67,14 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_trim(a) - import psb_s_csc_sparse_mat + import :: psb_s_csc_sparse_mat class(psb_s_csc_sparse_mat), intent(inout) :: a end subroutine psb_s_csc_trim end interface interface subroutine psb_s_csc_allocate_mnnz(m,n,a,nz) - import psb_s_csc_sparse_mat + import :: psb_s_csc_sparse_mat integer, intent(in) :: m,n class(psb_s_csc_sparse_mat), intent(inout) :: a integer, intent(in), optional :: nz @@ -83,7 +83,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_mold(a,b,info) - import psb_s_csc_sparse_mat, psb_s_base_sparse_mat, psb_long_int_k_ + import :: psb_s_csc_sparse_mat, psb_s_base_sparse_mat, psb_long_int_k_ class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(out), allocatable :: b integer, intent(out) :: info @@ -92,7 +92,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_print(iout,a,iv,eirs,eics,head,ivr,ivc) - import psb_s_csc_sparse_mat + import :: psb_s_csc_sparse_mat integer, intent(in) :: iout class(psb_s_csc_sparse_mat), intent(in) :: a integer, intent(in), optional :: iv(:) @@ -104,7 +104,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_cp_csc_to_coo(a,b,info) - import psb_s_coo_sparse_mat, psb_s_csc_sparse_mat + import :: psb_s_coo_sparse_mat, psb_s_csc_sparse_mat class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -113,7 +113,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_cp_csc_from_coo(a,b,info) - import psb_s_csc_sparse_mat, psb_s_coo_sparse_mat + import :: psb_s_csc_sparse_mat, psb_s_coo_sparse_mat class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -122,7 +122,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_cp_csc_to_fmt(a,b,info) - import psb_s_csc_sparse_mat, psb_s_base_sparse_mat + import :: psb_s_csc_sparse_mat, psb_s_base_sparse_mat class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -131,7 +131,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_cp_csc_from_fmt(a,b,info) - import psb_s_csc_sparse_mat, psb_s_base_sparse_mat + import :: psb_s_csc_sparse_mat, psb_s_base_sparse_mat class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -140,7 +140,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_mv_csc_to_coo(a,b,info) - import psb_s_csc_sparse_mat, psb_s_coo_sparse_mat + import :: psb_s_csc_sparse_mat, psb_s_coo_sparse_mat class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -149,7 +149,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_mv_csc_from_coo(a,b,info) - import psb_s_csc_sparse_mat, psb_s_coo_sparse_mat + import :: psb_s_csc_sparse_mat, psb_s_coo_sparse_mat class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -158,7 +158,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_mv_csc_to_fmt(a,b,info) - import psb_s_csc_sparse_mat, psb_s_base_sparse_mat + import :: psb_s_csc_sparse_mat, psb_s_base_sparse_mat class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -167,7 +167,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_mv_csc_from_fmt(a,b,info) - import psb_s_csc_sparse_mat, psb_s_base_sparse_mat + import :: psb_s_csc_sparse_mat, psb_s_base_sparse_mat class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -176,7 +176,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_cp_from(a,b) - import psb_s_csc_sparse_mat, psb_spk_ + import :: psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(inout) :: a type(psb_s_csc_sparse_mat), intent(in) :: b end subroutine psb_s_csc_cp_from @@ -184,7 +184,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_mv_from(a,b) - import psb_s_csc_sparse_mat, psb_spk_ + import :: psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(inout) :: a type(psb_s_csc_sparse_mat), intent(inout) :: b end subroutine psb_s_csc_mv_from @@ -193,7 +193,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_s_csc_sparse_mat, psb_spk_ + import :: psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) integer, intent(in) :: nz,ia(:), ja(:),& @@ -206,7 +206,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_s_csc_sparse_mat, psb_spk_ + import :: psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -222,7 +222,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_s_csc_sparse_mat, psb_spk_ + import :: psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -239,7 +239,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import psb_s_csc_sparse_mat, psb_spk_, psb_s_coo_sparse_mat + import :: psb_s_csc_sparse_mat, psb_spk_, psb_s_coo_sparse_mat class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer, intent(in) :: imin,imax @@ -253,7 +253,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_cssv(alpha,a,x,beta,y,info,trans) - import psb_s_csc_sparse_mat, psb_spk_ + import :: psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -261,7 +261,7 @@ module psb_s_csc_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_csc_cssv subroutine psb_s_csc_cssm(alpha,a,x,beta,y,info,trans) - import psb_s_csc_sparse_mat, psb_spk_ + import :: psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -272,7 +272,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_csmv(alpha,a,x,beta,y,info,trans) - import psb_s_csc_sparse_mat, psb_spk_ + import :: psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -280,7 +280,7 @@ module psb_s_csc_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_csc_csmv subroutine psb_s_csc_csmm(alpha,a,x,beta,y,info,trans) - import psb_s_csc_sparse_mat, psb_spk_ + import :: psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -292,7 +292,7 @@ module psb_s_csc_mat_mod interface function psb_s_csc_csnmi(a) result(res) - import psb_s_csc_sparse_mat, psb_spk_ + import :: psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_csc_csnmi @@ -300,7 +300,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_get_diag(a,d,info) - import psb_s_csc_sparse_mat, psb_spk_ + import :: psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer, intent(out) :: info @@ -309,7 +309,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_scal(d,a,info) - import psb_s_csc_sparse_mat, psb_spk_ + import :: psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer, intent(out) :: info @@ -318,7 +318,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_scals(d,a,info) - import psb_s_csc_sparse_mat, psb_spk_ + import :: psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer, intent(out) :: info diff --git a/base/modules/psb_s_csr_mat_mod.f03 b/base/modules/psb_s_csr_mat_mod.f03 index 8ee5ec5f..eab8fffd 100644 --- a/base/modules/psb_s_csr_mat_mod.f03 +++ b/base/modules/psb_s_csr_mat_mod.f03 @@ -51,7 +51,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_reallocate_nz(nz,a) - import psb_s_csr_sparse_mat + import :: psb_s_csr_sparse_mat integer, intent(in) :: nz class(psb_s_csr_sparse_mat), intent(inout) :: a end subroutine psb_s_csr_reallocate_nz @@ -59,7 +59,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_reinit(a,clear) - import psb_s_csr_sparse_mat + import :: psb_s_csr_sparse_mat class(psb_s_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_s_csr_reinit @@ -67,14 +67,14 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_trim(a) - import psb_s_csr_sparse_mat + import :: psb_s_csr_sparse_mat class(psb_s_csr_sparse_mat), intent(inout) :: a end subroutine psb_s_csr_trim end interface interface subroutine psb_s_csr_allocate_mnnz(m,n,a,nz) - import psb_s_csr_sparse_mat + import :: psb_s_csr_sparse_mat integer, intent(in) :: m,n class(psb_s_csr_sparse_mat), intent(inout) :: a integer, intent(in), optional :: nz @@ -83,7 +83,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_mold(a,b,info) - import psb_s_csr_sparse_mat, psb_s_base_sparse_mat, psb_long_int_k_ + import :: psb_s_csr_sparse_mat, psb_s_base_sparse_mat, psb_long_int_k_ class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(out), allocatable :: b integer, intent(out) :: info @@ -92,7 +92,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_print(iout,a,iv,eirs,eics,head,ivr,ivc) - import psb_s_csr_sparse_mat + import :: psb_s_csr_sparse_mat integer, intent(in) :: iout class(psb_s_csr_sparse_mat), intent(in) :: a integer, intent(in), optional :: iv(:) @@ -104,7 +104,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_cp_csr_to_coo(a,b,info) - import psb_s_coo_sparse_mat, psb_s_csr_sparse_mat + import :: psb_s_coo_sparse_mat, psb_s_csr_sparse_mat class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -113,7 +113,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_cp_csr_from_coo(a,b,info) - import psb_s_csr_sparse_mat, psb_s_coo_sparse_mat + import :: psb_s_csr_sparse_mat, psb_s_coo_sparse_mat class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -122,7 +122,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_cp_csr_to_fmt(a,b,info) - import psb_s_csr_sparse_mat, psb_s_base_sparse_mat + import :: psb_s_csr_sparse_mat, psb_s_base_sparse_mat class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -131,7 +131,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_cp_csr_from_fmt(a,b,info) - import psb_s_csr_sparse_mat, psb_s_base_sparse_mat + import :: psb_s_csr_sparse_mat, psb_s_base_sparse_mat class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -140,7 +140,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_mv_csr_to_coo(a,b,info) - import psb_s_csr_sparse_mat, psb_s_coo_sparse_mat + import :: psb_s_csr_sparse_mat, psb_s_coo_sparse_mat class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -149,7 +149,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_mv_csr_from_coo(a,b,info) - import psb_s_csr_sparse_mat, psb_s_coo_sparse_mat + import :: psb_s_csr_sparse_mat, psb_s_coo_sparse_mat class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -158,7 +158,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_mv_csr_to_fmt(a,b,info) - import psb_s_csr_sparse_mat, psb_s_base_sparse_mat + import :: psb_s_csr_sparse_mat, psb_s_base_sparse_mat class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -167,7 +167,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_mv_csr_from_fmt(a,b,info) - import psb_s_csr_sparse_mat, psb_s_base_sparse_mat + import :: psb_s_csr_sparse_mat, psb_s_base_sparse_mat class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -176,7 +176,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_cp_from(a,b) - import psb_s_csr_sparse_mat, psb_spk_ + import :: psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(inout) :: a type(psb_s_csr_sparse_mat), intent(in) :: b end subroutine psb_s_csr_cp_from @@ -184,7 +184,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_mv_from(a,b) - import psb_s_csr_sparse_mat, psb_spk_ + import :: psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(inout) :: a type(psb_s_csr_sparse_mat), intent(inout) :: b end subroutine psb_s_csr_mv_from @@ -193,7 +193,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_s_csr_sparse_mat, psb_spk_ + import :: psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) integer, intent(in) :: nz,ia(:), ja(:),& @@ -206,7 +206,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_s_csr_sparse_mat, psb_spk_ + import :: psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -222,7 +222,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_s_csr_sparse_mat, psb_spk_ + import :: psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -239,7 +239,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import psb_s_csr_sparse_mat, psb_spk_, psb_s_coo_sparse_mat + import :: psb_s_csr_sparse_mat, psb_spk_, psb_s_coo_sparse_mat class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer, intent(in) :: imin,imax @@ -253,7 +253,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_cssv(alpha,a,x,beta,y,info,trans) - import psb_s_csr_sparse_mat, psb_spk_ + import :: psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -261,7 +261,7 @@ module psb_s_csr_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_csr_cssv subroutine psb_s_csr_cssm(alpha,a,x,beta,y,info,trans) - import psb_s_csr_sparse_mat, psb_spk_ + import :: psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -272,7 +272,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_csmv(alpha,a,x,beta,y,info,trans) - import psb_s_csr_sparse_mat, psb_spk_ + import :: psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -280,7 +280,7 @@ module psb_s_csr_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_csr_csmv subroutine psb_s_csr_csmm(alpha,a,x,beta,y,info,trans) - import psb_s_csr_sparse_mat, psb_spk_ + import :: psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -292,7 +292,7 @@ module psb_s_csr_mat_mod interface function psb_s_csr_csnmi(a) result(res) - import psb_s_csr_sparse_mat, psb_spk_ + import :: psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_csr_csnmi @@ -300,7 +300,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_get_diag(a,d,info) - import psb_s_csr_sparse_mat, psb_spk_ + import :: psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer, intent(out) :: info @@ -309,7 +309,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_scal(d,a,info) - import psb_s_csr_sparse_mat, psb_spk_ + import :: psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer, intent(out) :: info @@ -318,7 +318,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_scals(d,a,info) - import psb_s_csr_sparse_mat, psb_spk_ + import :: psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer, intent(out) :: info diff --git a/base/modules/psb_s_linmap_mod.f90 b/base/modules/psb_s_linmap_mod.f90 index 8e81a173..2a19eb0d 100644 --- a/base/modules/psb_s_linmap_mod.f90 +++ b/base/modules/psb_s_linmap_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_s_mat_mod.f03 b/base/modules/psb_s_mat_mod.f03 index 4d55dde1..2e90e56e 100644 --- a/base/modules/psb_s_mat_mod.f03 +++ b/base/modules/psb_s_mat_mod.f03 @@ -125,7 +125,7 @@ module psb_s_mat_mod interface subroutine psb_s_set_nrows(m,a) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a integer, intent(in) :: m end subroutine psb_s_set_nrows @@ -133,7 +133,7 @@ module psb_s_mat_mod interface subroutine psb_s_set_ncols(n,a) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a integer, intent(in) :: n end subroutine psb_s_set_ncols @@ -141,7 +141,7 @@ module psb_s_mat_mod interface subroutine psb_s_set_state(n,a) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a integer, intent(in) :: n end subroutine psb_s_set_state @@ -149,7 +149,7 @@ module psb_s_mat_mod interface subroutine psb_s_set_dupl(n,a) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a integer, intent(in) :: n end subroutine psb_s_set_dupl @@ -157,35 +157,35 @@ module psb_s_mat_mod interface subroutine psb_s_set_null(a) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a end subroutine psb_s_set_null end interface interface subroutine psb_s_set_bld(a) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a end subroutine psb_s_set_bld end interface interface subroutine psb_s_set_upd(a) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a end subroutine psb_s_set_upd end interface interface subroutine psb_s_set_asb(a) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a end subroutine psb_s_set_asb end interface interface subroutine psb_s_set_sorted(a,val) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_s_set_sorted @@ -193,7 +193,7 @@ module psb_s_mat_mod interface subroutine psb_s_set_triangle(a,val) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_s_set_triangle @@ -201,7 +201,7 @@ module psb_s_mat_mod interface subroutine psb_s_set_unit(a,val) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_s_set_unit @@ -209,7 +209,7 @@ module psb_s_mat_mod interface subroutine psb_s_set_lower(a,val) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_s_set_lower @@ -217,7 +217,7 @@ module psb_s_mat_mod interface subroutine psb_s_set_upper(a,val) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_s_set_upper @@ -226,7 +226,7 @@ module psb_s_mat_mod interface subroutine psb_s_sparse_print(iout,a,iv,eirs,eics,head,ivr,ivc) - import psb_s_sparse_mat + import :: psb_s_sparse_mat integer, intent(in) :: iout class(psb_s_sparse_mat), intent(in) :: a integer, intent(in), optional :: iv(:) @@ -238,7 +238,7 @@ module psb_s_mat_mod interface subroutine psb_s_get_neigh(a,idx,neigh,n,info,lev) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(in) :: a integer, intent(in) :: idx integer, intent(out) :: n @@ -250,7 +250,7 @@ module psb_s_mat_mod interface subroutine psb_s_csall(nr,nc,a,info,nz) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(out) :: a integer, intent(in) :: nr,nc integer, intent(out) :: info @@ -260,7 +260,7 @@ module psb_s_mat_mod interface subroutine psb_s_reallocate_nz(nz,a) - import psb_s_sparse_mat + import :: psb_s_sparse_mat integer, intent(in) :: nz class(psb_s_sparse_mat), intent(inout) :: a end subroutine psb_s_reallocate_nz @@ -268,21 +268,21 @@ module psb_s_mat_mod interface subroutine psb_s_free(a) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a end subroutine psb_s_free end interface interface subroutine psb_s_trim(a) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a end subroutine psb_s_trim end interface interface subroutine psb_s_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_s_sparse_mat, psb_spk_ + import :: psb_s_sparse_mat, psb_spk_ class(psb_s_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -294,7 +294,7 @@ module psb_s_mat_mod interface subroutine psb_s_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_s_sparse_mat, psb_spk_ + import :: psb_s_sparse_mat, psb_spk_ class(psb_s_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -310,7 +310,7 @@ module psb_s_mat_mod interface subroutine psb_s_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_s_sparse_mat, psb_spk_ + import :: psb_s_sparse_mat, psb_spk_ class(psb_s_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -327,7 +327,7 @@ module psb_s_mat_mod interface subroutine psb_s_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import psb_s_sparse_mat, psb_spk_ + import :: psb_s_sparse_mat, psb_spk_ class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(out) :: b integer, intent(in) :: imin,imax @@ -342,7 +342,7 @@ module psb_s_mat_mod interface subroutine psb_s_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import psb_s_sparse_mat, psb_spk_ + import :: psb_s_sparse_mat, psb_spk_ class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(out) :: b integer,intent(out) :: info @@ -354,7 +354,7 @@ module psb_s_mat_mod interface subroutine psb_s_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import psb_s_sparse_mat, psb_spk_, psb_s_coo_sparse_mat + import :: psb_s_sparse_mat, psb_spk_, psb_s_coo_sparse_mat class(psb_s_sparse_mat), intent(in) :: a type(psb_s_coo_sparse_mat), intent(out) :: b integer,intent(out) :: info @@ -365,7 +365,7 @@ module psb_s_mat_mod interface subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl) - import psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat + import :: psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(out) :: b integer, intent(out) :: info @@ -378,7 +378,7 @@ module psb_s_mat_mod interface subroutine psb_s_cscnv_ip(a,iinfo,type,mold,dupl) - import psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat + import :: psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a integer, intent(out) :: iinfo integer,optional, intent(in) :: dupl @@ -390,7 +390,7 @@ module psb_s_mat_mod interface subroutine psb_s_cscnv_base(a,b,info,dupl) - import psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat + import :: psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat class(psb_s_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(out) :: b integer, intent(out) :: info @@ -400,7 +400,7 @@ module psb_s_mat_mod interface subroutine psb_s_clip_d(a,b,info) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(out) :: b integer,intent(out) :: info @@ -409,7 +409,7 @@ module psb_s_mat_mod interface subroutine psb_s_clip_d_ip(a,info) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a integer,intent(out) :: info end subroutine psb_s_clip_d_ip @@ -417,7 +417,7 @@ module psb_s_mat_mod interface subroutine psb_s_mv_from(a,b) - import psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat + import :: psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat class(psb_s_sparse_mat), intent(out) :: a class(psb_s_base_sparse_mat), intent(inout) :: b end subroutine psb_s_mv_from @@ -425,7 +425,7 @@ module psb_s_mat_mod interface subroutine psb_s_cp_from(a,b) - import psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat + import :: psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat class(psb_s_sparse_mat), intent(out) :: a class(psb_s_base_sparse_mat), intent(inout), allocatable :: b end subroutine psb_s_cp_from @@ -433,7 +433,7 @@ module psb_s_mat_mod interface subroutine psb_s_mv_to(a,b) - import psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat + import :: psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(out) :: b end subroutine psb_s_mv_to @@ -441,7 +441,7 @@ module psb_s_mat_mod interface subroutine psb_s_cp_to(a,b) - import psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat + import :: psb_s_sparse_mat, psb_spk_, psb_s_base_sparse_mat class(psb_s_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(out) :: b end subroutine psb_s_cp_to @@ -449,7 +449,7 @@ module psb_s_mat_mod interface psb_move_alloc subroutine psb_s_sparse_mat_move(a,b,info) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a class(psb_s_sparse_mat), intent(out) :: b integer, intent(out) :: info @@ -459,7 +459,7 @@ module psb_s_mat_mod interface psb_clone subroutine psb_s_sparse_mat_clone(a,b,info) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(in) :: a class(psb_s_sparse_mat), intent(out) :: b integer, intent(out) :: info @@ -468,14 +468,14 @@ module psb_s_mat_mod interface subroutine psb_s_transp_1mat(a) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a end subroutine psb_s_transp_1mat end interface interface subroutine psb_s_transp_2mat(a,b) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(out) :: a class(psb_s_sparse_mat), intent(in) :: b end subroutine psb_s_transp_2mat @@ -483,14 +483,14 @@ module psb_s_mat_mod interface subroutine psb_s_transc_1mat(a) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a end subroutine psb_s_transc_1mat end interface interface subroutine psb_s_transc_2mat(a,b) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(out) :: a class(psb_s_sparse_mat), intent(in) :: b end subroutine psb_s_transc_2mat @@ -498,7 +498,7 @@ module psb_s_mat_mod interface subroutine psb_s_reinit(a,clear) - import psb_s_sparse_mat + import :: psb_s_sparse_mat class(psb_s_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_s_reinit @@ -521,7 +521,7 @@ module psb_s_mat_mod interface psb_csmm subroutine psb_s_csmm(alpha,a,x,beta,y,info,trans) - import psb_s_sparse_mat, psb_spk_ + import :: psb_s_sparse_mat, psb_spk_ class(psb_s_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -529,7 +529,7 @@ module psb_s_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_csmm subroutine psb_s_csmv(alpha,a,x,beta,y,info,trans) - import psb_s_sparse_mat, psb_spk_ + import :: psb_s_sparse_mat, psb_spk_ class(psb_s_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -540,7 +540,7 @@ module psb_s_mat_mod interface psb_cssm subroutine psb_s_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import psb_s_sparse_mat, psb_spk_ + import :: psb_s_sparse_mat, psb_spk_ class(psb_s_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -549,7 +549,7 @@ module psb_s_mat_mod real(psb_spk_), intent(in), optional :: d(:) end subroutine psb_s_cssm subroutine psb_s_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import psb_s_sparse_mat, psb_spk_ + import :: psb_s_sparse_mat, psb_spk_ class(psb_s_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -561,7 +561,7 @@ module psb_s_mat_mod interface function psb_s_csnmi(a) result(res) - import psb_s_sparse_mat, psb_spk_ + import :: psb_s_sparse_mat, psb_spk_ class(psb_s_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_csnmi @@ -569,7 +569,7 @@ module psb_s_mat_mod interface subroutine psb_s_get_diag(a,d,info) - import psb_s_sparse_mat, psb_spk_ + import :: psb_s_sparse_mat, psb_spk_ class(psb_s_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer, intent(out) :: info @@ -578,13 +578,13 @@ module psb_s_mat_mod interface psb_scal subroutine psb_s_scal(d,a,info) - import psb_s_sparse_mat, psb_spk_ + import :: psb_s_sparse_mat, psb_spk_ class(psb_s_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer, intent(out) :: info end subroutine psb_s_scal subroutine psb_s_scals(d,a,info) - import psb_s_sparse_mat, psb_spk_ + import :: psb_s_sparse_mat, psb_spk_ class(psb_s_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer, intent(out) :: info diff --git a/base/modules/psb_s_psblas_mod.f90 b/base/modules/psb_s_psblas_mod.f90 index aae32e17..d9eac1a8 100644 --- a/base/modules/psb_s_psblas_mod.f90 +++ b/base/modules/psb_s_psblas_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_s_tools_mod.f90 b/base/modules/psb_s_tools_mod.f90 index 381d91c9..85bbf3fb 100644 --- a/base/modules/psb_s_tools_mod.f90 +++ b/base/modules/psb_s_tools_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_serial_mod.f90 b/base/modules/psb_serial_mod.f90 index 86c4211e..9613088f 100644 --- a/base/modules/psb_serial_mod.f90 +++ b/base/modules/psb_serial_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_sort_mod.f90 b/base/modules/psb_sort_mod.f90 index a37f2a39..fbec74d4 100644 --- a/base/modules/psb_sort_mod.f90 +++ b/base/modules/psb_sort_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -221,32 +221,32 @@ module psb_sort_mod interface psb_howmany_heap function psb_howmany_int_heap(heap) - import psb_int_heap + import :: psb_int_heap type(psb_int_heap), intent(in) :: heap integer :: psb_howmany_int_heap end function psb_howmany_int_heap function psb_howmany_real_idx_heap(heap) - import psb_real_idx_heap + import :: psb_real_idx_heap type(psb_real_idx_heap), intent(in) :: heap integer :: psb_howmany_real_idx_heap end function psb_howmany_real_idx_heap function psb_howmany_double_idx_heap(heap) - import psb_double_idx_heap + import :: psb_double_idx_heap type(psb_double_idx_heap), intent(in) :: heap integer :: psb_howmany_double_idx_heap end function psb_howmany_double_idx_heap function psb_howmany_int_idx_heap(heap) - import psb_int_idx_heap + import :: psb_int_idx_heap type(psb_int_idx_heap), intent(in) :: heap integer :: psb_howmany_int_idx_heap end function psb_howmany_int_idx_heap function psb_howmany_scomplex_idx_heap(heap) - import psb_scomplex_idx_heap + import :: psb_scomplex_idx_heap type(psb_scomplex_idx_heap), intent(in) :: heap integer :: psb_howmany_scomplex_idx_heap end function psb_howmany_scomplex_idx_heap function psb_howmany_dcomplex_idx_heap(heap) - import psb_dcomplex_idx_heap + import :: psb_dcomplex_idx_heap type(psb_dcomplex_idx_heap), intent(in) :: heap integer :: psb_howmany_dcomplex_idx_heap end function psb_howmany_dcomplex_idx_heap @@ -255,37 +255,37 @@ module psb_sort_mod interface psb_init_heap subroutine psb_init_int_heap(heap,info,dir) - import psb_int_heap + import :: psb_int_heap type(psb_int_heap), intent(inout) :: heap integer, intent(out) :: info integer, intent(in), optional :: dir end subroutine psb_init_int_heap subroutine psb_init_real_idx_heap(heap,info,dir) - import psb_real_idx_heap + import :: psb_real_idx_heap type(psb_real_idx_heap), intent(inout) :: heap integer, intent(out) :: info integer, intent(in), optional :: dir end subroutine psb_init_real_idx_heap subroutine psb_init_int_idx_heap(heap,info,dir) - import psb_int_idx_heap + import :: psb_int_idx_heap type(psb_int_idx_heap), intent(inout) :: heap integer, intent(out) :: info integer, intent(in), optional :: dir end subroutine psb_init_int_idx_heap subroutine psb_init_scomplex_idx_heap(heap,info,dir) - import psb_scomplex_idx_heap + import :: psb_scomplex_idx_heap type(psb_scomplex_idx_heap), intent(inout) :: heap integer, intent(out) :: info integer, intent(in), optional :: dir end subroutine psb_init_scomplex_idx_heap subroutine psb_init_dcomplex_idx_heap(heap,info,dir) - import psb_dcomplex_idx_heap + import :: psb_dcomplex_idx_heap type(psb_dcomplex_idx_heap), intent(inout) :: heap integer, intent(out) :: info integer, intent(in), optional :: dir end subroutine psb_init_dcomplex_idx_heap subroutine psb_init_double_idx_heap(heap,info,dir) - import psb_double_idx_heap + import :: psb_double_idx_heap type(psb_double_idx_heap), intent(inout) :: heap integer, intent(out) :: info integer, intent(in), optional :: dir @@ -295,37 +295,37 @@ module psb_sort_mod interface psb_dump_heap subroutine psb_dump_int_heap(iout,heap,info) - import psb_int_heap + import :: psb_int_heap type(psb_int_heap), intent(in) :: heap integer, intent(out) :: info integer, intent(in) :: iout end subroutine psb_dump_int_heap subroutine psb_dump_real_idx_heap(iout,heap,info) - import psb_real_idx_heap + import :: psb_real_idx_heap type(psb_real_idx_heap), intent(in) :: heap integer, intent(out) :: info integer, intent(in) :: iout end subroutine psb_dump_real_idx_heap subroutine psb_dump_double_idx_heap(iout,heap,info) - import psb_double_idx_heap + import :: psb_double_idx_heap type(psb_double_idx_heap), intent(in) :: heap integer, intent(out) :: info integer, intent(in) :: iout end subroutine psb_dump_double_idx_heap subroutine psb_dump_int_idx_heap(iout,heap,info) - import psb_int_idx_heap + import :: psb_int_idx_heap type(psb_int_idx_heap), intent(in) :: heap integer, intent(out) :: info integer, intent(in) :: iout end subroutine psb_dump_int_idx_heap subroutine psb_dump_scomplex_idx_heap(iout,heap,info) - import psb_scomplex_idx_heap + import :: psb_scomplex_idx_heap type(psb_scomplex_idx_heap), intent(in) :: heap integer, intent(out) :: info integer, intent(in) :: iout end subroutine psb_dump_scomplex_idx_heap subroutine psb_dump_dcomplex_idx_heap(iout,heap,info) - import psb_dcomplex_idx_heap + import :: psb_dcomplex_idx_heap type(psb_dcomplex_idx_heap), intent(in) :: heap integer, intent(out) :: info integer, intent(in) :: iout @@ -335,41 +335,41 @@ module psb_sort_mod interface psb_insert_heap subroutine psb_insert_int_heap(key,heap,info) - import psb_int_heap + import :: psb_int_heap integer, intent(in) :: key type(psb_int_heap), intent(inout) :: heap integer, intent(out) :: info end subroutine psb_insert_int_heap subroutine psb_insert_int_idx_heap(key,index,heap,info) - import psb_dpk_, psb_int_idx_heap + import :: psb_dpk_, psb_int_idx_heap integer, intent(in) :: key integer, intent(in) :: index type(psb_int_idx_heap), intent(inout) :: heap integer, intent(out) :: info end subroutine psb_insert_int_idx_heap subroutine psb_insert_real_idx_heap(key,index,heap,info) - import psb_spk_, psb_real_idx_heap + import :: psb_spk_, psb_real_idx_heap real(psb_spk_), intent(in) :: key integer, intent(in) :: index type(psb_real_idx_heap), intent(inout) :: heap integer, intent(out) :: info end subroutine psb_insert_real_idx_heap subroutine psb_insert_double_idx_heap(key,index,heap,info) - import psb_dpk_, psb_double_idx_heap + import :: psb_dpk_, psb_double_idx_heap real(psb_dpk_), intent(in) :: key integer, intent(in) :: index type(psb_double_idx_heap), intent(inout) :: heap integer, intent(out) :: info end subroutine psb_insert_double_idx_heap subroutine psb_insert_scomplex_idx_heap(key,index,heap,info) - import psb_spk_, psb_scomplex_idx_heap + import :: psb_spk_, psb_scomplex_idx_heap complex(psb_spk_), intent(in) :: key integer, intent(in) :: index type(psb_scomplex_idx_heap), intent(inout) :: heap integer, intent(out) :: info end subroutine psb_insert_scomplex_idx_heap subroutine psb_insert_dcomplex_idx_heap(key,index,heap,info) - import psb_dpk_, psb_dcomplex_idx_heap + import :: psb_dpk_, psb_dcomplex_idx_heap complex(psb_dpk_), intent(in) :: key integer, intent(in) :: index type(psb_dcomplex_idx_heap), intent(inout) :: heap @@ -379,37 +379,37 @@ module psb_sort_mod interface psb_heap_get_first subroutine psb_int_heap_get_first(key,heap,info) - import psb_int_heap + import :: psb_int_heap type(psb_int_heap), intent(inout) :: heap integer, intent(out) :: key,info end subroutine psb_int_heap_get_first subroutine psb_int_idx_heap_get_first(key,index,heap,info) - import psb_int_idx_heap + import :: psb_int_idx_heap type(psb_int_idx_heap), intent(inout) :: heap integer, intent(out) :: index,info integer, intent(out) :: key end subroutine psb_int_idx_heap_get_first subroutine psb_real_idx_heap_get_first(key,index,heap,info) - import psb_spk_, psb_real_idx_heap + import :: psb_spk_, psb_real_idx_heap type(psb_real_idx_heap), intent(inout) :: heap integer, intent(out) :: index,info real(psb_spk_), intent(out) :: key end subroutine psb_real_idx_heap_get_first subroutine psb_double_idx_heap_get_first(key,index,heap,info) - import psb_dpk_, psb_double_idx_heap + import :: psb_dpk_, psb_double_idx_heap type(psb_double_idx_heap), intent(inout) :: heap integer, intent(out) :: index,info real(psb_dpk_), intent(out) :: key end subroutine psb_double_idx_heap_get_first subroutine psb_scomplex_idx_heap_get_first(key,index,heap,info) - import psb_spk_, psb_scomplex_idx_heap + import :: psb_spk_, psb_scomplex_idx_heap type(psb_scomplex_idx_heap), intent(inout) :: heap integer, intent(out) :: index,info complex(psb_spk_), intent(out) :: key end subroutine psb_scomplex_idx_heap_get_first subroutine psb_dcomplex_idx_heap_get_first(key,index,heap,info) - import psb_dpk_, psb_dcomplex_idx_heap + import :: psb_dpk_, psb_dcomplex_idx_heap type(psb_dcomplex_idx_heap), intent(inout) :: heap integer, intent(out) :: index,info complex(psb_dpk_), intent(out) :: key @@ -446,7 +446,7 @@ module psb_sort_mod interface subroutine psi_insert_real_heap(key,last,heap,dir,info) - import psb_spk_ + import :: psb_spk_ real(psb_spk_), intent(in) :: key integer, intent(in) :: dir real(psb_spk_), intent(inout) :: heap(:) @@ -459,7 +459,7 @@ module psb_sort_mod interface subroutine psi_real_heap_get_first(key,last,heap,dir,info) - import psb_spk_ + import :: psb_spk_ real(psb_spk_), intent(inout) :: key integer, intent(inout) :: last integer, intent(in) :: dir @@ -470,7 +470,7 @@ module psb_sort_mod interface subroutine psi_insert_double_heap(key,last,heap,dir,info) - import psb_dpk_ + import :: psb_dpk_ real(psb_dpk_), intent(in) :: key integer, intent(in) :: dir real(psb_dpk_), intent(inout) :: heap(:) @@ -483,7 +483,7 @@ module psb_sort_mod interface subroutine psi_double_heap_get_first(key,last,heap,dir,info) - import psb_dpk_ + import :: psb_dpk_ real(psb_dpk_), intent(inout) :: key integer, intent(inout) :: last integer, intent(in) :: dir @@ -494,7 +494,7 @@ module psb_sort_mod interface subroutine psi_insert_scomplex_heap(key,last,heap,dir,info) - import psb_spk_ + import :: psb_spk_ complex(psb_spk_), intent(in) :: key integer, intent(in) :: dir complex(psb_spk_), intent(inout) :: heap(:) @@ -505,7 +505,7 @@ module psb_sort_mod interface subroutine psi_scomplex_heap_get_first(key,last,heap,dir,info) - import psb_spk_ + import :: psb_spk_ complex(psb_spk_), intent(inout) :: key integer, intent(inout) :: last integer, intent(in) :: dir @@ -516,7 +516,7 @@ module psb_sort_mod interface subroutine psi_insert_dcomplex_heap(key,last,heap,dir,info) - import psb_dpk_ + import :: psb_dpk_ complex(psb_dpk_), intent(in) :: key integer, intent(in) :: dir complex(psb_dpk_), intent(inout) :: heap(:) @@ -527,7 +527,7 @@ module psb_sort_mod interface subroutine psi_dcomplex_heap_get_first(key,last,heap,dir,info) - import psb_dpk_ + import :: psb_dpk_ complex(psb_dpk_), intent(inout) :: key integer, intent(inout) :: last integer, intent(in) :: dir @@ -558,7 +558,7 @@ module psb_sort_mod interface subroutine psi_insert_real_idx_heap(key,index,last,heap,idxs,dir,info) - import psb_spk_ + import :: psb_spk_ real(psb_spk_), intent(in) :: key integer, intent(in) :: index,dir real(psb_spk_), intent(inout) :: heap(:) @@ -569,7 +569,7 @@ module psb_sort_mod interface subroutine psi_real_idx_heap_get_first(key,index,last,heap,idxs,dir,info) - import psb_spk_ + import :: psb_spk_ real(psb_spk_), intent(inout) :: heap(:) integer, intent(out) :: index,info integer, intent(inout) :: last,idxs(:) @@ -580,7 +580,7 @@ module psb_sort_mod interface subroutine psi_insert_double_idx_heap(key,index,last,heap,idxs,dir,info) - import psb_dpk_ + import :: psb_dpk_ real(psb_dpk_), intent(in) :: key integer, intent(in) :: index,dir real(psb_dpk_), intent(inout) :: heap(:) @@ -591,7 +591,7 @@ module psb_sort_mod interface subroutine psi_double_idx_heap_get_first(key,index,last,heap,idxs,dir,info) - import psb_dpk_ + import :: psb_dpk_ real(psb_dpk_), intent(inout) :: heap(:) integer, intent(out) :: index,info integer, intent(inout) :: last,idxs(:) @@ -602,7 +602,7 @@ module psb_sort_mod interface subroutine psi_insert_scomplex_idx_heap(key,index,last,heap,idxs,dir,info) - import psb_spk_ + import :: psb_spk_ complex(psb_spk_), intent(in) :: key integer, intent(in) :: index,dir complex(psb_spk_), intent(inout) :: heap(:) @@ -613,7 +613,7 @@ module psb_sort_mod interface subroutine psi_scomplex_idx_heap_get_first(key,index,last,heap,idxs,dir,info) - import psb_spk_ + import :: psb_spk_ complex(psb_spk_), intent(inout) :: heap(:) integer, intent(out) :: index,info integer, intent(inout) :: last,idxs(:) @@ -624,7 +624,7 @@ module psb_sort_mod interface subroutine psi_insert_dcomplex_idx_heap(key,index,last,heap,idxs,dir,info) - import psb_dpk_ + import :: psb_dpk_ complex(psb_dpk_), intent(in) :: key integer, intent(in) :: index,dir complex(psb_dpk_), intent(inout) :: heap(:) @@ -635,7 +635,7 @@ module psb_sort_mod interface subroutine psi_dcomplex_idx_heap_get_first(key,index,last,heap,idxs,dir,info) - import psb_dpk_ + import :: psb_dpk_ complex(psb_dpk_), intent(inout) :: heap(:) integer, intent(out) :: index,info integer, intent(inout) :: last,idxs(:) diff --git a/base/modules/psb_sparse_mod.f90 b/base/modules/psb_sparse_mod.f90 index 3861983f..d33abb49 100644 --- a/base/modules/psb_sparse_mod.f90 +++ b/base/modules/psb_sparse_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_string_mod.f90 b/base/modules/psb_string_mod.f90 index 5f1de083..b9ccf867 100644 --- a/base/modules/psb_string_mod.f90 +++ b/base/modules/psb_string_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_tools_mod.f90 b/base/modules/psb_tools_mod.f90 index 904090bb..8b7a7520 100644 --- a/base/modules/psb_tools_mod.f90 +++ b/base/modules/psb_tools_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_z_base_mat_mod.f03 b/base/modules/psb_z_base_mat_mod.f03 index b8bd99fc..30d73f55 100644 --- a/base/modules/psb_z_base_mat_mod.f03 +++ b/base/modules/psb_z_base_mat_mod.f03 @@ -113,7 +113,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_csmm(alpha,a,x,beta,y,info,trans) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -124,7 +124,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_csmv(alpha,a,x,beta,y,info,trans) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -135,7 +135,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_inner_cssm(alpha,a,x,beta,y,info,trans) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -146,7 +146,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_inner_cssv(alpha,a,x,beta,y,info,trans) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -157,7 +157,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -169,7 +169,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -181,7 +181,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_scals(d,a,info) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer, intent(out) :: info @@ -190,7 +190,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_scal(d,a,info) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer, intent(out) :: info @@ -199,7 +199,7 @@ module psb_z_base_mat_mod interface function psb_z_base_csnmi(a) result(res) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_base_csnmi @@ -207,7 +207,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_get_diag(a,d,info) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer, intent(out) :: info @@ -216,7 +216,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -228,7 +228,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -245,7 +245,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer, intent(in) :: imin,imax @@ -261,7 +261,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(out) :: b integer,intent(out) :: info @@ -272,7 +272,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_mold(a,b,info) - import psb_z_base_sparse_mat, psb_long_int_k_ + import :: psb_z_base_sparse_mat, psb_long_int_k_ class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(out), allocatable :: b integer, intent(out) :: info @@ -282,7 +282,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_cp_to_coo(a,b,info) - import psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -291,7 +291,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_cp_from_coo(a,b,info) - import psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -300,7 +300,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_cp_to_fmt(a,b,info) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -309,7 +309,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_cp_from_fmt(a,b,info) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -318,7 +318,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_mv_to_coo(a,b,info) - import psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -327,7 +327,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_mv_from_coo(a,b,info) - import psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -336,7 +336,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_mv_to_fmt(a,b,info) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -345,7 +345,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_mv_from_fmt(a,b,info) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -354,7 +354,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_transp_2mat(a,b) - import psb_z_base_sparse_mat, psb_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(out) :: a class(psb_base_sparse_mat), intent(in) :: b end subroutine psb_z_base_transp_2mat @@ -362,7 +362,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_transc_2mat(a,b) - import psb_z_base_sparse_mat, psb_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(out) :: a class(psb_base_sparse_mat), intent(in) :: b end subroutine psb_z_base_transc_2mat @@ -370,14 +370,14 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_transp_1mat(a) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a end subroutine psb_z_base_transp_1mat end interface interface subroutine psb_z_base_transc_1mat(a) - import psb_z_base_sparse_mat, psb_dpk_ + import :: psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a end subroutine psb_z_base_transc_1mat end interface @@ -393,7 +393,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_reallocate_nz(nz,a) - import psb_z_coo_sparse_mat + import :: psb_z_coo_sparse_mat integer, intent(in) :: nz class(psb_z_coo_sparse_mat), intent(inout) :: a end subroutine psb_z_coo_reallocate_nz @@ -401,7 +401,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_reinit(a,clear) - import psb_z_coo_sparse_mat + import :: psb_z_coo_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_z_coo_reinit @@ -409,14 +409,14 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_trim(a) - import psb_z_coo_sparse_mat + import :: psb_z_coo_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a end subroutine psb_z_coo_trim end interface interface subroutine psb_z_coo_allocate_mnnz(m,n,a,nz) - import psb_z_coo_sparse_mat + import :: psb_z_coo_sparse_mat integer, intent(in) :: m,n class(psb_z_coo_sparse_mat), intent(inout) :: a integer, intent(in), optional :: nz @@ -425,7 +425,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_mold(a,b,info) - import psb_z_coo_sparse_mat, psb_z_base_sparse_mat, psb_long_int_k_ + import :: psb_z_coo_sparse_mat, psb_z_base_sparse_mat, psb_long_int_k_ class(psb_z_coo_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(out), allocatable :: b integer, intent(out) :: info @@ -434,7 +434,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_print(iout,a,iv,eirs,eics,head,ivr,ivc) - import psb_z_coo_sparse_mat + import :: psb_z_coo_sparse_mat integer, intent(in) :: iout class(psb_z_coo_sparse_mat), intent(in) :: a integer, intent(in), optional :: iv(:) @@ -447,7 +447,7 @@ module psb_z_base_mat_mod interface function psb_z_coo_get_nz_row(idx,a) result(res) - import psb_z_coo_sparse_mat + import :: psb_z_coo_sparse_mat class(psb_z_coo_sparse_mat), intent(in) :: a integer, intent(in) :: idx integer :: res @@ -457,7 +457,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) - import psb_dpk_ + import :: psb_dpk_ integer, intent(in) :: nzin,dupl integer, intent(inout) :: ia(:), ja(:) complex(psb_dpk_), intent(inout) :: val(:) @@ -468,7 +468,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_fix_coo(a,info,idir) - import psb_z_coo_sparse_mat + import :: psb_z_coo_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a integer, intent(out) :: info integer, intent(in), optional :: idir @@ -477,7 +477,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_cp_coo_to_coo(a,b,info) - import psb_z_coo_sparse_mat + import :: psb_z_coo_sparse_mat class(psb_z_coo_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -486,7 +486,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_cp_coo_from_coo(a,b,info) - import psb_z_coo_sparse_mat + import :: psb_z_coo_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -495,7 +495,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_cp_coo_to_fmt(a,b,info) - import psb_z_coo_sparse_mat, psb_z_base_sparse_mat + import :: psb_z_coo_sparse_mat, psb_z_base_sparse_mat class(psb_z_coo_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -504,7 +504,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_cp_coo_from_fmt(a,b,info) - import psb_z_coo_sparse_mat, psb_z_base_sparse_mat + import :: psb_z_coo_sparse_mat, psb_z_base_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -513,7 +513,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_mv_coo_to_coo(a,b,info) - import psb_z_coo_sparse_mat + import :: psb_z_coo_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -522,7 +522,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_mv_coo_from_coo(a,b,info) - import psb_z_coo_sparse_mat + import :: psb_z_coo_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -531,7 +531,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_mv_coo_to_fmt(a,b,info) - import psb_z_coo_sparse_mat, psb_z_base_sparse_mat + import :: psb_z_coo_sparse_mat, psb_z_base_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -540,7 +540,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_mv_coo_from_fmt(a,b,info) - import psb_z_coo_sparse_mat, psb_z_base_sparse_mat + import :: psb_z_coo_sparse_mat, psb_z_base_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -549,7 +549,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_cp_from(a,b) - import psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(inout) :: a type(psb_z_coo_sparse_mat), intent(in) :: b end subroutine psb_z_coo_cp_from @@ -557,7 +557,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_mv_from(a,b) - import psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(inout) :: a type(psb_z_coo_sparse_mat), intent(inout) :: b end subroutine psb_z_coo_mv_from @@ -566,7 +566,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) integer, intent(in) :: nz,ia(:), ja(:),& @@ -579,7 +579,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -595,7 +595,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -611,7 +611,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_cssv(alpha,a,x,beta,y,info,trans) - import psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -619,7 +619,7 @@ module psb_z_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_coo_cssv subroutine psb_z_coo_cssm(alpha,a,x,beta,y,info,trans) - import psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -630,7 +630,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans) - import psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -638,7 +638,7 @@ module psb_z_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_coo_csmv subroutine psb_z_coo_csmm(alpha,a,x,beta,y,info,trans) - import psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -650,7 +650,7 @@ module psb_z_base_mat_mod interface function psb_z_coo_csnmi(a) result(res) - import psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_coo_csnmi @@ -658,7 +658,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_get_diag(a,d,info) - import psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer, intent(out) :: info @@ -667,7 +667,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_scal(d,a,info) - import psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer, intent(out) :: info @@ -676,7 +676,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_scals(d,a,info) - import psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer, intent(out) :: info diff --git a/base/modules/psb_z_csc_mat_mod.f03 b/base/modules/psb_z_csc_mat_mod.f03 index 14743b30..d9e0cfd6 100644 --- a/base/modules/psb_z_csc_mat_mod.f03 +++ b/base/modules/psb_z_csc_mat_mod.f03 @@ -51,7 +51,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_reallocate_nz(nz,a) - import psb_z_csc_sparse_mat + import :: psb_z_csc_sparse_mat integer, intent(in) :: nz class(psb_z_csc_sparse_mat), intent(inout) :: a end subroutine psb_z_csc_reallocate_nz @@ -59,7 +59,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_reinit(a,clear) - import psb_z_csc_sparse_mat + import :: psb_z_csc_sparse_mat class(psb_z_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_z_csc_reinit @@ -67,14 +67,14 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_trim(a) - import psb_z_csc_sparse_mat + import :: psb_z_csc_sparse_mat class(psb_z_csc_sparse_mat), intent(inout) :: a end subroutine psb_z_csc_trim end interface interface subroutine psb_z_csc_allocate_mnnz(m,n,a,nz) - import psb_z_csc_sparse_mat + import :: psb_z_csc_sparse_mat integer, intent(in) :: m,n class(psb_z_csc_sparse_mat), intent(inout) :: a integer, intent(in), optional :: nz @@ -83,7 +83,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_mold(a,b,info) - import psb_z_csc_sparse_mat, psb_z_base_sparse_mat, psb_long_int_k_ + import :: psb_z_csc_sparse_mat, psb_z_base_sparse_mat, psb_long_int_k_ class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(out), allocatable :: b integer, intent(out) :: info @@ -92,7 +92,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_print(iout,a,iv,eirs,eics,head,ivr,ivc) - import psb_z_csc_sparse_mat + import :: psb_z_csc_sparse_mat integer, intent(in) :: iout class(psb_z_csc_sparse_mat), intent(in) :: a integer, intent(in), optional :: iv(:) @@ -104,7 +104,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_cp_csc_to_coo(a,b,info) - import psb_z_coo_sparse_mat, psb_z_csc_sparse_mat + import :: psb_z_coo_sparse_mat, psb_z_csc_sparse_mat class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -113,7 +113,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_cp_csc_from_coo(a,b,info) - import psb_z_csc_sparse_mat, psb_z_coo_sparse_mat + import :: psb_z_csc_sparse_mat, psb_z_coo_sparse_mat class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -122,7 +122,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_cp_csc_to_fmt(a,b,info) - import psb_z_csc_sparse_mat, psb_z_base_sparse_mat + import :: psb_z_csc_sparse_mat, psb_z_base_sparse_mat class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -131,7 +131,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_cp_csc_from_fmt(a,b,info) - import psb_z_csc_sparse_mat, psb_z_base_sparse_mat + import :: psb_z_csc_sparse_mat, psb_z_base_sparse_mat class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -140,7 +140,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_mv_csc_to_coo(a,b,info) - import psb_z_csc_sparse_mat, psb_z_coo_sparse_mat + import :: psb_z_csc_sparse_mat, psb_z_coo_sparse_mat class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -149,7 +149,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_mv_csc_from_coo(a,b,info) - import psb_z_csc_sparse_mat, psb_z_coo_sparse_mat + import :: psb_z_csc_sparse_mat, psb_z_coo_sparse_mat class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -158,7 +158,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_mv_csc_to_fmt(a,b,info) - import psb_z_csc_sparse_mat, psb_z_base_sparse_mat + import :: psb_z_csc_sparse_mat, psb_z_base_sparse_mat class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -167,7 +167,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_mv_csc_from_fmt(a,b,info) - import psb_z_csc_sparse_mat, psb_z_base_sparse_mat + import :: psb_z_csc_sparse_mat, psb_z_base_sparse_mat class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -176,7 +176,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_cp_from(a,b) - import psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(inout) :: a type(psb_z_csc_sparse_mat), intent(in) :: b end subroutine psb_z_csc_cp_from @@ -184,7 +184,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_mv_from(a,b) - import psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(inout) :: a type(psb_z_csc_sparse_mat), intent(inout) :: b end subroutine psb_z_csc_mv_from @@ -193,7 +193,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) integer, intent(in) :: nz,ia(:), ja(:),& @@ -206,7 +206,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -222,7 +222,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -239,7 +239,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import psb_z_csc_sparse_mat, psb_dpk_, psb_z_coo_sparse_mat + import :: psb_z_csc_sparse_mat, psb_dpk_, psb_z_coo_sparse_mat class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer, intent(in) :: imin,imax @@ -253,7 +253,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_cssv(alpha,a,x,beta,y,info,trans) - import psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -261,7 +261,7 @@ module psb_z_csc_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_csc_cssv subroutine psb_z_csc_cssm(alpha,a,x,beta,y,info,trans) - import psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -272,7 +272,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_csmv(alpha,a,x,beta,y,info,trans) - import psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -280,7 +280,7 @@ module psb_z_csc_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_csc_csmv subroutine psb_z_csc_csmm(alpha,a,x,beta,y,info,trans) - import psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -292,7 +292,7 @@ module psb_z_csc_mat_mod interface function psb_z_csc_csnmi(a) result(res) - import psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_csc_csnmi @@ -300,7 +300,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_get_diag(a,d,info) - import psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer, intent(out) :: info @@ -309,7 +309,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_scal(d,a,info) - import psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer, intent(out) :: info @@ -318,7 +318,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_scals(d,a,info) - import psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer, intent(out) :: info diff --git a/base/modules/psb_z_csr_mat_mod.f03 b/base/modules/psb_z_csr_mat_mod.f03 index 1911f1d8..d2e0e3e5 100644 --- a/base/modules/psb_z_csr_mat_mod.f03 +++ b/base/modules/psb_z_csr_mat_mod.f03 @@ -51,7 +51,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_reallocate_nz(nz,a) - import psb_z_csr_sparse_mat + import :: psb_z_csr_sparse_mat integer, intent(in) :: nz class(psb_z_csr_sparse_mat), intent(inout) :: a end subroutine psb_z_csr_reallocate_nz @@ -59,7 +59,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_reinit(a,clear) - import psb_z_csr_sparse_mat + import :: psb_z_csr_sparse_mat class(psb_z_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_z_csr_reinit @@ -67,14 +67,14 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_trim(a) - import psb_z_csr_sparse_mat + import :: psb_z_csr_sparse_mat class(psb_z_csr_sparse_mat), intent(inout) :: a end subroutine psb_z_csr_trim end interface interface subroutine psb_z_csr_allocate_mnnz(m,n,a,nz) - import psb_z_csr_sparse_mat + import :: psb_z_csr_sparse_mat integer, intent(in) :: m,n class(psb_z_csr_sparse_mat), intent(inout) :: a integer, intent(in), optional :: nz @@ -83,7 +83,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_mold(a,b,info) - import psb_z_csr_sparse_mat, psb_z_base_sparse_mat, psb_long_int_k_ + import :: psb_z_csr_sparse_mat, psb_z_base_sparse_mat, psb_long_int_k_ class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(out), allocatable :: b integer, intent(out) :: info @@ -92,7 +92,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_print(iout,a,iv,eirs,eics,head,ivr,ivc) - import psb_z_csr_sparse_mat + import :: psb_z_csr_sparse_mat integer, intent(in) :: iout class(psb_z_csr_sparse_mat), intent(in) :: a integer, intent(in), optional :: iv(:) @@ -104,7 +104,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_cp_csr_to_coo(a,b,info) - import psb_z_coo_sparse_mat, psb_z_csr_sparse_mat + import :: psb_z_coo_sparse_mat, psb_z_csr_sparse_mat class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -113,7 +113,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_cp_csr_from_coo(a,b,info) - import psb_z_csr_sparse_mat, psb_z_coo_sparse_mat + import :: psb_z_csr_sparse_mat, psb_z_coo_sparse_mat class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -122,7 +122,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_cp_csr_to_fmt(a,b,info) - import psb_z_csr_sparse_mat, psb_z_base_sparse_mat + import :: psb_z_csr_sparse_mat, psb_z_base_sparse_mat class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -131,7 +131,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_cp_csr_from_fmt(a,b,info) - import psb_z_csr_sparse_mat, psb_z_base_sparse_mat + import :: psb_z_csr_sparse_mat, psb_z_base_sparse_mat class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -140,7 +140,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_mv_csr_to_coo(a,b,info) - import psb_z_csr_sparse_mat, psb_z_coo_sparse_mat + import :: psb_z_csr_sparse_mat, psb_z_coo_sparse_mat class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -149,7 +149,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_mv_csr_from_coo(a,b,info) - import psb_z_csr_sparse_mat, psb_z_coo_sparse_mat + import :: psb_z_csr_sparse_mat, psb_z_coo_sparse_mat class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -158,7 +158,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_mv_csr_to_fmt(a,b,info) - import psb_z_csr_sparse_mat, psb_z_base_sparse_mat + import :: psb_z_csr_sparse_mat, psb_z_base_sparse_mat class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -167,7 +167,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_mv_csr_from_fmt(a,b,info) - import psb_z_csr_sparse_mat, psb_z_base_sparse_mat + import :: psb_z_csr_sparse_mat, psb_z_base_sparse_mat class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -176,7 +176,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_cp_from(a,b) - import psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(inout) :: a type(psb_z_csr_sparse_mat), intent(in) :: b end subroutine psb_z_csr_cp_from @@ -184,7 +184,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_mv_from(a,b) - import psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(inout) :: a type(psb_z_csr_sparse_mat), intent(inout) :: b end subroutine psb_z_csr_mv_from @@ -193,7 +193,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) integer, intent(in) :: nz,ia(:), ja(:),& @@ -206,7 +206,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -222,7 +222,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -239,7 +239,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import psb_z_csr_sparse_mat, psb_dpk_, psb_z_coo_sparse_mat + import :: psb_z_csr_sparse_mat, psb_dpk_, psb_z_coo_sparse_mat class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer, intent(in) :: imin,imax @@ -253,7 +253,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_cssv(alpha,a,x,beta,y,info,trans) - import psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -261,7 +261,7 @@ module psb_z_csr_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_csr_cssv subroutine psb_z_csr_cssm(alpha,a,x,beta,y,info,trans) - import psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -272,7 +272,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_csmv(alpha,a,x,beta,y,info,trans) - import psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -280,7 +280,7 @@ module psb_z_csr_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_csr_csmv subroutine psb_z_csr_csmm(alpha,a,x,beta,y,info,trans) - import psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -292,7 +292,7 @@ module psb_z_csr_mat_mod interface function psb_z_csr_csnmi(a) result(res) - import psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_csr_csnmi @@ -300,7 +300,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_get_diag(a,d,info) - import psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer, intent(out) :: info @@ -309,7 +309,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_scal(d,a,info) - import psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer, intent(out) :: info @@ -318,7 +318,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_scals(d,a,info) - import psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer, intent(out) :: info diff --git a/base/modules/psb_z_linmap_mod.f90 b/base/modules/psb_z_linmap_mod.f90 index 469a02be..bd746963 100644 --- a/base/modules/psb_z_linmap_mod.f90 +++ b/base/modules/psb_z_linmap_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_z_mat_mod.f03 b/base/modules/psb_z_mat_mod.f03 index cb8ff928..f7df31c2 100644 --- a/base/modules/psb_z_mat_mod.f03 +++ b/base/modules/psb_z_mat_mod.f03 @@ -125,7 +125,7 @@ module psb_z_mat_mod interface subroutine psb_z_set_nrows(m,a) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a integer, intent(in) :: m end subroutine psb_z_set_nrows @@ -133,7 +133,7 @@ module psb_z_mat_mod interface subroutine psb_z_set_ncols(n,a) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a integer, intent(in) :: n end subroutine psb_z_set_ncols @@ -141,7 +141,7 @@ module psb_z_mat_mod interface subroutine psb_z_set_state(n,a) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a integer, intent(in) :: n end subroutine psb_z_set_state @@ -149,7 +149,7 @@ module psb_z_mat_mod interface subroutine psb_z_set_dupl(n,a) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a integer, intent(in) :: n end subroutine psb_z_set_dupl @@ -157,35 +157,35 @@ module psb_z_mat_mod interface subroutine psb_z_set_null(a) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a end subroutine psb_z_set_null end interface interface subroutine psb_z_set_bld(a) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a end subroutine psb_z_set_bld end interface interface subroutine psb_z_set_upd(a) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a end subroutine psb_z_set_upd end interface interface subroutine psb_z_set_asb(a) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a end subroutine psb_z_set_asb end interface interface subroutine psb_z_set_sorted(a,val) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_z_set_sorted @@ -193,7 +193,7 @@ module psb_z_mat_mod interface subroutine psb_z_set_triangle(a,val) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_z_set_triangle @@ -201,7 +201,7 @@ module psb_z_mat_mod interface subroutine psb_z_set_unit(a,val) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_z_set_unit @@ -209,7 +209,7 @@ module psb_z_mat_mod interface subroutine psb_z_set_lower(a,val) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_z_set_lower @@ -217,7 +217,7 @@ module psb_z_mat_mod interface subroutine psb_z_set_upper(a,val) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_z_set_upper @@ -226,7 +226,7 @@ module psb_z_mat_mod interface subroutine psb_z_sparse_print(iout,a,iv,eirs,eics,head,ivr,ivc) - import psb_z_sparse_mat + import :: psb_z_sparse_mat integer, intent(in) :: iout class(psb_z_sparse_mat), intent(in) :: a integer, intent(in), optional :: iv(:) @@ -238,7 +238,7 @@ module psb_z_mat_mod interface subroutine psb_z_get_neigh(a,idx,neigh,n,info,lev) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(in) :: a integer, intent(in) :: idx integer, intent(out) :: n @@ -250,7 +250,7 @@ module psb_z_mat_mod interface subroutine psb_z_csall(nr,nc,a,info,nz) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(out) :: a integer, intent(in) :: nr,nc integer, intent(out) :: info @@ -260,7 +260,7 @@ module psb_z_mat_mod interface subroutine psb_z_reallocate_nz(nz,a) - import psb_z_sparse_mat + import :: psb_z_sparse_mat integer, intent(in) :: nz class(psb_z_sparse_mat), intent(inout) :: a end subroutine psb_z_reallocate_nz @@ -268,21 +268,21 @@ module psb_z_mat_mod interface subroutine psb_z_free(a) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a end subroutine psb_z_free end interface interface subroutine psb_z_trim(a) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a end subroutine psb_z_trim end interface interface subroutine psb_z_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import psb_z_sparse_mat, psb_dpk_ + import :: psb_z_sparse_mat, psb_dpk_ class(psb_z_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -294,7 +294,7 @@ module psb_z_mat_mod interface subroutine psb_z_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_z_sparse_mat, psb_dpk_ + import :: psb_z_sparse_mat, psb_dpk_ class(psb_z_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -310,7 +310,7 @@ module psb_z_mat_mod interface subroutine psb_z_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import psb_z_sparse_mat, psb_dpk_ + import :: psb_z_sparse_mat, psb_dpk_ class(psb_z_sparse_mat), intent(in) :: a integer, intent(in) :: imin,imax integer, intent(out) :: nz @@ -327,7 +327,7 @@ module psb_z_mat_mod interface subroutine psb_z_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import psb_z_sparse_mat, psb_dpk_ + import :: psb_z_sparse_mat, psb_dpk_ class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(out) :: b integer, intent(in) :: imin,imax @@ -342,7 +342,7 @@ module psb_z_mat_mod interface subroutine psb_z_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import psb_z_sparse_mat, psb_dpk_ + import :: psb_z_sparse_mat, psb_dpk_ class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(out) :: b integer,intent(out) :: info @@ -354,7 +354,7 @@ module psb_z_mat_mod interface subroutine psb_z_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import psb_z_sparse_mat, psb_dpk_, psb_z_coo_sparse_mat + import :: psb_z_sparse_mat, psb_dpk_, psb_z_coo_sparse_mat class(psb_z_sparse_mat), intent(in) :: a type(psb_z_coo_sparse_mat), intent(out) :: b integer,intent(out) :: info @@ -365,7 +365,7 @@ module psb_z_mat_mod interface subroutine psb_z_cscnv(a,b,info,type,mold,upd,dupl) - import psb_z_sparse_mat, psb_dpk_, psb_z_base_sparse_mat + import :: psb_z_sparse_mat, psb_dpk_, psb_z_base_sparse_mat class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(out) :: b integer, intent(out) :: info @@ -378,7 +378,7 @@ module psb_z_mat_mod interface subroutine psb_z_cscnv_ip(a,iinfo,type,mold,dupl) - import psb_z_sparse_mat, psb_dpk_, psb_z_base_sparse_mat + import :: psb_z_sparse_mat, psb_dpk_, psb_z_base_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a integer, intent(out) :: iinfo integer,optional, intent(in) :: dupl @@ -390,7 +390,7 @@ module psb_z_mat_mod interface subroutine psb_z_cscnv_base(a,b,info,dupl) - import psb_z_sparse_mat, psb_dpk_, psb_z_base_sparse_mat + import :: psb_z_sparse_mat, psb_dpk_, psb_z_base_sparse_mat class(psb_z_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(out) :: b integer, intent(out) :: info @@ -400,7 +400,7 @@ module psb_z_mat_mod interface subroutine psb_z_clip_d(a,b,info) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(out) :: b integer,intent(out) :: info @@ -409,7 +409,7 @@ module psb_z_mat_mod interface subroutine psb_z_clip_d_ip(a,info) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a integer,intent(out) :: info end subroutine psb_z_clip_d_ip @@ -417,7 +417,7 @@ module psb_z_mat_mod interface subroutine psb_z_mv_from(a,b) - import psb_z_sparse_mat, psb_dpk_, psb_z_base_sparse_mat + import :: psb_z_sparse_mat, psb_dpk_, psb_z_base_sparse_mat class(psb_z_sparse_mat), intent(out) :: a class(psb_z_base_sparse_mat), intent(inout) :: b end subroutine psb_z_mv_from @@ -425,7 +425,7 @@ module psb_z_mat_mod interface subroutine psb_z_cp_from(a,b) - import psb_z_sparse_mat, psb_dpk_, psb_z_base_sparse_mat + import :: psb_z_sparse_mat, psb_dpk_, psb_z_base_sparse_mat class(psb_z_sparse_mat), intent(out) :: a class(psb_z_base_sparse_mat), intent(inout), allocatable :: b end subroutine psb_z_cp_from @@ -433,7 +433,7 @@ module psb_z_mat_mod interface subroutine psb_z_mv_to(a,b) - import psb_z_sparse_mat, psb_dpk_, psb_z_base_sparse_mat + import :: psb_z_sparse_mat, psb_dpk_, psb_z_base_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(out) :: b end subroutine psb_z_mv_to @@ -441,7 +441,7 @@ module psb_z_mat_mod interface subroutine psb_z_cp_to(a,b) - import psb_z_sparse_mat, psb_dpk_, psb_z_base_sparse_mat + import :: psb_z_sparse_mat, psb_dpk_, psb_z_base_sparse_mat class(psb_z_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(out) :: b end subroutine psb_z_cp_to @@ -449,7 +449,7 @@ module psb_z_mat_mod interface psb_move_alloc subroutine psb_z_sparse_mat_move(a,b,info) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a class(psb_z_sparse_mat), intent(out) :: b integer, intent(out) :: info @@ -459,7 +459,7 @@ module psb_z_mat_mod interface psb_clone subroutine psb_z_sparse_mat_clone(a,b,info) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(in) :: a class(psb_z_sparse_mat), intent(out) :: b integer, intent(out) :: info @@ -468,14 +468,14 @@ module psb_z_mat_mod interface subroutine psb_z_transp_1mat(a) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a end subroutine psb_z_transp_1mat end interface interface subroutine psb_z_transp_2mat(a,b) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(out) :: a class(psb_z_sparse_mat), intent(in) :: b end subroutine psb_z_transp_2mat @@ -483,14 +483,14 @@ module psb_z_mat_mod interface subroutine psb_z_transc_1mat(a) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a end subroutine psb_z_transc_1mat end interface interface subroutine psb_z_transc_2mat(a,b) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(out) :: a class(psb_z_sparse_mat), intent(in) :: b end subroutine psb_z_transc_2mat @@ -498,7 +498,7 @@ module psb_z_mat_mod interface subroutine psb_z_reinit(a,clear) - import psb_z_sparse_mat + import :: psb_z_sparse_mat class(psb_z_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_z_reinit @@ -522,7 +522,7 @@ module psb_z_mat_mod interface psb_csmm subroutine psb_z_csmm(alpha,a,x,beta,y,info,trans) - import psb_z_sparse_mat, psb_dpk_ + import :: psb_z_sparse_mat, psb_dpk_ class(psb_z_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -530,7 +530,7 @@ module psb_z_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_csmm subroutine psb_z_csmv(alpha,a,x,beta,y,info,trans) - import psb_z_sparse_mat, psb_dpk_ + import :: psb_z_sparse_mat, psb_dpk_ class(psb_z_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -541,7 +541,7 @@ module psb_z_mat_mod interface psb_cssm subroutine psb_z_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import psb_z_sparse_mat, psb_dpk_ + import :: psb_z_sparse_mat, psb_dpk_ class(psb_z_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -550,7 +550,7 @@ module psb_z_mat_mod complex(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_z_cssm subroutine psb_z_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import psb_z_sparse_mat, psb_dpk_ + import :: psb_z_sparse_mat, psb_dpk_ class(psb_z_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -562,7 +562,7 @@ module psb_z_mat_mod interface function psb_z_csnmi(a) result(res) - import psb_z_sparse_mat, psb_dpk_ + import :: psb_z_sparse_mat, psb_dpk_ class(psb_z_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_csnmi @@ -570,7 +570,7 @@ module psb_z_mat_mod interface subroutine psb_z_get_diag(a,d,info) - import psb_z_sparse_mat, psb_dpk_ + import :: psb_z_sparse_mat, psb_dpk_ class(psb_z_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer, intent(out) :: info @@ -579,13 +579,13 @@ module psb_z_mat_mod interface psb_scal subroutine psb_z_scal(d,a,info) - import psb_z_sparse_mat, psb_dpk_ + import :: psb_z_sparse_mat, psb_dpk_ class(psb_z_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer, intent(out) :: info end subroutine psb_z_scal subroutine psb_z_scals(d,a,info) - import psb_z_sparse_mat, psb_dpk_ + import :: psb_z_sparse_mat, psb_dpk_ class(psb_z_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer, intent(out) :: info diff --git a/base/modules/psb_z_psblas_mod.f90 b/base/modules/psb_z_psblas_mod.f90 index b5848f09..b0d60dec 100644 --- a/base/modules/psb_z_psblas_mod.f90 +++ b/base/modules/psb_z_psblas_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psb_z_tools_mod.f90 b/base/modules/psb_z_tools_mod.f90 index fa3c80cf..e48a3a5a 100644 --- a/base/modules/psb_z_tools_mod.f90 +++ b/base/modules/psb_z_tools_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psi_mod.f90 b/base/modules/psi_mod.f90 index 03132885..4b8a0733 100644 --- a/base/modules/psi_mod.f90 +++ b/base/modules/psi_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/modules/psi_serial_mod.f90 b/base/modules/psi_serial_mod.f90 index 27a8cd51..e6dcb4e7 100644 --- a/base/modules/psi_serial_mod.f90 +++ b/base/modules/psi_serial_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_camax.f90 b/base/psblas/psb_camax.f90 index 20816222..9bdd64b7 100644 --- a/base/psblas/psb_camax.f90 +++ b/base/psblas/psb_camax.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -134,7 +134,7 @@ end function psb_camax !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -258,7 +258,7 @@ end function psb_camaxv !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -386,7 +386,7 @@ end subroutine psb_camaxvs !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_casum.f90 b/base/psblas/psb_casum.f90 index b796fc55..bc7fbaba 100644 --- a/base/psblas/psb_casum.f90 +++ b/base/psblas/psb_casum.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -146,7 +146,7 @@ end function psb_casum !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -282,7 +282,7 @@ end function psb_casumv !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_caxpby.f90 b/base/psblas/psb_caxpby.f90 index 0894addc..d3deabcf 100644 --- a/base/psblas/psb_caxpby.f90 +++ b/base/psblas/psb_caxpby.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -157,7 +157,7 @@ end subroutine psb_caxpby !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_cdot.f90 b/base/psblas/psb_cdot.f90 index df5c5121..f75344f9 100644 --- a/base/psblas/psb_cdot.f90 +++ b/base/psblas/psb_cdot.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -157,7 +157,7 @@ end function psb_cdot !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -290,7 +290,7 @@ end function psb_cdotv !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -422,7 +422,7 @@ end subroutine psb_cdotvs !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_cnrm2.f90 b/base/psblas/psb_cnrm2.f90 index f5afcfb2..7ffcada5 100644 --- a/base/psblas/psb_cnrm2.f90 +++ b/base/psblas/psb_cnrm2.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -141,7 +141,7 @@ end function psb_cnrm2 !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -273,7 +273,7 @@ end function psb_cnrm2v !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_cnrmi.f90 b/base/psblas/psb_cnrmi.f90 index 562c892d..a389ab5e 100644 --- a/base/psblas/psb_cnrmi.f90 +++ b/base/psblas/psb_cnrmi.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_cspmm.f90 b/base/psblas/psb_cspmm.f90 index 7be17675..dc68602e 100644 --- a/base/psblas/psb_cspmm.f90 +++ b/base/psblas/psb_cspmm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -362,7 +362,7 @@ end subroutine psb_cspmm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_cspsm.f90 b/base/psblas/psb_cspsm.f90 index b1c9ec33..ffe17b67 100644 --- a/base/psblas/psb_cspsm.f90 +++ b/base/psblas/psb_cspsm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -288,7 +288,7 @@ end subroutine psb_cspsm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_damax.f90 b/base/psblas/psb_damax.f90 index 1c98db1f..7ebe98bf 100644 --- a/base/psblas/psb_damax.f90 +++ b/base/psblas/psb_damax.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -134,7 +134,7 @@ end function psb_damax !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -256,7 +256,7 @@ end function psb_damaxv !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -379,7 +379,7 @@ end subroutine psb_damaxvs !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_dasum.f90 b/base/psblas/psb_dasum.f90 index 17f8707c..bd724842 100644 --- a/base/psblas/psb_dasum.f90 +++ b/base/psblas/psb_dasum.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -148,7 +148,7 @@ end function psb_dasum !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -284,7 +284,7 @@ end function psb_dasumv !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_daxpby.f90 b/base/psblas/psb_daxpby.f90 index a86cf69e..68d28990 100644 --- a/base/psblas/psb_daxpby.f90 +++ b/base/psblas/psb_daxpby.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -157,7 +157,7 @@ end subroutine psb_daxpby !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_ddot.f90 b/base/psblas/psb_ddot.f90 index d1dad7ad..ad74c205 100644 --- a/base/psblas/psb_ddot.f90 +++ b/base/psblas/psb_ddot.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -160,7 +160,7 @@ end function psb_ddot !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -297,7 +297,7 @@ end function psb_ddotv !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -429,7 +429,7 @@ end subroutine psb_ddotvs !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_dnrm2.f90 b/base/psblas/psb_dnrm2.f90 index a4e06f63..4768c942 100644 --- a/base/psblas/psb_dnrm2.f90 +++ b/base/psblas/psb_dnrm2.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -140,7 +140,7 @@ end function psb_dnrm2 !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -271,7 +271,7 @@ end function psb_dnrm2v !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_dnrmi.f90 b/base/psblas/psb_dnrmi.f90 index b3814830..893bf6ae 100644 --- a/base/psblas/psb_dnrmi.f90 +++ b/base/psblas/psb_dnrmi.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_dspmm.f90 b/base/psblas/psb_dspmm.f90 index 1d37fcd3..07a845b3 100644 --- a/base/psblas/psb_dspmm.f90 +++ b/base/psblas/psb_dspmm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -362,7 +362,7 @@ end subroutine psb_dspmm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_dspnrm1.f90 b/base/psblas/psb_dspnrm1.f90 index af88b705..ccfea27e 100644 --- a/base/psblas/psb_dspnrm1.f90 +++ b/base/psblas/psb_dspnrm1.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_dspsm.f90 b/base/psblas/psb_dspsm.f90 index bfee48d8..9aff8a71 100644 --- a/base/psblas/psb_dspsm.f90 +++ b/base/psblas/psb_dspsm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -289,7 +289,7 @@ end subroutine psb_dspsm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_samax.f90 b/base/psblas/psb_samax.f90 index e99e1c0c..3a631fb4 100644 --- a/base/psblas/psb_samax.f90 +++ b/base/psblas/psb_samax.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -134,7 +134,7 @@ end function psb_samax !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -256,7 +256,7 @@ end function psb_samaxv !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -379,7 +379,7 @@ end subroutine psb_samaxvs !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_sasum.f90 b/base/psblas/psb_sasum.f90 index 8cebe665..f25f3e6c 100644 --- a/base/psblas/psb_sasum.f90 +++ b/base/psblas/psb_sasum.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -148,7 +148,7 @@ end function psb_sasum !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -284,7 +284,7 @@ end function psb_sasumv !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_saxpby.f90 b/base/psblas/psb_saxpby.f90 index fc5eb8cd..4ac293c0 100644 --- a/base/psblas/psb_saxpby.f90 +++ b/base/psblas/psb_saxpby.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -157,7 +157,7 @@ end subroutine psb_saxpby !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_sdot.f90 b/base/psblas/psb_sdot.f90 index 787de090..275dcdb8 100644 --- a/base/psblas/psb_sdot.f90 +++ b/base/psblas/psb_sdot.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -160,7 +160,7 @@ end function psb_sdot !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -296,7 +296,7 @@ end function psb_sdotv !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -428,7 +428,7 @@ end subroutine psb_sdotvs !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_snrm2.f90 b/base/psblas/psb_snrm2.f90 index 99ca0511..01f3f81c 100644 --- a/base/psblas/psb_snrm2.f90 +++ b/base/psblas/psb_snrm2.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -140,7 +140,7 @@ end function psb_snrm2 !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -271,7 +271,7 @@ end function psb_snrm2v !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_snrmi.f90 b/base/psblas/psb_snrmi.f90 index 6d1018c6..827b6fa1 100644 --- a/base/psblas/psb_snrmi.f90 +++ b/base/psblas/psb_snrmi.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_sspmm.f90 b/base/psblas/psb_sspmm.f90 index 0858cb07..d3e20355 100644 --- a/base/psblas/psb_sspmm.f90 +++ b/base/psblas/psb_sspmm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -362,7 +362,7 @@ end subroutine psb_sspmm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_sspsm.f90 b/base/psblas/psb_sspsm.f90 index 2b01eda0..f627d0f0 100644 --- a/base/psblas/psb_sspsm.f90 +++ b/base/psblas/psb_sspsm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -289,7 +289,7 @@ end subroutine psb_sspsm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_sxdot.f90 b/base/psblas/psb_sxdot.f90 index 0ab2adc3..0f37fd7c 100644 --- a/base/psblas/psb_sxdot.f90 +++ b/base/psblas/psb_sxdot.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -160,7 +160,7 @@ end function psb_sxdot !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -317,7 +317,7 @@ end function sxdot !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -449,7 +449,7 @@ end subroutine psb_sxdotvs !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_zamax.f90 b/base/psblas/psb_zamax.f90 index 7b30e06d..aba9ebe8 100644 --- a/base/psblas/psb_zamax.f90 +++ b/base/psblas/psb_zamax.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -137,7 +137,7 @@ end function psb_zamax !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -264,7 +264,7 @@ end function psb_zamaxv !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -391,7 +391,7 @@ end subroutine psb_zamaxvs !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_zasum.f90 b/base/psblas/psb_zasum.f90 index 236d4abc..e9bb558f 100644 --- a/base/psblas/psb_zasum.f90 +++ b/base/psblas/psb_zasum.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -152,7 +152,7 @@ end function psb_zasum !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -294,7 +294,7 @@ end function psb_zasumv !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_zaxpby.f90 b/base/psblas/psb_zaxpby.f90 index 73658aea..3a515b1f 100644 --- a/base/psblas/psb_zaxpby.f90 +++ b/base/psblas/psb_zaxpby.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -156,7 +156,7 @@ end subroutine psb_zaxpby !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_zdot.f90 b/base/psblas/psb_zdot.f90 index e3c4e389..b4a8c278 100644 --- a/base/psblas/psb_zdot.f90 +++ b/base/psblas/psb_zdot.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -160,7 +160,7 @@ end function psb_zdot !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -296,7 +296,7 @@ end function psb_zdotv !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -428,7 +428,7 @@ end subroutine psb_zdotvs !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_znrm2.f90 b/base/psblas/psb_znrm2.f90 index b0269ade..a7396192 100644 --- a/base/psblas/psb_znrm2.f90 +++ b/base/psblas/psb_znrm2.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -141,7 +141,7 @@ end function psb_znrm2 !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -273,7 +273,7 @@ end function psb_znrm2v !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_znrmi.f90 b/base/psblas/psb_znrmi.f90 index 56a6611b..e5c03c51 100644 --- a/base/psblas/psb_znrmi.f90 +++ b/base/psblas/psb_znrmi.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_zspmm.f90 b/base/psblas/psb_zspmm.f90 index a6cee9d1..1bd731d5 100644 --- a/base/psblas/psb_zspmm.f90 +++ b/base/psblas/psb_zspmm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -362,7 +362,7 @@ end subroutine psb_zspmm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/psblas/psb_zspsm.f90 b/base/psblas/psb_zspsm.f90 index 8a3db6b9..488c705e 100644 --- a/base/psblas/psb_zspsm.f90 +++ b/base/psblas/psb_zspsm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -288,7 +288,7 @@ end subroutine psb_zspsm !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/cacmp_mod.f90 b/base/serial/aux/cacmp_mod.f90 index ad55713d..9c72cd5d 100644 --- a/base/serial/aux/cacmp_mod.f90 +++ b/base/serial/aux/cacmp_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/calcmp_mod.f90 b/base/serial/aux/calcmp_mod.f90 index 25c23b63..8498b4bb 100644 --- a/base/serial/aux/calcmp_mod.f90 +++ b/base/serial/aux/calcmp_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/calsr.f90 b/base/serial/aux/calsr.f90 index 582473e7..607e1c9a 100644 --- a/base/serial/aux/calsr.f90 +++ b/base/serial/aux/calsr.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/calsrx.f90 b/base/serial/aux/calsrx.f90 index 7bedd349..52c8f057 100644 --- a/base/serial/aux/calsrx.f90 +++ b/base/serial/aux/calsrx.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/camsort_dw.f90 b/base/serial/aux/camsort_dw.f90 index 6e5a96b5..92e52b81 100644 --- a/base/serial/aux/camsort_dw.f90 +++ b/base/serial/aux/camsort_dw.f90 @@ -1,6 +1,7 @@ ! ! Parallel Sparse BLAS version 3.0 -! (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata +! (C) Copyright 2006, 2007, 2008, 2009, 2010 +! Salvatore Filippone University of Rome Tor Vergata ! Alfredo Buttari CNRS-IRIT, Toulouse ! ! Redistribution and use in source and binary forms, with or without diff --git a/base/serial/aux/camsort_up.f90 b/base/serial/aux/camsort_up.f90 index 23cd41eb..798867e1 100644 --- a/base/serial/aux/camsort_up.f90 +++ b/base/serial/aux/camsort_up.f90 @@ -1,6 +1,7 @@ ! ! Parallel Sparse BLAS version 3.0 -! (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata +! (C) Copyright 2006, 2007, 2008, 2009, 2010 +! Salvatore Filippone University of Rome Tor Vergata ! Alfredo Buttari CNRS-IRIT, Toulouse ! ! Redistribution and use in source and binary forms, with or without diff --git a/base/serial/aux/camsr.f90 b/base/serial/aux/camsr.f90 index 815c8e6a..82a90b38 100644 --- a/base/serial/aux/camsr.f90 +++ b/base/serial/aux/camsr.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/camsrx.f90 b/base/serial/aux/camsrx.f90 index 0d65ecff..edb53f40 100644 --- a/base/serial/aux/camsrx.f90 +++ b/base/serial/aux/camsrx.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/casr.f90 b/base/serial/aux/casr.f90 index cb18b0d9..4efdeb53 100644 --- a/base/serial/aux/casr.f90 +++ b/base/serial/aux/casr.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/casrx.f90 b/base/serial/aux/casrx.f90 index d1cead0d..88b92c8c 100644 --- a/base/serial/aux/casrx.f90 +++ b/base/serial/aux/casrx.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/clcmp_mod.f90 b/base/serial/aux/clcmp_mod.f90 index 0c3ac0f9..cc336137 100644 --- a/base/serial/aux/clcmp_mod.f90 +++ b/base/serial/aux/clcmp_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/clsr.f90 b/base/serial/aux/clsr.f90 index 969f0445..0f781805 100644 --- a/base/serial/aux/clsr.f90 +++ b/base/serial/aux/clsr.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/clsrx.f90 b/base/serial/aux/clsrx.f90 index dfbaea06..648fbafd 100644 --- a/base/serial/aux/clsrx.f90 +++ b/base/serial/aux/clsrx.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/dasr.f90 b/base/serial/aux/dasr.f90 index 7b38aa43..9060a4a8 100644 --- a/base/serial/aux/dasr.f90 +++ b/base/serial/aux/dasr.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/dasrx.f90 b/base/serial/aux/dasrx.f90 index 32763961..2fa37cd7 100644 --- a/base/serial/aux/dasrx.f90 +++ b/base/serial/aux/dasrx.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/dmsort_dw.f90 b/base/serial/aux/dmsort_dw.f90 index 7e7db568..4d741149 100644 --- a/base/serial/aux/dmsort_dw.f90 +++ b/base/serial/aux/dmsort_dw.f90 @@ -1,6 +1,7 @@ ! ! Parallel Sparse BLAS version 3.0 -! (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata +! (C) Copyright 2006, 2007, 2008, 2009, 2010 +! Salvatore Filippone University of Rome Tor Vergata ! Alfredo Buttari CNRS-IRIT, Toulouse ! ! Redistribution and use in source and binary forms, with or without diff --git a/base/serial/aux/dmsort_up.f90 b/base/serial/aux/dmsort_up.f90 index e30064e0..8a080072 100644 --- a/base/serial/aux/dmsort_up.f90 +++ b/base/serial/aux/dmsort_up.f90 @@ -1,6 +1,7 @@ ! ! Parallel Sparse BLAS version 3.0 -! (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata +! (C) Copyright 2006, 2007, 2008, 2009, 2010 +! Salvatore Filippone University of Rome Tor Vergata ! Alfredo Buttari CNRS-IRIT, Toulouse ! ! Redistribution and use in source and binary forms, with or without diff --git a/base/serial/aux/dmsr.f90 b/base/serial/aux/dmsr.f90 index c109941e..9cca22c5 100644 --- a/base/serial/aux/dmsr.f90 +++ b/base/serial/aux/dmsr.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/dmsrx.f90 b/base/serial/aux/dmsrx.f90 index eaa3ecbf..f4eff016 100644 --- a/base/serial/aux/dmsrx.f90 +++ b/base/serial/aux/dmsrx.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/dsr.f90 b/base/serial/aux/dsr.f90 index f6c704db..0e01752c 100644 --- a/base/serial/aux/dsr.f90 +++ b/base/serial/aux/dsr.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/dsrx.f90 b/base/serial/aux/dsrx.f90 index 28952c00..86405442 100644 --- a/base/serial/aux/dsrx.f90 +++ b/base/serial/aux/dsrx.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/iasr.f90 b/base/serial/aux/iasr.f90 index 17b8f095..347a032c 100644 --- a/base/serial/aux/iasr.f90 +++ b/base/serial/aux/iasr.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/iasrx.f90 b/base/serial/aux/iasrx.f90 index 5cceb989..5f116753 100644 --- a/base/serial/aux/iasrx.f90 +++ b/base/serial/aux/iasrx.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/ibsrch.f b/base/serial/aux/ibsrch.f index 2a76a48b..3f089252 100644 --- a/base/serial/aux/ibsrch.f +++ b/base/serial/aux/ibsrch.f @@ -1,6 +1,6 @@ C C Parallel Sparse BLAS version 3.0 -C (C) Copyright 2010 +C (C) Copyright 2006, 2007, 2008, 2009, 2010 C Salvatore Filippone University of Rome Tor Vergata C Alfredo Buttari CNRS-IRIT, Toulouse C diff --git a/base/serial/aux/imsr.f90 b/base/serial/aux/imsr.f90 index 4e840ebb..2da2c1e3 100644 --- a/base/serial/aux/imsr.f90 +++ b/base/serial/aux/imsr.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/imsru.f90 b/base/serial/aux/imsru.f90 index b45a44ca..3464a08b 100644 --- a/base/serial/aux/imsru.f90 +++ b/base/serial/aux/imsru.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/imsrx.f90 b/base/serial/aux/imsrx.f90 index 6bf68eda..3f7504f8 100644 --- a/base/serial/aux/imsrx.f90 +++ b/base/serial/aux/imsrx.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/isaperm.f b/base/serial/aux/isaperm.f index f904b7d1..3cdd2938 100644 --- a/base/serial/aux/isaperm.f +++ b/base/serial/aux/isaperm.f @@ -1,6 +1,6 @@ C C Parallel Sparse BLAS version 3.0 -C (C) Copyright 2010 +C (C) Copyright 2006, 2007, 2008, 2009, 2010 C Salvatore Filippone University of Rome Tor Vergata C Alfredo Buttari CNRS-IRIT, Toulouse C diff --git a/base/serial/aux/isr.f90 b/base/serial/aux/isr.f90 index 96b89bc0..625d0aaa 100644 --- a/base/serial/aux/isr.f90 +++ b/base/serial/aux/isr.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/isrx.f90 b/base/serial/aux/isrx.f90 index a06773bb..baa2e2e1 100644 --- a/base/serial/aux/isrx.f90 +++ b/base/serial/aux/isrx.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/issrch.f b/base/serial/aux/issrch.f index a038b752..c6b5abf5 100644 --- a/base/serial/aux/issrch.f +++ b/base/serial/aux/issrch.f @@ -1,6 +1,6 @@ C C Parallel Sparse BLAS version 3.0 -C (C) Copyright 2010 +C (C) Copyright 2006, 2007, 2008, 2009, 2010 C Salvatore Filippone University of Rome Tor Vergata C Alfredo Buttari CNRS-IRIT, Toulouse C diff --git a/base/serial/aux/msort_dw.f90 b/base/serial/aux/msort_dw.f90 index a25d7071..8d84b346 100644 --- a/base/serial/aux/msort_dw.f90 +++ b/base/serial/aux/msort_dw.f90 @@ -1,6 +1,7 @@ ! ! Parallel Sparse BLAS version 3.0 -! (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata +! (C) Copyright 2006, 2007, 2008, 2009, 2010 +! Salvatore Filippone University of Rome Tor Vergata ! Alfredo Buttari CNRS-IRIT, Toulouse ! ! Redistribution and use in source and binary forms, with or without diff --git a/base/serial/aux/msort_up.f90 b/base/serial/aux/msort_up.f90 index f93d3847..33248727 100644 --- a/base/serial/aux/msort_up.f90 +++ b/base/serial/aux/msort_up.f90 @@ -1,6 +1,7 @@ ! ! Parallel Sparse BLAS version 3.0 -! (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata +! (C) Copyright 2006, 2007, 2008, 2009, 2010 +! Salvatore Filippone University of Rome Tor Vergata ! Alfredo Buttari CNRS-IRIT, Toulouse ! ! Redistribution and use in source and binary forms, with or without diff --git a/base/serial/aux/sasr.f90 b/base/serial/aux/sasr.f90 index 6db24107..dad10693 100644 --- a/base/serial/aux/sasr.f90 +++ b/base/serial/aux/sasr.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/sasrx.f90 b/base/serial/aux/sasrx.f90 index 4625f17b..ac7488e1 100644 --- a/base/serial/aux/sasrx.f90 +++ b/base/serial/aux/sasrx.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/smsort_dw.f90 b/base/serial/aux/smsort_dw.f90 index c1e88526..b72b765c 100644 --- a/base/serial/aux/smsort_dw.f90 +++ b/base/serial/aux/smsort_dw.f90 @@ -1,6 +1,7 @@ ! ! Parallel Sparse BLAS version 3.0 -! (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata +! (C) Copyright 2006, 2007, 2008, 2009, 2010 +! Salvatore Filippone University of Rome Tor Vergata ! Alfredo Buttari CNRS-IRIT, Toulouse ! ! Redistribution and use in source and binary forms, with or without diff --git a/base/serial/aux/smsort_up.f90 b/base/serial/aux/smsort_up.f90 index 186d0da7..0c94e093 100644 --- a/base/serial/aux/smsort_up.f90 +++ b/base/serial/aux/smsort_up.f90 @@ -1,6 +1,7 @@ ! ! Parallel Sparse BLAS version 3.0 -! (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata +! (C) Copyright 2006, 2007, 2008, 2009, 2010 +! Salvatore Filippone University of Rome Tor Vergata ! Alfredo Buttari CNRS-IRIT, Toulouse ! ! Redistribution and use in source and binary forms, with or without diff --git a/base/serial/aux/smsr.f90 b/base/serial/aux/smsr.f90 index 51737e95..690226ed 100644 --- a/base/serial/aux/smsr.f90 +++ b/base/serial/aux/smsr.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/smsrx.f90 b/base/serial/aux/smsrx.f90 index 7ce60809..4b46c585 100644 --- a/base/serial/aux/smsrx.f90 +++ b/base/serial/aux/smsrx.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/ssr.f90 b/base/serial/aux/ssr.f90 index 94d59dd8..4c299bf9 100644 --- a/base/serial/aux/ssr.f90 +++ b/base/serial/aux/ssr.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/ssrx.f90 b/base/serial/aux/ssrx.f90 index 85410d7b..b2178b51 100644 --- a/base/serial/aux/ssrx.f90 +++ b/base/serial/aux/ssrx.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/zacmp_mod.f90 b/base/serial/aux/zacmp_mod.f90 index fe3e3941..510ef340 100644 --- a/base/serial/aux/zacmp_mod.f90 +++ b/base/serial/aux/zacmp_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/zalcmp_mod.f90 b/base/serial/aux/zalcmp_mod.f90 index 1a1203a1..af99fb20 100644 --- a/base/serial/aux/zalcmp_mod.f90 +++ b/base/serial/aux/zalcmp_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/zalsr.f90 b/base/serial/aux/zalsr.f90 index 891d6feb..715539a6 100644 --- a/base/serial/aux/zalsr.f90 +++ b/base/serial/aux/zalsr.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/zalsrx.f90 b/base/serial/aux/zalsrx.f90 index f3e40b61..ba5f9763 100644 --- a/base/serial/aux/zalsrx.f90 +++ b/base/serial/aux/zalsrx.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/zamsort_dw.f90 b/base/serial/aux/zamsort_dw.f90 index 63540392..4a207533 100644 --- a/base/serial/aux/zamsort_dw.f90 +++ b/base/serial/aux/zamsort_dw.f90 @@ -1,6 +1,7 @@ ! ! Parallel Sparse BLAS version 3.0 -! (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata +! (C) Copyright 2006, 2007, 2008, 2009, 2010 +! Salvatore Filippone University of Rome Tor Vergata ! Alfredo Buttari CNRS-IRIT, Toulouse ! ! Redistribution and use in source and binary forms, with or without diff --git a/base/serial/aux/zamsort_up.f90 b/base/serial/aux/zamsort_up.f90 index a7e45496..6dda56b8 100644 --- a/base/serial/aux/zamsort_up.f90 +++ b/base/serial/aux/zamsort_up.f90 @@ -1,6 +1,7 @@ ! ! Parallel Sparse BLAS version 3.0 -! (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata +! (C) Copyright 2006, 2007, 2008, 2009, 2010 +! Salvatore Filippone University of Rome Tor Vergata ! Alfredo Buttari CNRS-IRIT, Toulouse ! ! Redistribution and use in source and binary forms, with or without diff --git a/base/serial/aux/zamsr.f90 b/base/serial/aux/zamsr.f90 index 18a3918b..3f62f20d 100644 --- a/base/serial/aux/zamsr.f90 +++ b/base/serial/aux/zamsr.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/zamsrx.f90 b/base/serial/aux/zamsrx.f90 index 467fe2f0..ad320a70 100644 --- a/base/serial/aux/zamsrx.f90 +++ b/base/serial/aux/zamsrx.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/zasr.f90 b/base/serial/aux/zasr.f90 index df28cab3..95a05b1e 100644 --- a/base/serial/aux/zasr.f90 +++ b/base/serial/aux/zasr.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/zasrx.f90 b/base/serial/aux/zasrx.f90 index ecca6885..ed871f0c 100644 --- a/base/serial/aux/zasrx.f90 +++ b/base/serial/aux/zasrx.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/zlcmp_mod.f90 b/base/serial/aux/zlcmp_mod.f90 index 82859f24..590aa753 100644 --- a/base/serial/aux/zlcmp_mod.f90 +++ b/base/serial/aux/zlcmp_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/zlsr.f90 b/base/serial/aux/zlsr.f90 index 582f5b43..e579f38f 100644 --- a/base/serial/aux/zlsr.f90 +++ b/base/serial/aux/zlsr.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/aux/zlsrx.f90 b/base/serial/aux/zlsrx.f90 index f9077aef..197e22a7 100644 --- a/base/serial/aux/zlsrx.f90 +++ b/base/serial/aux/zlsrx.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/f77/caxpby.f b/base/serial/f77/caxpby.f index d5138e92..60ae264e 100644 --- a/base/serial/f77/caxpby.f +++ b/base/serial/f77/caxpby.f @@ -1,6 +1,6 @@ C C Parallel Sparse BLAS version 3.0 -C (C) Copyright 2010 +C (C) Copyright 2006, 2007, 2008, 2009, 2010 C Salvatore Filippone University of Rome Tor Vergata C Alfredo Buttari CNRS-IRIT, Toulouse C diff --git a/base/serial/f77/daxpby.f b/base/serial/f77/daxpby.f index b6cdca08..5d5131b8 100644 --- a/base/serial/f77/daxpby.f +++ b/base/serial/f77/daxpby.f @@ -1,6 +1,6 @@ C C Parallel Sparse BLAS version 3.0 -C (C) Copyright 2010 +C (C) Copyright 2006, 2007, 2008, 2009, 2010 C Salvatore Filippone University of Rome Tor Vergata C Alfredo Buttari CNRS-IRIT, Toulouse C diff --git a/base/serial/f77/saxpby.f b/base/serial/f77/saxpby.f index 15c6e9c3..2ad0345d 100644 --- a/base/serial/f77/saxpby.f +++ b/base/serial/f77/saxpby.f @@ -1,6 +1,6 @@ C C Parallel Sparse BLAS version 3.0 -C (C) Copyright 2010 +C (C) Copyright 2006, 2007, 2008, 2009, 2010 C Salvatore Filippone University of Rome Tor Vergata C Alfredo Buttari CNRS-IRIT, Toulouse C diff --git a/base/serial/f77/zaxpby.f b/base/serial/f77/zaxpby.f index b2b723fd..0d286e22 100644 --- a/base/serial/f77/zaxpby.f +++ b/base/serial/f77/zaxpby.f @@ -1,6 +1,6 @@ C C Parallel Sparse BLAS version 3.0 -C (C) Copyright 2010 +C (C) Copyright 2006, 2007, 2008, 2009, 2010 C Salvatore Filippone University of Rome Tor Vergata C Alfredo Buttari CNRS-IRIT, Toulouse C diff --git a/base/serial/psb_cnumbmm.f90 b/base/serial/psb_cnumbmm.f90 index 7b5380a7..a9ade274 100644 --- a/base/serial/psb_cnumbmm.f90 +++ b/base/serial/psb_cnumbmm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/psb_crwextd.f90 b/base/serial/psb_crwextd.f90 index a5774d0b..e31ea423 100644 --- a/base/serial/psb_crwextd.f90 +++ b/base/serial/psb_crwextd.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/psb_csymbmm.f90 b/base/serial/psb_csymbmm.f90 index 88ccd60d..157221b2 100644 --- a/base/serial/psb_csymbmm.f90 +++ b/base/serial/psb_csymbmm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/psb_dnumbmm.f90 b/base/serial/psb_dnumbmm.f90 index c6edc4ad..4735adc0 100644 --- a/base/serial/psb_dnumbmm.f90 +++ b/base/serial/psb_dnumbmm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/psb_drwextd.f90 b/base/serial/psb_drwextd.f90 index d35b0752..42f65ede 100644 --- a/base/serial/psb_drwextd.f90 +++ b/base/serial/psb_drwextd.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/psb_dsymbmm.f90 b/base/serial/psb_dsymbmm.f90 index 54b5f878..cff7a3a0 100644 --- a/base/serial/psb_dsymbmm.f90 +++ b/base/serial/psb_dsymbmm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/psb_lsame.f90 b/base/serial/psb_lsame.f90 index f5142637..c7bf91f1 100644 --- a/base/serial/psb_lsame.f90 +++ b/base/serial/psb_lsame.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/psb_snumbmm.f90 b/base/serial/psb_snumbmm.f90 index 4835d1b6..93c47e38 100644 --- a/base/serial/psb_snumbmm.f90 +++ b/base/serial/psb_snumbmm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/psb_sort_impl.f90 b/base/serial/psb_sort_impl.f90 index 6cea211f..66e5445f 100644 --- a/base/serial/psb_sort_impl.f90 +++ b/base/serial/psb_sort_impl.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/psb_srwextd.f90 b/base/serial/psb_srwextd.f90 index d4243ac4..6d79f22f 100644 --- a/base/serial/psb_srwextd.f90 +++ b/base/serial/psb_srwextd.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/psb_ssymbmm.f90 b/base/serial/psb_ssymbmm.f90 index 3ae310fd..933e1d1b 100644 --- a/base/serial/psb_ssymbmm.f90 +++ b/base/serial/psb_ssymbmm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/psb_znumbmm.f90 b/base/serial/psb_znumbmm.f90 index 79c7f49d..5e7bdf5c 100644 --- a/base/serial/psb_znumbmm.f90 +++ b/base/serial/psb_znumbmm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/psb_zrwextd.f90 b/base/serial/psb_zrwextd.f90 index 6b82de0b..e5cd4e75 100644 --- a/base/serial/psb_zrwextd.f90 +++ b/base/serial/psb_zrwextd.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/psb_zsymbmm.f90 b/base/serial/psb_zsymbmm.f90 index 2cdd0630..c149cdf5 100644 --- a/base/serial/psb_zsymbmm.f90 +++ b/base/serial/psb_zsymbmm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/psi_impl.f90 b/base/serial/psi_impl.f90 index 9597d829..f75431f9 100644 --- a/base/serial/psi_impl.f90 +++ b/base/serial/psi_impl.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/serial/psi_serial_impl.f90 b/base/serial/psi_serial_impl.f90 index 534dc588..06eef845 100644 --- a/base/serial/psi_serial_impl.f90 +++ b/base/serial/psi_serial_impl.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_callc.f90 b/base/tools/psb_callc.f90 index d386abc3..1ca288e0 100644 --- a/base/tools/psb_callc.f90 +++ b/base/tools/psb_callc.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -137,7 +137,7 @@ end subroutine psb_calloc !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_casb.f90 b/base/tools/psb_casb.f90 index 8aff85ef..37e1c97e 100644 --- a/base/tools/psb_casb.f90 +++ b/base/tools/psb_casb.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -135,7 +135,7 @@ end subroutine psb_casb !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_ccdbldext.F90 b/base/tools/psb_ccdbldext.F90 index 6ce3dc24..e0399aa3 100644 --- a/base/tools/psb_ccdbldext.F90 +++ b/base/tools/psb_ccdbldext.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_cd_inloc.f90 b/base/tools/psb_cd_inloc.f90 index 3e116d50..38780563 100644 --- a/base/tools/psb_cd_inloc.f90 +++ b/base/tools/psb_cd_inloc.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_cd_lstext.f90 b/base/tools/psb_cd_lstext.f90 index a3ff46c5..60ee5c39 100644 --- a/base/tools/psb_cd_lstext.f90 +++ b/base/tools/psb_cd_lstext.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_cd_reinit.f90 b/base/tools/psb_cd_reinit.f90 index 4b166381..4f1e1933 100644 --- a/base/tools/psb_cd_reinit.f90 +++ b/base/tools/psb_cd_reinit.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_cd_set_bld.f90 b/base/tools/psb_cd_set_bld.f90 index fa60f3ad..e3c35195 100644 --- a/base/tools/psb_cd_set_bld.f90 +++ b/base/tools/psb_cd_set_bld.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_cdals.f90 b/base/tools/psb_cdals.f90 index 1640fb2e..4e9e4084 100644 --- a/base/tools/psb_cdals.f90 +++ b/base/tools/psb_cdals.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_cdalv.f90 b/base/tools/psb_cdalv.f90 index 527a0e7c..cee3dcd5 100644 --- a/base/tools/psb_cdalv.f90 +++ b/base/tools/psb_cdalv.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_cdcpy.f90 b/base/tools/psb_cdcpy.f90 index eb29a01c..09ce1916 100644 --- a/base/tools/psb_cdcpy.f90 +++ b/base/tools/psb_cdcpy.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_cdins.f90 b/base/tools/psb_cdins.f90 index 23b1c71f..6c60bbac 100644 --- a/base/tools/psb_cdins.f90 +++ b/base/tools/psb_cdins.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_cdprt.f90 b/base/tools/psb_cdprt.f90 index 4c590dbe..b3e19b9a 100644 --- a/base/tools/psb_cdprt.f90 +++ b/base/tools/psb_cdprt.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_cdren.f90 b/base/tools/psb_cdren.f90 index 3477ed1e..e96bfda6 100644 --- a/base/tools/psb_cdren.f90 +++ b/base/tools/psb_cdren.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_cdrep.f90 b/base/tools/psb_cdrep.f90 index 0bcbe232..e2ffc8c7 100644 --- a/base/tools/psb_cdrep.f90 +++ b/base/tools/psb_cdrep.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_cfree.f90 b/base/tools/psb_cfree.f90 index d0c63be2..1cd90585 100644 --- a/base/tools/psb_cfree.f90 +++ b/base/tools/psb_cfree.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_cins.f90 b/base/tools/psb_cins.f90 index e5e50645..80be9758 100644 --- a/base/tools/psb_cins.f90 +++ b/base/tools/psb_cins.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -181,7 +181,7 @@ end subroutine psb_cinsvi !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_cspalloc.f90 b/base/tools/psb_cspalloc.f90 index 89137b4e..5656f328 100644 --- a/base/tools/psb_cspalloc.f90 +++ b/base/tools/psb_cspalloc.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_cspasb.f90 b/base/tools/psb_cspasb.f90 index 03b12bcf..152d2455 100644 --- a/base/tools/psb_cspasb.f90 +++ b/base/tools/psb_cspasb.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_cspfree.f90 b/base/tools/psb_cspfree.f90 index 81d82484..800c7a63 100644 --- a/base/tools/psb_cspfree.f90 +++ b/base/tools/psb_cspfree.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_csphalo.F90 b/base/tools/psb_csphalo.F90 index f7b1657f..b621fb95 100644 --- a/base/tools/psb_csphalo.F90 +++ b/base/tools/psb_csphalo.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_cspins.f90 b/base/tools/psb_cspins.f90 index e7687c24..d98165a3 100644 --- a/base/tools/psb_cspins.f90 +++ b/base/tools/psb_cspins.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_csprn.f90 b/base/tools/psb_csprn.f90 index b89f93ec..6235c3a7 100644 --- a/base/tools/psb_csprn.f90 +++ b/base/tools/psb_csprn.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_dallc.f90 b/base/tools/psb_dallc.f90 index f56ad699..ae17df9a 100644 --- a/base/tools/psb_dallc.f90 +++ b/base/tools/psb_dallc.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -137,7 +137,7 @@ end subroutine psb_dalloc !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_dasb.f90 b/base/tools/psb_dasb.f90 index 26f87048..160a0aa4 100644 --- a/base/tools/psb_dasb.f90 +++ b/base/tools/psb_dasb.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -135,7 +135,7 @@ end subroutine psb_dasb !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_dcdbldext.F90 b/base/tools/psb_dcdbldext.F90 index 17ea81aa..60a9660b 100644 --- a/base/tools/psb_dcdbldext.F90 +++ b/base/tools/psb_dcdbldext.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_dfree.f90 b/base/tools/psb_dfree.f90 index c0087ae6..0e514a5d 100644 --- a/base/tools/psb_dfree.f90 +++ b/base/tools/psb_dfree.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_dins.f90 b/base/tools/psb_dins.f90 index 5c3c8d02..55c8c89a 100644 --- a/base/tools/psb_dins.f90 +++ b/base/tools/psb_dins.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -181,7 +181,7 @@ end subroutine psb_dinsvi !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_dspalloc.f90 b/base/tools/psb_dspalloc.f90 index 57eac375..01f101b3 100644 --- a/base/tools/psb_dspalloc.f90 +++ b/base/tools/psb_dspalloc.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_dspasb.f90 b/base/tools/psb_dspasb.f90 index 0ba84e2b..60739a9a 100644 --- a/base/tools/psb_dspasb.f90 +++ b/base/tools/psb_dspasb.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_dspfree.f90 b/base/tools/psb_dspfree.f90 index ea9b7fdb..25330538 100644 --- a/base/tools/psb_dspfree.f90 +++ b/base/tools/psb_dspfree.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_dsphalo.F90 b/base/tools/psb_dsphalo.F90 index 8e047705..9006ee64 100644 --- a/base/tools/psb_dsphalo.F90 +++ b/base/tools/psb_dsphalo.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_dspins.f90 b/base/tools/psb_dspins.f90 index aca0c5d8..cd16fab9 100644 --- a/base/tools/psb_dspins.f90 +++ b/base/tools/psb_dspins.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_dsprn.f90 b/base/tools/psb_dsprn.f90 index f02d378a..37e64745 100644 --- a/base/tools/psb_dsprn.f90 +++ b/base/tools/psb_dsprn.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_get_overlap.f90 b/base/tools/psb_get_overlap.f90 index 05fbad07..739c4631 100644 --- a/base/tools/psb_get_overlap.f90 +++ b/base/tools/psb_get_overlap.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_glob_to_loc.f90 b/base/tools/psb_glob_to_loc.f90 index 49ffc8a7..70439e04 100644 --- a/base/tools/psb_glob_to_loc.f90 +++ b/base/tools/psb_glob_to_loc.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -121,7 +121,7 @@ end subroutine psb_glob_to_loc2 !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_ialloc.f90 b/base/tools/psb_ialloc.f90 index 19614c9f..e5723ebe 100644 --- a/base/tools/psb_ialloc.f90 +++ b/base/tools/psb_ialloc.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -137,7 +137,7 @@ end subroutine psb_ialloc !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_iasb.f90 b/base/tools/psb_iasb.f90 index 15cbed4f..aaaf7045 100644 --- a/base/tools/psb_iasb.f90 +++ b/base/tools/psb_iasb.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -136,7 +136,7 @@ end subroutine psb_iasb !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_icdasb.F90 b/base/tools/psb_icdasb.F90 index c676e2c1..c9b5b94e 100644 --- a/base/tools/psb_icdasb.F90 +++ b/base/tools/psb_icdasb.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_ifree.f90 b/base/tools/psb_ifree.f90 index 6cb4094b..f7328296 100644 --- a/base/tools/psb_ifree.f90 +++ b/base/tools/psb_ifree.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -104,7 +104,7 @@ end subroutine psb_ifree !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_iins.f90 b/base/tools/psb_iins.f90 index 5172239b..923728c5 100644 --- a/base/tools/psb_iins.f90 +++ b/base/tools/psb_iins.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -180,7 +180,7 @@ end subroutine psb_iinsvi !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_linmap.f90 b/base/tools/psb_linmap.f90 index f38ca5be..39b6ef76 100644 --- a/base/tools/psb_linmap.f90 +++ b/base/tools/psb_linmap.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_loc_to_glob.f90 b/base/tools/psb_loc_to_glob.f90 index 86699955..267a5743 100644 --- a/base/tools/psb_loc_to_glob.f90 +++ b/base/tools/psb_loc_to_glob.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -108,7 +108,7 @@ end subroutine psb_loc_to_glob2 !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_map.f90 b/base/tools/psb_map.f90 index c0c35cb7..bd68cced 100644 --- a/base/tools/psb_map.f90 +++ b/base/tools/psb_map.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_sallc.f90 b/base/tools/psb_sallc.f90 index 74f3fd77..789ab81a 100644 --- a/base/tools/psb_sallc.f90 +++ b/base/tools/psb_sallc.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -137,7 +137,7 @@ end subroutine psb_salloc !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_sasb.f90 b/base/tools/psb_sasb.f90 index 363bccb2..7bbcf74d 100644 --- a/base/tools/psb_sasb.f90 +++ b/base/tools/psb_sasb.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -135,7 +135,7 @@ end subroutine psb_sasb !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_scdbldext.F90 b/base/tools/psb_scdbldext.F90 index b510914d..00200017 100644 --- a/base/tools/psb_scdbldext.F90 +++ b/base/tools/psb_scdbldext.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_sfree.f90 b/base/tools/psb_sfree.f90 index 0ab38b17..7feb6bcf 100644 --- a/base/tools/psb_sfree.f90 +++ b/base/tools/psb_sfree.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_sins.f90 b/base/tools/psb_sins.f90 index b8cc2518..efc2dc79 100644 --- a/base/tools/psb_sins.f90 +++ b/base/tools/psb_sins.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -181,7 +181,7 @@ end subroutine psb_sinsvi !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_sspalloc.f90 b/base/tools/psb_sspalloc.f90 index e5b2a3d6..46e5be92 100644 --- a/base/tools/psb_sspalloc.f90 +++ b/base/tools/psb_sspalloc.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_sspasb.f90 b/base/tools/psb_sspasb.f90 index 4380a5de..f07c42d1 100644 --- a/base/tools/psb_sspasb.f90 +++ b/base/tools/psb_sspasb.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_sspfree.f90 b/base/tools/psb_sspfree.f90 index 4d601b99..d3b37e23 100644 --- a/base/tools/psb_sspfree.f90 +++ b/base/tools/psb_sspfree.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_ssphalo.F90 b/base/tools/psb_ssphalo.F90 index 00dadc2a..ffce7520 100644 --- a/base/tools/psb_ssphalo.F90 +++ b/base/tools/psb_ssphalo.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_sspins.f90 b/base/tools/psb_sspins.f90 index 06ee3864..f71e981c 100644 --- a/base/tools/psb_sspins.f90 +++ b/base/tools/psb_sspins.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_ssprn.f90 b/base/tools/psb_ssprn.f90 index b0be8279..56417001 100644 --- a/base/tools/psb_ssprn.f90 +++ b/base/tools/psb_ssprn.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_zallc.f90 b/base/tools/psb_zallc.f90 index eb6a2e71..19cb609b 100644 --- a/base/tools/psb_zallc.f90 +++ b/base/tools/psb_zallc.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -137,7 +137,7 @@ end subroutine psb_zalloc !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_zasb.f90 b/base/tools/psb_zasb.f90 index 58bc1e44..74ca30da 100644 --- a/base/tools/psb_zasb.f90 +++ b/base/tools/psb_zasb.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -135,7 +135,7 @@ end subroutine psb_zasb !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_zcdbldext.F90 b/base/tools/psb_zcdbldext.F90 index 5e7e36de..e3550417 100644 --- a/base/tools/psb_zcdbldext.F90 +++ b/base/tools/psb_zcdbldext.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_zfree.f90 b/base/tools/psb_zfree.f90 index 71f647aa..79dbb572 100644 --- a/base/tools/psb_zfree.f90 +++ b/base/tools/psb_zfree.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_zins.f90 b/base/tools/psb_zins.f90 index 9df2bc73..ff0b5f6f 100644 --- a/base/tools/psb_zins.f90 +++ b/base/tools/psb_zins.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -181,7 +181,7 @@ end subroutine psb_zinsvi !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_zspalloc.f90 b/base/tools/psb_zspalloc.f90 index b1baa9d1..0f14cfad 100644 --- a/base/tools/psb_zspalloc.f90 +++ b/base/tools/psb_zspalloc.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_zspasb.f90 b/base/tools/psb_zspasb.f90 index 87ff1e57..aa35151c 100644 --- a/base/tools/psb_zspasb.f90 +++ b/base/tools/psb_zspasb.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_zspfree.f90 b/base/tools/psb_zspfree.f90 index 79c61e55..ec1b1d10 100644 --- a/base/tools/psb_zspfree.f90 +++ b/base/tools/psb_zspfree.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_zsphalo.F90 b/base/tools/psb_zsphalo.F90 index cd71b619..b188b191 100644 --- a/base/tools/psb_zsphalo.F90 +++ b/base/tools/psb_zsphalo.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_zspins.f90 b/base/tools/psb_zspins.f90 index b16a4b35..520d163e 100644 --- a/base/tools/psb_zspins.f90 +++ b/base/tools/psb_zspins.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/base/tools/psb_zsprn.f90 b/base/tools/psb_zsprn.f90 index e9f0e664..c09d507d 100644 --- a/base/tools/psb_zsprn.f90 +++ b/base/tools/psb_zsprn.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_base_inner_krylov_mod.f90 b/krylov/psb_base_inner_krylov_mod.f90 index f62ddbd5..70d98442 100644 --- a/krylov/psb_base_inner_krylov_mod.f90 +++ b/krylov/psb_base_inner_krylov_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_c_inner_krylov_mod.f90 b/krylov/psb_c_inner_krylov_mod.f90 index 707f7582..be1c5f69 100644 --- a/krylov/psb_c_inner_krylov_mod.f90 +++ b/krylov/psb_c_inner_krylov_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_cbicg.f90 b/krylov/psb_cbicg.f90 index a24ac6af..54ed8349 100644 --- a/krylov/psb_cbicg.f90 +++ b/krylov/psb_cbicg.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_ccg.f90 b/krylov/psb_ccg.f90 index 4770db40..24c05f69 100644 --- a/krylov/psb_ccg.f90 +++ b/krylov/psb_ccg.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_ccgs.f90 b/krylov/psb_ccgs.f90 index 10412a4c..8a313297 100644 --- a/krylov/psb_ccgs.f90 +++ b/krylov/psb_ccgs.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_ccgstab.f90 b/krylov/psb_ccgstab.f90 index 43e1c9a6..1eff9ae7 100644 --- a/krylov/psb_ccgstab.f90 +++ b/krylov/psb_ccgstab.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_ccgstabl.f90 b/krylov/psb_ccgstabl.f90 index a0ce45b6..4c7122c3 100644 --- a/krylov/psb_ccgstabl.f90 +++ b/krylov/psb_ccgstabl.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_ckrylov.f90 b/krylov/psb_ckrylov.f90 index cbd1e48a..1c21437b 100644 --- a/krylov/psb_ckrylov.f90 +++ b/krylov/psb_ckrylov.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_crgmres.f90 b/krylov/psb_crgmres.f90 index 1d3cc4aa..be50e5cc 100644 --- a/krylov/psb_crgmres.f90 +++ b/krylov/psb_crgmres.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_d_inner_krylov_mod.f90 b/krylov/psb_d_inner_krylov_mod.f90 index b0320801..a094aacf 100644 --- a/krylov/psb_d_inner_krylov_mod.f90 +++ b/krylov/psb_d_inner_krylov_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_dbicg.f90 b/krylov/psb_dbicg.f90 index 3cb5bf94..3d397c3a 100644 --- a/krylov/psb_dbicg.f90 +++ b/krylov/psb_dbicg.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_dcg.F90 b/krylov/psb_dcg.F90 index c0a11888..bd786ef5 100644 --- a/krylov/psb_dcg.F90 +++ b/krylov/psb_dcg.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_dcgs.f90 b/krylov/psb_dcgs.f90 index 1236fec2..6add50b0 100644 --- a/krylov/psb_dcgs.f90 +++ b/krylov/psb_dcgs.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_dcgstab.F90 b/krylov/psb_dcgstab.F90 index 5255566a..d47a4ee4 100644 --- a/krylov/psb_dcgstab.F90 +++ b/krylov/psb_dcgstab.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_dcgstabl.f90 b/krylov/psb_dcgstabl.f90 index 56e0f86c..36125356 100644 --- a/krylov/psb_dcgstabl.f90 +++ b/krylov/psb_dcgstabl.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_dkrylov.f90 b/krylov/psb_dkrylov.f90 index 7dbae1a6..04331047 100644 --- a/krylov/psb_dkrylov.f90 +++ b/krylov/psb_dkrylov.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_drgmres.f90 b/krylov/psb_drgmres.f90 index 4e33ff7f..c7cc4a10 100644 --- a/krylov/psb_drgmres.f90 +++ b/krylov/psb_drgmres.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_inner_krylov_mod.f90 b/krylov/psb_inner_krylov_mod.f90 index e1f74b50..069218e6 100644 --- a/krylov/psb_inner_krylov_mod.f90 +++ b/krylov/psb_inner_krylov_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_krylov_mod.f90 b/krylov/psb_krylov_mod.f90 index f96a2387..2c205c83 100644 --- a/krylov/psb_krylov_mod.f90 +++ b/krylov/psb_krylov_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_s_inner_krylov_mod.f90 b/krylov/psb_s_inner_krylov_mod.f90 index ab1e9509..9c339e7c 100644 --- a/krylov/psb_s_inner_krylov_mod.f90 +++ b/krylov/psb_s_inner_krylov_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_sbicg.f90 b/krylov/psb_sbicg.f90 index eb525f32..d4000577 100644 --- a/krylov/psb_sbicg.f90 +++ b/krylov/psb_sbicg.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_scg.F90 b/krylov/psb_scg.F90 index 01ecbaaf..3ad10ac5 100644 --- a/krylov/psb_scg.F90 +++ b/krylov/psb_scg.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_scgs.f90 b/krylov/psb_scgs.f90 index fc6eea2d..ae390f78 100644 --- a/krylov/psb_scgs.f90 +++ b/krylov/psb_scgs.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_scgstab.F90 b/krylov/psb_scgstab.F90 index f4cfd254..acd36603 100644 --- a/krylov/psb_scgstab.F90 +++ b/krylov/psb_scgstab.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_scgstabl.f90 b/krylov/psb_scgstabl.f90 index e588b938..76bbae68 100644 --- a/krylov/psb_scgstabl.f90 +++ b/krylov/psb_scgstabl.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_skrylov.f90 b/krylov/psb_skrylov.f90 index 116d5e41..22df1c71 100644 --- a/krylov/psb_skrylov.f90 +++ b/krylov/psb_skrylov.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_srgmres.f90 b/krylov/psb_srgmres.f90 index 280ddcb2..7eb39811 100644 --- a/krylov/psb_srgmres.f90 +++ b/krylov/psb_srgmres.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_z_inner_krylov_mod.f90 b/krylov/psb_z_inner_krylov_mod.f90 index d22617fd..8ecfe65e 100644 --- a/krylov/psb_z_inner_krylov_mod.f90 +++ b/krylov/psb_z_inner_krylov_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_zbicg.f90 b/krylov/psb_zbicg.f90 index 3c8bdaec..4937e761 100644 --- a/krylov/psb_zbicg.f90 +++ b/krylov/psb_zbicg.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_zcg.F90 b/krylov/psb_zcg.F90 index 902074e0..8b305157 100644 --- a/krylov/psb_zcg.F90 +++ b/krylov/psb_zcg.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_zcgs.f90 b/krylov/psb_zcgs.f90 index 718fe0de..6fca93aa 100644 --- a/krylov/psb_zcgs.f90 +++ b/krylov/psb_zcgs.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_zcgstab.f90 b/krylov/psb_zcgstab.f90 index 448d5e0b..6eb1c02c 100644 --- a/krylov/psb_zcgstab.f90 +++ b/krylov/psb_zcgstab.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_zcgstabl.f90 b/krylov/psb_zcgstabl.f90 index 5c846406..dfa48c21 100644 --- a/krylov/psb_zcgstabl.f90 +++ b/krylov/psb_zcgstabl.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_zkrylov.f90 b/krylov/psb_zkrylov.f90 index 4597785b..d2f89fa8 100644 --- a/krylov/psb_zkrylov.f90 +++ b/krylov/psb_zkrylov.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/krylov/psb_zrgmres.f90 b/krylov/psb_zrgmres.f90 index 28d546dd..885ed90a 100644 --- a/krylov/psb_zrgmres.f90 +++ b/krylov/psb_zrgmres.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_c_base_prec_mod.f03 b/prec/psb_c_base_prec_mod.f03 index 6cd5e62c..8de51ece 100644 --- a/prec/psb_c_base_prec_mod.f03 +++ b/prec/psb_c_base_prec_mod.f03 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_c_prec_type.f03 b/prec/psb_c_prec_type.f03 index 95f11aff..f0264628 100644 --- a/prec/psb_c_prec_type.f03 +++ b/prec/psb_c_prec_type.f03 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -71,7 +71,7 @@ module psb_c_prec_type interface psb_precaply subroutine psb_cprc_aply(prec,x,y,desc_data,info,trans,work) use psb_sparse_mod, only : psb_desc_type, psb_spk_ - import psb_cprec_type + import :: psb_cprec_type type(psb_desc_type),intent(in) :: desc_data type(psb_cprec_type), intent(in) :: prec complex(psb_spk_),intent(in) :: x(:) @@ -82,7 +82,7 @@ module psb_c_prec_type end subroutine psb_cprc_aply subroutine psb_cprc_aply1(prec,x,desc_data,info,trans) use psb_sparse_mod, only : psb_desc_type, psb_spk_ - import psb_cprec_type + import :: psb_cprec_type type(psb_desc_type),intent(in) :: desc_data type(psb_cprec_type), intent(in) :: prec complex(psb_spk_),intent(inout) :: x(:) diff --git a/prec/psb_cilu_fct.f90 b/prec/psb_cilu_fct.f90 index d4e6d193..6a822a4f 100644 --- a/prec/psb_cilu_fct.f90 +++ b/prec/psb_cilu_fct.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_cprc_aply.f90 b/prec/psb_cprc_aply.f90 index f2b2fe53..0462aa92 100644 --- a/prec/psb_cprc_aply.f90 +++ b/prec/psb_cprc_aply.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -105,7 +105,7 @@ end subroutine psb_cprc_aply !!$ Multilevel Domain Decomposition Parallel Preconditioner Package for PSBLAS !!$ for !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Daniela di Serafino Second University of Naples diff --git a/prec/psb_cprecbld.f90 b/prec/psb_cprecbld.f90 index 90bfddce..89e73cf0 100644 --- a/prec/psb_cprecbld.f90 +++ b/prec/psb_cprecbld.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_cprecinit.f90 b/prec/psb_cprecinit.f90 index e4c71385..eb483252 100644 --- a/prec/psb_cprecinit.f90 +++ b/prec/psb_cprecinit.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_cprecset.f90 b/prec/psb_cprecset.f90 index e110e10e..df474bd3 100644 --- a/prec/psb_cprecset.f90 +++ b/prec/psb_cprecset.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_d_base_prec_mod.f03 b/prec/psb_d_base_prec_mod.f03 index 7f28de30..dfd42987 100644 --- a/prec/psb_d_base_prec_mod.f03 +++ b/prec/psb_d_base_prec_mod.f03 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_d_prec_type.f03 b/prec/psb_d_prec_type.f03 index 52e6cd8c..d27a323b 100644 --- a/prec/psb_d_prec_type.f03 +++ b/prec/psb_d_prec_type.f03 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -73,7 +73,7 @@ module psb_d_prec_type interface psb_precaply subroutine psb_dprc_aply(prec,x,y,desc_data,info,trans,work) use psb_sparse_mod, only : psb_desc_type, psb_dpk_ - import psb_dprec_type + import :: psb_dprec_type type(psb_desc_type),intent(in) :: desc_data type(psb_dprec_type), intent(in) :: prec real(psb_dpk_),intent(in) :: x(:) @@ -84,7 +84,7 @@ module psb_d_prec_type end subroutine psb_dprc_aply subroutine psb_dprc_aply1(prec,x,desc_data,info,trans) use psb_sparse_mod, only : psb_desc_type, psb_dpk_ - import psb_dprec_type + import :: psb_dprec_type type(psb_desc_type),intent(in) :: desc_data type(psb_dprec_type), intent(in) :: prec real(psb_dpk_),intent(inout) :: x(:) diff --git a/prec/psb_dilu_fct.f90 b/prec/psb_dilu_fct.f90 index 788e9a69..d3e1a0bd 100644 --- a/prec/psb_dilu_fct.f90 +++ b/prec/psb_dilu_fct.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_dprc_aply.f90 b/prec/psb_dprc_aply.f90 index 4c9c5bbc..edca9b9e 100644 --- a/prec/psb_dprc_aply.f90 +++ b/prec/psb_dprc_aply.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -104,7 +104,7 @@ end subroutine psb_dprc_aply !!$ Multilevel Domain Decomposition Parallel Preconditioner Package for PSBLAS !!$ for !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Daniela di Serafino Second University of Naples diff --git a/prec/psb_dprecbld.f90 b/prec/psb_dprecbld.f90 index dada129b..c3f848f6 100644 --- a/prec/psb_dprecbld.f90 +++ b/prec/psb_dprecbld.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_dprecinit.f90 b/prec/psb_dprecinit.f90 index a7cea68d..350bc38c 100644 --- a/prec/psb_dprecinit.f90 +++ b/prec/psb_dprecinit.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_dprecset.f90 b/prec/psb_dprecset.f90 index 37c2426f..c8db47e6 100644 --- a/prec/psb_dprecset.f90 +++ b/prec/psb_dprecset.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_prec_const_mod.f03 b/prec/psb_prec_const_mod.f03 index f3532fe8..2f150171 100644 --- a/prec/psb_prec_const_mod.f03 +++ b/prec/psb_prec_const_mod.f03 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_prec_mod.f90 b/prec/psb_prec_mod.f90 index ac486550..74870be3 100644 --- a/prec/psb_prec_mod.f90 +++ b/prec/psb_prec_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_prec_type.f03 b/prec/psb_prec_type.f03 index 3717c69d..10689e21 100644 --- a/prec/psb_prec_type.f03 +++ b/prec/psb_prec_type.f03 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_s_base_prec_mod.f03 b/prec/psb_s_base_prec_mod.f03 index 92ed2243..4f858fd4 100644 --- a/prec/psb_s_base_prec_mod.f03 +++ b/prec/psb_s_base_prec_mod.f03 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_s_prec_type.f03 b/prec/psb_s_prec_type.f03 index 5ac1a28d..dd6279e5 100644 --- a/prec/psb_s_prec_type.f03 +++ b/prec/psb_s_prec_type.f03 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -72,7 +72,7 @@ module psb_s_prec_type interface psb_precaply subroutine psb_sprc_aply(prec,x,y,desc_data,info,trans,work) use psb_sparse_mod, only : psb_desc_type, psb_spk_ - import psb_sprec_type + import :: psb_sprec_type type(psb_desc_type),intent(in) :: desc_data type(psb_sprec_type), intent(in) :: prec real(psb_spk_),intent(in) :: x(:) @@ -83,7 +83,7 @@ module psb_s_prec_type end subroutine psb_sprc_aply subroutine psb_sprc_aply1(prec,x,desc_data,info,trans) use psb_sparse_mod, only : psb_desc_type, psb_spk_ - import psb_sprec_type + import :: psb_sprec_type type(psb_desc_type),intent(in) :: desc_data type(psb_sprec_type), intent(in) :: prec real(psb_spk_),intent(inout) :: x(:) diff --git a/prec/psb_silu_fct.f90 b/prec/psb_silu_fct.f90 index a0615c74..ff8520a0 100644 --- a/prec/psb_silu_fct.f90 +++ b/prec/psb_silu_fct.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_sprc_aply.f90 b/prec/psb_sprc_aply.f90 index 18a52cd2..241d83e7 100644 --- a/prec/psb_sprc_aply.f90 +++ b/prec/psb_sprc_aply.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -104,7 +104,7 @@ end subroutine psb_sprc_aply !!$ Multilevel Domain Decomposition Parallel Preconditioner Package for PSBLAS !!$ for !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Daniela di Serafino Second University of Naples diff --git a/prec/psb_sprecbld.f90 b/prec/psb_sprecbld.f90 index 377e3b9f..776a07ac 100644 --- a/prec/psb_sprecbld.f90 +++ b/prec/psb_sprecbld.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_sprecinit.f90 b/prec/psb_sprecinit.f90 index b5628390..4816d203 100644 --- a/prec/psb_sprecinit.f90 +++ b/prec/psb_sprecinit.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_sprecset.f90 b/prec/psb_sprecset.f90 index 0ec56594..968de499 100644 --- a/prec/psb_sprecset.f90 +++ b/prec/psb_sprecset.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_z_base_prec_mod.f03 b/prec/psb_z_base_prec_mod.f03 index 84218bbf..cb2f0e2c 100644 --- a/prec/psb_z_base_prec_mod.f03 +++ b/prec/psb_z_base_prec_mod.f03 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_z_prec_type.f03 b/prec/psb_z_prec_type.f03 index 995a8850..04e3472e 100644 --- a/prec/psb_z_prec_type.f03 +++ b/prec/psb_z_prec_type.f03 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -71,7 +71,7 @@ module psb_z_prec_type interface psb_precaply subroutine psb_zprc_aply(prec,x,y,desc_data,info,trans,work) use psb_sparse_mod, only : psb_desc_type, psb_dpk_ - import psb_zprec_type + import :: psb_zprec_type type(psb_desc_type),intent(in) :: desc_data type(psb_zprec_type), intent(in) :: prec complex(psb_dpk_),intent(in) :: x(:) @@ -82,7 +82,7 @@ module psb_z_prec_type end subroutine psb_zprc_aply subroutine psb_zprc_aply1(prec,x,desc_data,info,trans) use psb_sparse_mod, only : psb_desc_type, psb_dpk_ - import psb_zprec_type + import :: psb_zprec_type type(psb_desc_type),intent(in) :: desc_data type(psb_zprec_type), intent(in) :: prec complex(psb_dpk_),intent(inout) :: x(:) diff --git a/prec/psb_zilu_fct.f90 b/prec/psb_zilu_fct.f90 index d4f8abf5..e761b02a 100644 --- a/prec/psb_zilu_fct.f90 +++ b/prec/psb_zilu_fct.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_zprc_aply.f90 b/prec/psb_zprc_aply.f90 index 88a2df47..5033bd92 100644 --- a/prec/psb_zprc_aply.f90 +++ b/prec/psb_zprc_aply.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ @@ -105,7 +105,7 @@ end subroutine psb_zprc_aply !!$ Multilevel Domain Decomposition Parallel Preconditioner Package for PSBLAS !!$ for !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ Daniela di Serafino Second University of Naples diff --git a/prec/psb_zprecbld.f90 b/prec/psb_zprecbld.f90 index 1f910589..7cebae9f 100644 --- a/prec/psb_zprecbld.f90 +++ b/prec/psb_zprecbld.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_zprecinit.f90 b/prec/psb_zprecinit.f90 index a0bcc565..9ad45087 100644 --- a/prec/psb_zprecinit.f90 +++ b/prec/psb_zprecinit.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/prec/psb_zprecset.f90 b/prec/psb_zprecset.f90 index a4cb2e7a..e5cf3c5e 100644 --- a/prec/psb_zprecset.f90 +++ b/prec/psb_zprecset.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/test/fileread/cf_sample.f90 b/test/fileread/cf_sample.f90 index 75c7b572..1b3d8364 100644 --- a/test/fileread/cf_sample.f90 +++ b/test/fileread/cf_sample.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/test/fileread/df_sample.f90 b/test/fileread/df_sample.f90 index 88c51544..ccf3181c 100644 --- a/test/fileread/df_sample.f90 +++ b/test/fileread/df_sample.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/test/fileread/getp.f90 b/test/fileread/getp.f90 index b63e977d..6ef266cb 100644 --- a/test/fileread/getp.f90 +++ b/test/fileread/getp.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/test/fileread/sf_sample.f90 b/test/fileread/sf_sample.f90 index 255b92ff..9f8949b2 100644 --- a/test/fileread/sf_sample.f90 +++ b/test/fileread/sf_sample.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/test/fileread/zf_sample.f90 b/test/fileread/zf_sample.f90 index 7dba2e81..82b9a737 100644 --- a/test/fileread/zf_sample.f90 +++ b/test/fileread/zf_sample.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/test/pargen/ppde.f90 b/test/pargen/ppde.f90 index 8daab47a..c3272af7 100644 --- a/test/pargen/ppde.f90 +++ b/test/pargen/ppde.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 2.3.1 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/test/pargen/spde.f90 b/test/pargen/spde.f90 index b4f1debc..e2295690 100644 --- a/test/pargen/spde.f90 +++ b/test/pargen/spde.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 2.3.1 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/test/serial/psb_d_cxx_mat_mod.f03 b/test/serial/psb_d_cxx_mat_mod.f03 index 0faa350f..1338998e 100644 --- a/test/serial/psb_d_cxx_mat_mod.f03 +++ b/test/serial/psb_d_cxx_mat_mod.f03 @@ -60,7 +60,7 @@ module psb_d_cxx_mat_mod subroutine d_cp_cxx_to_fmt_impl(a,b,info) use psb_const_mod use psb_d_base_mat_mod - import psb_d_cxx_sparse_mat + import :: psb_d_cxx_sparse_mat class(psb_d_cxx_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out) :: b integer, intent(out) :: info @@ -71,7 +71,7 @@ module psb_d_cxx_mat_mod subroutine d_cp_cxx_from_fmt_impl(a,b,info) use psb_const_mod use psb_d_base_mat_mod - import psb_d_cxx_sparse_mat + import :: psb_d_cxx_sparse_mat class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -83,7 +83,7 @@ module psb_d_cxx_mat_mod subroutine d_cp_cxx_to_coo_impl(a,b,info) use psb_const_mod use psb_d_base_mat_mod - import psb_d_cxx_sparse_mat + import :: psb_d_cxx_sparse_mat class(psb_d_cxx_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -94,7 +94,7 @@ module psb_d_cxx_mat_mod subroutine d_cp_cxx_from_coo_impl(a,b,info) use psb_const_mod use psb_d_base_mat_mod - import psb_d_cxx_sparse_mat + import :: psb_d_cxx_sparse_mat class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b integer, intent(out) :: info @@ -105,7 +105,7 @@ module psb_d_cxx_mat_mod subroutine d_mv_cxx_to_fmt_impl(a,b,info) use psb_const_mod use psb_d_base_mat_mod - import psb_d_cxx_sparse_mat + import :: psb_d_cxx_sparse_mat class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -116,7 +116,7 @@ module psb_d_cxx_mat_mod subroutine d_mv_cxx_from_fmt_impl(a,b,info) use psb_const_mod use psb_d_base_mat_mod - import psb_d_cxx_sparse_mat + import :: psb_d_cxx_sparse_mat class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -128,7 +128,7 @@ module psb_d_cxx_mat_mod subroutine d_mv_cxx_to_coo_impl(a,b,info) use psb_const_mod use psb_d_base_mat_mod - import psb_d_cxx_sparse_mat + import :: psb_d_cxx_sparse_mat class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -139,7 +139,7 @@ module psb_d_cxx_mat_mod subroutine d_mv_cxx_from_coo_impl(a,b,info) use psb_const_mod use psb_d_base_mat_mod - import psb_d_cxx_sparse_mat + import :: psb_d_cxx_sparse_mat class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer, intent(out) :: info @@ -149,7 +149,7 @@ module psb_d_cxx_mat_mod interface subroutine d_cxx_csput_impl(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) use psb_const_mod - import psb_d_cxx_sparse_mat + import :: psb_d_cxx_sparse_mat class(psb_d_cxx_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -162,7 +162,7 @@ module psb_d_cxx_mat_mod subroutine d_cxx_csgetptn_impl(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) use psb_const_mod - import psb_d_cxx_sparse_mat + import :: psb_d_cxx_sparse_mat implicit none class(psb_d_cxx_sparse_mat), intent(in) :: a @@ -181,7 +181,7 @@ module psb_d_cxx_mat_mod subroutine d_cxx_csgetrow_impl(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) use psb_const_mod - import psb_d_cxx_sparse_mat + import :: psb_d_cxx_sparse_mat implicit none class(psb_d_cxx_sparse_mat), intent(in) :: a @@ -200,7 +200,7 @@ module psb_d_cxx_mat_mod interface d_cxx_cssm_impl subroutine d_cxx_cssv_impl(alpha,a,x,beta,y,info,trans) use psb_const_mod - import psb_d_cxx_sparse_mat + import :: psb_d_cxx_sparse_mat class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -209,7 +209,7 @@ module psb_d_cxx_mat_mod end subroutine d_cxx_cssv_impl subroutine d_cxx_cssm_impl(alpha,a,x,beta,y,info,trans) use psb_const_mod - import psb_d_cxx_sparse_mat + import :: psb_d_cxx_sparse_mat class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -221,7 +221,7 @@ module psb_d_cxx_mat_mod interface d_cxx_csmm_impl subroutine d_cxx_csmv_impl(alpha,a,x,beta,y,info,trans) use psb_const_mod - import psb_d_cxx_sparse_mat + import :: psb_d_cxx_sparse_mat class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -230,7 +230,7 @@ module psb_d_cxx_mat_mod end subroutine d_cxx_csmv_impl subroutine d_cxx_csmm_impl(alpha,a,x,beta,y,info,trans) use psb_const_mod - import psb_d_cxx_sparse_mat + import :: psb_d_cxx_sparse_mat class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -242,7 +242,7 @@ module psb_d_cxx_mat_mod interface d_cxx_csnmi_impl function d_cxx_csnmi_impl(a) result(res) use psb_const_mod - import psb_d_cxx_sparse_mat + import :: psb_d_cxx_sparse_mat class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function d_cxx_csnmi_impl diff --git a/test/util/dhb2mm.f90 b/test/util/dhb2mm.f90 index 6db388b6..0b220f3b 100644 --- a/test/util/dhb2mm.f90 +++ b/test/util/dhb2mm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/test/util/dmm2hb.f90 b/test/util/dmm2hb.f90 index 370e242a..22463166 100644 --- a/test/util/dmm2hb.f90 +++ b/test/util/dmm2hb.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/test/util/zhb2mm.f90 b/test/util/zhb2mm.f90 index 5a2823a7..ef88fdb8 100644 --- a/test/util/zhb2mm.f90 +++ b/test/util/zhb2mm.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/test/util/zmm2hb.f90 b/test/util/zmm2hb.f90 index 109b5f72..4237d842 100644 --- a/test/util/zmm2hb.f90 +++ b/test/util/zmm2hb.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/util/psb_blockpart_mod.f90 b/util/psb_blockpart_mod.f90 index a8ff9f21..f17d4eb3 100644 --- a/util/psb_blockpart_mod.f90 +++ b/util/psb_blockpart_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/util/psb_hbio_impl.f90 b/util/psb_hbio_impl.f90 index c2bb4d91..e16370bc 100644 --- a/util/psb_hbio_impl.f90 +++ b/util/psb_hbio_impl.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/util/psb_hbio_mod.f90 b/util/psb_hbio_mod.f90 index 3475e91a..d7d7025a 100644 --- a/util/psb_hbio_mod.f90 +++ b/util/psb_hbio_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/util/psb_mat_dist_impl.f90 b/util/psb_mat_dist_impl.f90 index 8aba4b43..7efa5858 100644 --- a/util/psb_mat_dist_impl.f90 +++ b/util/psb_mat_dist_impl.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/util/psb_mat_dist_mod.f90 b/util/psb_mat_dist_mod.f90 index 2e31e4be..3b09b9ca 100644 --- a/util/psb_mat_dist_mod.f90 +++ b/util/psb_mat_dist_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/util/psb_metispart_mod.F90 b/util/psb_metispart_mod.F90 index 25862563..6012da7e 100644 --- a/util/psb_metispart_mod.F90 +++ b/util/psb_metispart_mod.F90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/util/psb_mmio_impl.f90 b/util/psb_mmio_impl.f90 index cf13d8bc..425f535b 100644 --- a/util/psb_mmio_impl.f90 +++ b/util/psb_mmio_impl.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/util/psb_mmio_mod.f90 b/util/psb_mmio_mod.f90 index 8eceb837..45e3b39e 100644 --- a/util/psb_mmio_mod.f90 +++ b/util/psb_mmio_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$ diff --git a/util/psb_util_mod.f90 b/util/psb_util_mod.f90 index bec96f29..876370e2 100644 --- a/util/psb_util_mod.f90 +++ b/util/psb_util_mod.f90 @@ -1,6 +1,6 @@ !!$ !!$ Parallel Sparse BLAS version 3.0 -!!$ (C) Copyright 2010 +!!$ (C) Copyright 2006, 2007, 2008, 2009, 2010 !!$ Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari CNRS-IRIT, Toulouse !!$