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

psblas3

Browse Source 
base/modules/psb_c_psblas_mod.F90
 base/modules/psb_d_psblas_mod.F90
 base/modules/psb_s_psblas_mod.F90
 base/modules/psb_z_psblas_mod.F90
 configure.ac
 configure
 util/psb_mmio_mod.F90

Changed define name for Intel generics bug.
psblas-3.2.0
Salvatore Filippone 10 years ago
parent 97c5475d28
commit 3dde8d9335
7 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File

10
base/modules/psb_c_psblas_mod.F90
Unescape Escape View File

@ -144,7 +144,7 @@ module psb_c_psblas_mod
end function psb_camax_vect
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_genrmi
procedure psb_camax, psb_camaxv, psb_camax_vect
end interface
@ -220,7 +220,7 @@ module psb_c_psblas_mod
end subroutine psb_cmasum
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_genrm1
procedure psb_casum, psb_casumv, psb_casum_vect
end interface
@ -257,7 +257,7 @@ module psb_c_psblas_mod
end function psb_cnrm2_vect
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_norm2
procedure psb_cnrm2, psb_cnrm2v, psb_cnrm2_vect
end interface
@ -286,7 +286,7 @@ module psb_c_psblas_mod
end function psb_cnrmi
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_normi
procedure psb_cnrmi
end interface
@ -303,7 +303,7 @@ module psb_c_psblas_mod
end function psb_cspnrm1
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_norm1
procedure psb_cspnrm1
end interface

10
base/modules/psb_d_psblas_mod.F90
Unescape Escape View File

@ -144,7 +144,7 @@ module psb_d_psblas_mod
end function psb_damax_vect
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_genrmi
procedure psb_damax, psb_damaxv, psb_damax_vect
end interface
@ -220,7 +220,7 @@ module psb_d_psblas_mod
end subroutine psb_dmasum
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_genrm1
procedure psb_dasum, psb_dasumv, psb_dasum_vect
end interface
@ -257,7 +257,7 @@ module psb_d_psblas_mod
end function psb_dnrm2_vect
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_norm2
procedure psb_dnrm2, psb_dnrm2v, psb_dnrm2_vect
end interface
@ -286,7 +286,7 @@ module psb_d_psblas_mod
end function psb_dnrmi
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_normi
procedure psb_dnrmi
end interface
@ -303,7 +303,7 @@ module psb_d_psblas_mod
end function psb_dspnrm1
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_norm1
procedure psb_dspnrm1
end interface

10
base/modules/psb_s_psblas_mod.F90
Unescape Escape View File

@ -144,7 +144,7 @@ module psb_s_psblas_mod
end function psb_samax_vect
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_genrmi
procedure psb_samax, psb_samaxv, psb_samax_vect
end interface
@ -220,7 +220,7 @@ module psb_s_psblas_mod
end subroutine psb_smasum
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_genrm1
procedure psb_sasum, psb_sasumv, psb_sasum_vect
end interface
@ -257,7 +257,7 @@ module psb_s_psblas_mod
end function psb_snrm2_vect
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_norm2
procedure psb_snrm2, psb_snrm2v, psb_snrm2_vect
end interface
@ -286,7 +286,7 @@ module psb_s_psblas_mod
end function psb_snrmi
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_normi
procedure psb_snrmi
end interface
@ -303,7 +303,7 @@ module psb_s_psblas_mod
end function psb_sspnrm1
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_norm1
procedure psb_sspnrm1
end interface

10
base/modules/psb_z_psblas_mod.F90
Unescape Escape View File

@ -144,7 +144,7 @@ module psb_z_psblas_mod
end function psb_zamax_vect
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_genrmi
procedure psb_zamax, psb_zamaxv, psb_zamax_vect
end interface
@ -220,7 +220,7 @@ module psb_z_psblas_mod
end subroutine psb_zmasum
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_genrm1
procedure psb_zasum, psb_zasumv, psb_zasum_vect
end interface
@ -257,7 +257,7 @@ module psb_z_psblas_mod
end function psb_znrm2_vect
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_norm2
procedure psb_znrm2, psb_znrm2v, psb_znrm2_vect
end interface
@ -286,7 +286,7 @@ module psb_z_psblas_mod
end function psb_znrmi
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_normi
procedure psb_znrmi
end interface
@ -303,7 +303,7 @@ module psb_z_psblas_mod
end function psb_zspnrm1
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface psb_norm1
procedure psb_zspnrm1
end interface

2
configure vendored
Unescape Escape View File

@ -7884,7 +7884,7 @@ $as_echo "no" >&6; }
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
FDEFINES="$psblas_cv_define_prepend-DBAD_GENERICS $FDEFINES"
FDEFINES="$psblas_cv_define_prepend-DHAVE_BUGGY_GENERICS $FDEFINES"
fi
cd ..

2
configure.ac
Unescape Escape View File

@ -584,7 +584,7 @@ PAC_FORTRAN_TEST_VOLATILE(
PAC_FORTRAN_TEST_GENERICS(
[],
[FDEFINES="$psblas_cv_define_prepend-DBAD_GENERICS $FDEFINES"]
[FDEFINES="$psblas_cv_define_prepend-DHAVE_BUGGY_GENERICS $FDEFINES"]
)
PAC_FORTRAN_TEST_FLUSH(

6
util/psb_mmio_mod.F90
Unescape Escape View File

@ -38,7 +38,7 @@ module psb_mmio_mod
public mm_mat_read, mm_mat_write, mm_array_read, mm_array_write
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
public mm_vet_read, mm_vet_write
#endif
@ -110,7 +110,7 @@ module psb_mmio_mod
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface mm_vet_read
procedure mm_svet_read, mm_dvet_read, mm_cvet_read,&
& mm_zvet_read, mm_svet2_read, mm_dvet2_read, &
@ -194,7 +194,7 @@ module psb_mmio_mod
end subroutine mm_zvet1_write
end interface
#if ! defined(BAD_GENERICS)
#if ! defined(HAVE_BUGGY_GENERICS)
interface mm_vet_write
procedure mm_svet1_write, mm_dvet1_write, mm_cvet1_write,&
& mm_zvet1_write, mm_svet2_write, mm_dvet2_write, &

Write Preview
Loading…
Cancel
Save