fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
prec/psb_c_prec_type.f90
 prec/psb_d_prec_type.f90
 prec/psb_s_prec_type.f90
 prec/psb_z_prec_type.f90
 test/fileread/cf_sample.f90
 test/fileread/df_sample.f90
 test/fileread/sf_sample.f90
 test/fileread/zf_sample.f90
 test/pargen/ppde.f90
 test/pargen/runs/ppde.inp
 test/pargen/spde.f90

Made prec_sizeof into a method of prec.
This commit is contained in:
Salvatore Filippone
2012-02-07 15:54:02 +00:00
parent 419e5b4af5
commit 204faaba12
11 changed files with 33 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/psb_c_prec_type.f90
+3 -2
View File
@@ -47,6 +47,7 @@ module psb_c_prec_type
procedure, pass(prec) :: psb_c_apply1v
generic, public :: apply => psb_c_apply2v, psb_c_apply1v,&
& psb_c_apply1_vect, psb_c_apply2_vect
procedure, pass(prec) :: sizeof => psb_cprec_sizeof
end type psb_cprec_type
interface psb_precfree
@@ -195,9 +196,9 @@ contains
type(psb_cprec_type), intent(inout) :: p
end subroutine psb_nullify_cprec
function psb_cprec_sizeof(prec) result(val)
type(psb_cprec_type), intent(in) :: prec
class(psb_cprec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
integer(psb_ipk_) :: i
prec/psb_d_prec_type.f90
+3 -2
View File
@@ -47,6 +47,7 @@ module psb_d_prec_type
procedure, pass(prec) :: psb_d_apply1v
generic, public :: apply => psb_d_apply2v, psb_d_apply1v,&
& psb_d_apply1_vect, psb_d_apply2_vect
procedure, pass(prec) :: sizeof => psb_dprec_sizeof
end type psb_dprec_type
interface psb_precfree
@@ -195,9 +196,9 @@ contains
type(psb_dprec_type), intent(inout) :: p
end subroutine psb_nullify_cprec
function psb_dprec_sizeof(prec) result(val)
type(psb_dprec_type), intent(in) :: prec
class(psb_dprec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
integer(psb_ipk_) :: i
prec/psb_s_prec_type.f90
+3 -2
View File
@@ -47,6 +47,7 @@ module psb_s_prec_type
procedure, pass(prec) :: psb_s_apply1v
generic, public :: apply => psb_s_apply2v, psb_s_apply1v,&
& psb_s_apply1_vect, psb_s_apply2_vect
procedure, pass(prec) :: sizeof => psb_sprec_sizeof
end type psb_sprec_type
interface psb_precfree
@@ -195,9 +196,9 @@ contains
type(psb_sprec_type), intent(inout) :: p
end subroutine psb_nullify_cprec
function psb_sprec_sizeof(prec) result(val)
type(psb_sprec_type), intent(in) :: prec
class(psb_sprec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
integer(psb_ipk_) :: i
prec/psb_z_prec_type.f90
+3 -2
View File
@@ -47,6 +47,7 @@ module psb_z_prec_type
procedure, pass(prec) :: psb_z_apply1v
generic, public :: apply => psb_z_apply2v, psb_z_apply1v,&
& psb_z_apply1_vect, psb_z_apply2_vect
procedure, pass(prec) :: sizeof => psb_zprec_sizeof
end type psb_zprec_type
interface psb_precfree
@@ -195,9 +196,9 @@ contains
type(psb_zprec_type), intent(inout) :: p
end subroutine psb_nullify_cprec
function psb_zprec_sizeof(prec) result(val)
type(psb_zprec_type), intent(in) :: prec
class(psb_zprec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
integer(psb_ipk_) :: i