diff --git a/src/prec/psb_dasmatbld.f90 b/src/prec/psb_dasmatbld.f90 index 865b2bf6..644d4523 100644 --- a/src/prec/psb_dasmatbld.f90 +++ b/src/prec/psb_dasmatbld.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_dbaseprc_aply.f90 b/src/prec/psb_dbaseprc_aply.f90 index cb16b786..91d72e23 100644 --- a/src/prec/psb_dbaseprc_aply.f90 +++ b/src/prec/psb_dbaseprc_aply.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_dbaseprc_bld.f90 b/src/prec/psb_dbaseprc_bld.f90 index 65b45190..d6dbbd4d 100644 --- a/src/prec/psb_dbaseprc_bld.f90 +++ b/src/prec/psb_dbaseprc_bld.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_dbjac_aply.f90 b/src/prec/psb_dbjac_aply.f90 index c6e4e0e0..885909b3 100644 --- a/src/prec/psb_dbjac_aply.f90 +++ b/src/prec/psb_dbjac_aply.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_dbldaggrmat.f90 b/src/prec/psb_dbldaggrmat.f90 index 9351dd92..c6b7e9f6 100644 --- a/src/prec/psb_dbldaggrmat.f90 +++ b/src/prec/psb_dbldaggrmat.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_ddiagsc_bld.f90 b/src/prec/psb_ddiagsc_bld.f90 index 3b3ff842..7707443a 100644 --- a/src/prec/psb_ddiagsc_bld.f90 +++ b/src/prec/psb_ddiagsc_bld.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_dgenaggrmap.f90 b/src/prec/psb_dgenaggrmap.f90 index 0b100545..bc8ddeaf 100644 --- a/src/prec/psb_dgenaggrmap.f90 +++ b/src/prec/psb_dgenaggrmap.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_dilu_bld.f90 b/src/prec/psb_dilu_bld.f90 index 4ff51a60..8e9f63e7 100644 --- a/src/prec/psb_dilu_bld.f90 +++ b/src/prec/psb_dilu_bld.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_dilu_fct.f90 b/src/prec/psb_dilu_fct.f90 index 6256eedb..1619b687 100644 --- a/src/prec/psb_dilu_fct.f90 +++ b/src/prec/psb_dilu_fct.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_dmlprc_aply.f90 b/src/prec/psb_dmlprc_aply.f90 index 485f2594..2cdb46ff 100644 --- a/src/prec/psb_dmlprc_aply.f90 +++ b/src/prec/psb_dmlprc_aply.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without @@ -165,10 +165,10 @@ subroutine psb_dmlprc_aply(alpha,baseprecv,x,beta,y,desc_data,trans,work,info) ! 1. X(1) = Xext ! 2. DO ILEV=2,NLEV ! X(ILEV) = AV(PR_SM_T_)*X(ILEV-1) - ! 3. Y(ILEV) = (K(ILEV)**(-1))*X(ILEV) - ! 4. DO ILEV=NLEV-1,1,-1 + ! Y(ILEV) = (K(ILEV)**(-1))*X(ILEV) + ! 3. DO ILEV=NLEV-1,1,-1 ! Y(ILEV) = AV(PR_SM_)*Y(ILEV+1) - ! 5. Yext = beta*Yext + Y(1) + ! 4. Yext = beta*Yext + alpha*Y(1) ! ! Note: level numbering reversed wrt ref. DD, i.e. ! 1..NLEV <=> (j) <-> 0 @@ -294,12 +294,12 @@ subroutine psb_dmlprc_aply(alpha,baseprecv,x,beta,y,desc_data,trans,work,info) ! Y(ILEV) = AV(PR_SM_,ILEV+1)*Y(ILEV+1) ! Y(ILEV) = Y(ILEV) + (K(ILEV)**(-1))*(X(ILEV)-A(ILEV)*Y(ILEV)) ! - ! 5. Yext = beta*Yext + Y(1) + ! 5. Yext = beta*Yext + alpha*Y(1) ! ! Note: level numbering reversed wrt ref. DD, i.e. ! 1..NLEV <=> (j) <-> 0 ! - ! Also: post smoothing is not spelled out in detail in DD. + ! Also: post smoothing in the ref. DD is only presented for NLEV=2. ! ! @@ -433,7 +433,7 @@ subroutine psb_dmlprc_aply(alpha,baseprecv,x,beta,y,desc_data,trans,work,info) ! TX(ILEV) = (X(ILEV)-A(ILEV)*Y(ILEV)) ! 5. DO ILEV=NLEV-1,1,-1 ! Y(ILEV) = Y(ILEV) + AV(PR_SM_,ILEV+1)*Y(ILEV+1) - ! 6. Yext = beta*Yext + Y(1) + ! 6. Yext = beta*Yext + alpha*Y(1) ! ! Note: level numbering reversed wrt ref. DD, i.e. ! 1..NLEV <=> (j) <-> 0 @@ -584,7 +584,7 @@ subroutine psb_dmlprc_aply(alpha,baseprecv,x,beta,y,desc_data,trans,work,info) ! 5. DO ILEV=NLEV-1,1,-1 ! Y(ILEV) = Y(ILEV) + AV(PR_SM_,ILEV+1)*Y(ILEV+1) ! Y(ILEV) = Y(ILEV) + (K(ILEV)**(-1))*(X(ILEV)-A(ILEV)*Y(ILEV)) - ! 6. Yext = beta*Yext + Y(1) + ! 6. Yext = beta*Yext + alpha*Y(1) ! ! Note: level numbering reversed wrt ref. DD, i.e. ! 1..NLEV <=> (j) <-> 0 diff --git a/src/prec/psb_dmlprc_bld.f90 b/src/prec/psb_dmlprc_bld.f90 index 2244494c..8a5b1c09 100644 --- a/src/prec/psb_dmlprc_bld.f90 +++ b/src/prec/psb_dmlprc_bld.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_dprc_aply.f90 b/src/prec/psb_dprc_aply.f90 index 8686d852..588b5ec7 100644 --- a/src/prec/psb_dprc_aply.f90 +++ b/src/prec/psb_dprc_aply.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without @@ -156,7 +156,7 @@ end subroutine psb_dprc_aply !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_dprecbld.f90 b/src/prec/psb_dprecbld.f90 index 03dc1cbd..a0d0af84 100644 --- a/src/prec/psb_dprecbld.f90 +++ b/src/prec/psb_dprecbld.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_dprecfree.f90 b/src/prec/psb_dprecfree.f90 index 1cb973b9..d6003d51 100644 --- a/src/prec/psb_dprecfree.f90 +++ b/src/prec/psb_dprecfree.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_dprecset.f90 b/src/prec/psb_dprecset.f90 index e0f5595d..63b3e3f7 100644 --- a/src/prec/psb_dprecset.f90 +++ b/src/prec/psb_dprecset.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_dslu_bld.f90 b/src/prec/psb_dslu_bld.f90 index b569fc82..4da81eb2 100644 --- a/src/prec/psb_dslu_bld.f90 +++ b/src/prec/psb_dslu_bld.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_dsp_renum.f90 b/src/prec/psb_dsp_renum.f90 index 5282d141..79cea844 100644 --- a/src/prec/psb_dsp_renum.f90 +++ b/src/prec/psb_dsp_renum.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_dumf_bld.f90 b/src/prec/psb_dumf_bld.f90 index 0bd5e73a..fe902bc7 100644 --- a/src/prec/psb_dumf_bld.f90 +++ b/src/prec/psb_dumf_bld.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_slu_impl.c b/src/prec/psb_slu_impl.c index c23ff6e9..8f30048c 100644 --- a/src/prec/psb_slu_impl.c +++ b/src/prec/psb_slu_impl.c @@ -6,7 +6,7 @@ * * (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata * Alfredo Buttari - * Daniela Di Serafino II University of Naples + * Daniela di Serafino Second University of Naples * Pasqua D'Ambra ICAR-CNR * * Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_umf_impl.c b/src/prec/psb_umf_impl.c index 14eb00cd..9dfd033f 100644 --- a/src/prec/psb_umf_impl.c +++ b/src/prec/psb_umf_impl.c @@ -6,7 +6,7 @@ * * (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata * Alfredo Buttari - * Daniela Di Serafino II University of Naples + * Daniela di Serafino Second University of Naples * Pasqua D'Ambra ICAR-CNR * * Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zasmatbld.f90 b/src/prec/psb_zasmatbld.f90 index 6a61a677..b129c987 100644 --- a/src/prec/psb_zasmatbld.f90 +++ b/src/prec/psb_zasmatbld.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zbaseprc_aply.f90 b/src/prec/psb_zbaseprc_aply.f90 index 35f117c6..bd70c142 100644 --- a/src/prec/psb_zbaseprc_aply.f90 +++ b/src/prec/psb_zbaseprc_aply.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zbaseprc_bld.f90 b/src/prec/psb_zbaseprc_bld.f90 index e95fa173..7a0ac640 100644 --- a/src/prec/psb_zbaseprc_bld.f90 +++ b/src/prec/psb_zbaseprc_bld.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zbjac_aply.f90 b/src/prec/psb_zbjac_aply.f90 index 9442a7a2..e98e9ddf 100644 --- a/src/prec/psb_zbjac_aply.f90 +++ b/src/prec/psb_zbjac_aply.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zbldaggrmat.f90 b/src/prec/psb_zbldaggrmat.f90 index 069de67f..05ad72ea 100644 --- a/src/prec/psb_zbldaggrmat.f90 +++ b/src/prec/psb_zbldaggrmat.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zdiagsc_bld.f90 b/src/prec/psb_zdiagsc_bld.f90 index 7dd24efb..567b8a87 100644 --- a/src/prec/psb_zdiagsc_bld.f90 +++ b/src/prec/psb_zdiagsc_bld.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zgenaggrmap.f90 b/src/prec/psb_zgenaggrmap.f90 index 56f826d1..cf8905e1 100644 --- a/src/prec/psb_zgenaggrmap.f90 +++ b/src/prec/psb_zgenaggrmap.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zilu_bld.f90 b/src/prec/psb_zilu_bld.f90 index d10336fc..4043a4c8 100644 --- a/src/prec/psb_zilu_bld.f90 +++ b/src/prec/psb_zilu_bld.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zilu_fct.f90 b/src/prec/psb_zilu_fct.f90 index a15e292d..95ff5e83 100644 --- a/src/prec/psb_zilu_fct.f90 +++ b/src/prec/psb_zilu_fct.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zmlprc_aply.f90 b/src/prec/psb_zmlprc_aply.f90 index f2dd3551..5b04ee84 100644 --- a/src/prec/psb_zmlprc_aply.f90 +++ b/src/prec/psb_zmlprc_aply.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without @@ -164,10 +164,10 @@ subroutine psb_zmlprc_aply(alpha,baseprecv,x,beta,y,desc_data,trans,work,info) ! 1. X(1) = Xext ! 2. DO ILEV=2,NLEV ! X(ILEV) = AV(PR_SM_T_)*X(ILEV-1) - ! 3. Y(ILEV) = (K(ILEV)**(-1))*X(ILEV) - ! 4. DO ILEV=NLEV-1,1,-1 + ! Y(ILEV) = (K(ILEV)**(-1))*X(ILEV) + ! 3. DO ILEV=NLEV-1,1,-1 ! Y(ILEV) = AV(PR_SM_)*Y(ILEV+1) - ! 5. Yext = beta*Yext + Y(1) + ! 4. Yext = beta*Yext + alpha*Y(1) ! ! Note: level numbering reversed wrt ref. DD, i.e. ! 1..NLEV <=> (j) <-> 0 @@ -293,12 +293,12 @@ subroutine psb_zmlprc_aply(alpha,baseprecv,x,beta,y,desc_data,trans,work,info) ! Y(ILEV) = AV(PR_SM_,ILEV+1)*Y(ILEV+1) ! Y(ILEV) = Y(ILEV) + (K(ILEV)**(-1))*(X(ILEV)-A(ILEV)*Y(ILEV)) ! - ! 5. Yext = beta*Yext + Y(1) + ! 5. Yext = beta*Yext + alpha*Y(1) ! ! Note: level numbering reversed wrt ref. DD, i.e. ! 1..NLEV <=> (j) <-> 0 ! - ! Also: post smoothing is not spelled out in detail in DD. + ! Also: post smoothing in the ref. DD is only presented for NLEV=2. ! ! @@ -432,7 +432,7 @@ subroutine psb_zmlprc_aply(alpha,baseprecv,x,beta,y,desc_data,trans,work,info) ! TX(ILEV) = (X(ILEV)-A(ILEV)*Y(ILEV)) ! 5. DO ILEV=NLEV-1,1,-1 ! Y(ILEV) = Y(ILEV) + AV(PR_SM_,ILEV+1)*Y(ILEV+1) - ! 6. Yext = beta*Yext + Y(1) + ! 6. Yext = beta*Yext + alpha*Y(1) ! ! Note: level numbering reversed wrt ref. DD, i.e. ! 1..NLEV <=> (j) <-> 0 @@ -583,7 +583,7 @@ subroutine psb_zmlprc_aply(alpha,baseprecv,x,beta,y,desc_data,trans,work,info) ! 5. DO ILEV=NLEV-1,1,-1 ! Y(ILEV) = Y(ILEV) + AV(PR_SM_,ILEV+1)*Y(ILEV+1) ! Y(ILEV) = Y(ILEV) + (K(ILEV)**(-1))*(X(ILEV)-A(ILEV)*Y(ILEV)) - ! 6. Yext = beta*Yext + Y(1) + ! 6. Yext = beta*Yext + alpha*Y(1) ! ! Note: level numbering reversed wrt ref. DD, i.e. ! 1..NLEV <=> (j) <-> 0 diff --git a/src/prec/psb_zmlprc_bld.f90 b/src/prec/psb_zmlprc_bld.f90 index 48741003..233e3172 100644 --- a/src/prec/psb_zmlprc_bld.f90 +++ b/src/prec/psb_zmlprc_bld.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zprc_aply.f90 b/src/prec/psb_zprc_aply.f90 index 253afaaf..0b68a765 100644 --- a/src/prec/psb_zprc_aply.f90 +++ b/src/prec/psb_zprc_aply.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without @@ -156,7 +156,7 @@ end subroutine psb_zprc_aply !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zprecbld.f90 b/src/prec/psb_zprecbld.f90 index 53b799ba..c1a79406 100644 --- a/src/prec/psb_zprecbld.f90 +++ b/src/prec/psb_zprecbld.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zprecfree.f90 b/src/prec/psb_zprecfree.f90 index 48d4761f..d7e0bb74 100644 --- a/src/prec/psb_zprecfree.f90 +++ b/src/prec/psb_zprecfree.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zprecset.f90 b/src/prec/psb_zprecset.f90 index ca52dc25..79936a91 100644 --- a/src/prec/psb_zprecset.f90 +++ b/src/prec/psb_zprecset.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zslu_bld.f90 b/src/prec/psb_zslu_bld.f90 index eedd15f9..43c308ed 100644 --- a/src/prec/psb_zslu_bld.f90 +++ b/src/prec/psb_zslu_bld.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zslu_impl.c b/src/prec/psb_zslu_impl.c index b084ff04..09818515 100644 --- a/src/prec/psb_zslu_impl.c +++ b/src/prec/psb_zslu_impl.c @@ -6,7 +6,7 @@ * * (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata * Alfredo Buttari - * Daniela Di Serafino II University of Naples + * Daniela di Serafino Second University of Naples * Pasqua D'Ambra ICAR-CNR * * Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zsp_renum.f90 b/src/prec/psb_zsp_renum.f90 index d7ec8602..75506bfd 100644 --- a/src/prec/psb_zsp_renum.f90 +++ b/src/prec/psb_zsp_renum.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zumf_bld.f90 b/src/prec/psb_zumf_bld.f90 index 94e2183e..25686d2e 100644 --- a/src/prec/psb_zumf_bld.f90 +++ b/src/prec/psb_zumf_bld.f90 @@ -6,7 +6,7 @@ !!$ Parallel Sparse BLAS v2.0 !!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata !!$ Alfredo Buttari University of Rome Tor Vergata -!!$ Daniela Di Serafino II University of Naples +!!$ Daniela di Serafino Second University of Naples !!$ Pasqua D'Ambra ICAR-CNR !!$ !!$ Redistribution and use in source and binary forms, with or without diff --git a/src/prec/psb_zumf_impl.c b/src/prec/psb_zumf_impl.c index 618056bb..f8d7767b 100644 --- a/src/prec/psb_zumf_impl.c +++ b/src/prec/psb_zumf_impl.c @@ -6,7 +6,7 @@ * * (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata * Alfredo Buttari - * Daniela Di Serafino II University of Naples + * Daniela di Serafino Second University of Naples * Pasqua D'Ambra ICAR-CNR * * Redistribution and use in source and binary forms, with or without