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 11 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 function psb_camax_vect
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_genrmi interface psb_genrmi
procedure psb_camax, psb_camaxv, psb_camax_vect procedure psb_camax, psb_camaxv, psb_camax_vect
end interface end interface
@ -220,7 +220,7 @@ module psb_c_psblas_mod
end subroutine psb_cmasum end subroutine psb_cmasum
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_genrm1 interface psb_genrm1
procedure psb_casum, psb_casumv, psb_casum_vect procedure psb_casum, psb_casumv, psb_casum_vect
end interface end interface
@ -257,7 +257,7 @@ module psb_c_psblas_mod
end function psb_cnrm2_vect end function psb_cnrm2_vect
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_norm2 interface psb_norm2
procedure psb_cnrm2, psb_cnrm2v, psb_cnrm2_vect procedure psb_cnrm2, psb_cnrm2v, psb_cnrm2_vect
end interface end interface
@ -286,7 +286,7 @@ module psb_c_psblas_mod
end function psb_cnrmi end function psb_cnrmi
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_normi interface psb_normi
procedure psb_cnrmi procedure psb_cnrmi
end interface end interface
@ -303,7 +303,7 @@ module psb_c_psblas_mod
end function psb_cspnrm1 end function psb_cspnrm1
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_norm1 interface psb_norm1
procedure psb_cspnrm1 procedure psb_cspnrm1
end interface 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 function psb_damax_vect
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_genrmi interface psb_genrmi
procedure psb_damax, psb_damaxv, psb_damax_vect procedure psb_damax, psb_damaxv, psb_damax_vect
end interface end interface
@ -220,7 +220,7 @@ module psb_d_psblas_mod
end subroutine psb_dmasum end subroutine psb_dmasum
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_genrm1 interface psb_genrm1
procedure psb_dasum, psb_dasumv, psb_dasum_vect procedure psb_dasum, psb_dasumv, psb_dasum_vect
end interface end interface
@ -257,7 +257,7 @@ module psb_d_psblas_mod
end function psb_dnrm2_vect end function psb_dnrm2_vect
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_norm2 interface psb_norm2
procedure psb_dnrm2, psb_dnrm2v, psb_dnrm2_vect procedure psb_dnrm2, psb_dnrm2v, psb_dnrm2_vect
end interface end interface
@ -286,7 +286,7 @@ module psb_d_psblas_mod
end function psb_dnrmi end function psb_dnrmi
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_normi interface psb_normi
procedure psb_dnrmi procedure psb_dnrmi
end interface end interface
@ -303,7 +303,7 @@ module psb_d_psblas_mod
end function psb_dspnrm1 end function psb_dspnrm1
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_norm1 interface psb_norm1
procedure psb_dspnrm1 procedure psb_dspnrm1
end interface 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 function psb_samax_vect
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_genrmi interface psb_genrmi
procedure psb_samax, psb_samaxv, psb_samax_vect procedure psb_samax, psb_samaxv, psb_samax_vect
end interface end interface
@ -220,7 +220,7 @@ module psb_s_psblas_mod
end subroutine psb_smasum end subroutine psb_smasum
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_genrm1 interface psb_genrm1
procedure psb_sasum, psb_sasumv, psb_sasum_vect procedure psb_sasum, psb_sasumv, psb_sasum_vect
end interface end interface
@ -257,7 +257,7 @@ module psb_s_psblas_mod
end function psb_snrm2_vect end function psb_snrm2_vect
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_norm2 interface psb_norm2
procedure psb_snrm2, psb_snrm2v, psb_snrm2_vect procedure psb_snrm2, psb_snrm2v, psb_snrm2_vect
end interface end interface
@ -286,7 +286,7 @@ module psb_s_psblas_mod
end function psb_snrmi end function psb_snrmi
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_normi interface psb_normi
procedure psb_snrmi procedure psb_snrmi
end interface end interface
@ -303,7 +303,7 @@ module psb_s_psblas_mod
end function psb_sspnrm1 end function psb_sspnrm1
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_norm1 interface psb_norm1
procedure psb_sspnrm1 procedure psb_sspnrm1
end interface 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 function psb_zamax_vect
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_genrmi interface psb_genrmi
procedure psb_zamax, psb_zamaxv, psb_zamax_vect procedure psb_zamax, psb_zamaxv, psb_zamax_vect
end interface end interface
@ -220,7 +220,7 @@ module psb_z_psblas_mod
end subroutine psb_zmasum end subroutine psb_zmasum
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_genrm1 interface psb_genrm1
procedure psb_zasum, psb_zasumv, psb_zasum_vect procedure psb_zasum, psb_zasumv, psb_zasum_vect
end interface end interface
@ -257,7 +257,7 @@ module psb_z_psblas_mod
end function psb_znrm2_vect end function psb_znrm2_vect
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_norm2 interface psb_norm2
procedure psb_znrm2, psb_znrm2v, psb_znrm2_vect procedure psb_znrm2, psb_znrm2v, psb_znrm2_vect
end interface end interface
@ -286,7 +286,7 @@ module psb_z_psblas_mod
end function psb_znrmi end function psb_znrmi
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_normi interface psb_normi
procedure psb_znrmi procedure psb_znrmi
end interface end interface
@ -303,7 +303,7 @@ module psb_z_psblas_mod
end function psb_zspnrm1 end function psb_zspnrm1
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface psb_norm1 interface psb_norm1
procedure psb_zspnrm1 procedure psb_zspnrm1
end interface end interface

2
configure vendored
Unescape Escape View File

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

2
configure.ac
Unescape Escape View File

@ -584,7 +584,7 @@ PAC_FORTRAN_TEST_VOLATILE(
PAC_FORTRAN_TEST_GENERICS( 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( 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 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 public mm_vet_read, mm_vet_write
#endif #endif
@ -110,7 +110,7 @@ module psb_mmio_mod
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface mm_vet_read interface mm_vet_read
procedure mm_svet_read, mm_dvet_read, mm_cvet_read,& procedure mm_svet_read, mm_dvet_read, mm_cvet_read,&
& mm_zvet_read, mm_svet2_read, mm_dvet2_read, & & mm_zvet_read, mm_svet2_read, mm_dvet2_read, &
@ -194,7 +194,7 @@ module psb_mmio_mod
end subroutine mm_zvet1_write end subroutine mm_zvet1_write
end interface end interface
#if ! defined(BAD_GENERICS) #if ! defined(HAVE_BUGGY_GENERICS)
interface mm_vet_write interface mm_vet_write
procedure mm_svet1_write, mm_dvet1_write, mm_cvet1_write,& procedure mm_svet1_write, mm_dvet1_write, mm_cvet1_write,&
& mm_zvet1_write, mm_svet2_write, mm_dvet2_write, & & mm_zvet1_write, mm_svet2_write, mm_dvet2_write, &

Write Preview
Loading…
Cancel
Save