fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
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

Cray FTN does not like interface name same as subroutine name.
psblas3-type-indexed
Salvatore Filippone 13 years ago
parent 42815ef9f0
commit a68120d320
4 changed files with 32 additions and 32 deletions
Show Stats Download Patch File Download Diff File

16
prec/psb_c_prec_type.f90
Unescape Escape View File

@ -69,7 +69,7 @@ module psb_c_prec_type
module procedure psb_cprec_sizeof
end interface
interface psb_c_apply2_vect
interface
subroutine psb_c_apply2_vect(prec,x,y,desc_data,info,trans,work)
import :: psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
@ -80,9 +80,9 @@ module psb_c_prec_type
character(len=1), optional :: trans
complex(psb_spk_),intent(inout), optional, target :: work(:)
end subroutine psb_c_apply2_vect
end interface psb_c_apply2_vect
end interface
interface psb_c_apply1_vect
interface
subroutine psb_c_apply1_vect(prec,x,desc_data,info,trans,work)
import :: psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
@ -92,9 +92,9 @@ module psb_c_prec_type
character(len=1), optional :: trans
complex(psb_spk_),intent(inout), optional, target :: work(:)
end subroutine psb_c_apply1_vect
end interface psb_c_apply1_vect
end interface
interface psb_c_apply2v
interface
subroutine psb_c_apply2v(prec,x,y,desc_data,info,trans,work)
import :: psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
@ -105,9 +105,9 @@ module psb_c_prec_type
character(len=1), optional :: trans
complex(psb_spk_),intent(inout), optional, target :: work(:)
end subroutine psb_c_apply2v
end interface psb_c_apply2v
end interface
interface psb_c_apply1v
interface
subroutine psb_c_apply1v(prec,x,desc_data,info,trans)
import :: psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
@ -116,7 +116,7 @@ module psb_c_prec_type
integer, intent(out) :: info
character(len=1), optional :: trans
end subroutine psb_c_apply1v
end interface psb_c_apply1v
end interface
contains

16
prec/psb_d_prec_type.f90
Unescape Escape View File

@ -69,7 +69,7 @@ module psb_d_prec_type
module procedure psb_dprec_sizeof
end interface
interface psb_d_apply2_vect
interface
subroutine psb_d_apply2_vect(prec,x,y,desc_data,info,trans,work)
import :: psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
@ -80,9 +80,9 @@ module psb_d_prec_type
character(len=1), optional :: trans
real(psb_dpk_),intent(inout), optional, target :: work(:)
end subroutine psb_d_apply2_vect
end interface psb_d_apply2_vect
end interface
interface psb_d_apply1_vect
interface
subroutine psb_d_apply1_vect(prec,x,desc_data,info,trans,work)
import :: psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
@ -92,9 +92,9 @@ module psb_d_prec_type
character(len=1), optional :: trans
real(psb_dpk_),intent(inout), optional, target :: work(:)
end subroutine psb_d_apply1_vect
end interface psb_d_apply1_vect
end interface
interface psb_d_apply2v
interface
subroutine psb_d_apply2v(prec,x,y,desc_data,info,trans,work)
import :: psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
@ -105,9 +105,9 @@ module psb_d_prec_type
character(len=1), optional :: trans
real(psb_dpk_),intent(inout), optional, target :: work(:)
end subroutine psb_d_apply2v
end interface psb_d_apply2v
end interface
interface psb_d_apply1v
interface
subroutine psb_d_apply1v(prec,x,desc_data,info,trans)
import :: psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
@ -116,7 +116,7 @@ module psb_d_prec_type
integer, intent(out) :: info
character(len=1), optional :: trans
end subroutine psb_d_apply1v
end interface psb_d_apply1v
end interface
contains

16
prec/psb_s_prec_type.f90
Unescape Escape View File

@ -69,7 +69,7 @@ module psb_s_prec_type
module procedure psb_sprec_sizeof
end interface
interface psb_s_apply2_vect
interface
subroutine psb_s_apply2_vect(prec,x,y,desc_data,info,trans,work)
import :: psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
@ -80,9 +80,9 @@ module psb_s_prec_type
character(len=1), optional :: trans
real(psb_spk_),intent(inout), optional, target :: work(:)
end subroutine psb_s_apply2_vect
end interface psb_s_apply2_vect
end interface
interface psb_s_apply1_vect
interface
subroutine psb_s_apply1_vect(prec,x,desc_data,info,trans,work)
import :: psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
@ -92,9 +92,9 @@ module psb_s_prec_type
character(len=1), optional :: trans
real(psb_spk_),intent(inout), optional, target :: work(:)
end subroutine psb_s_apply1_vect
end interface psb_s_apply1_vect
end interface
interface psb_s_apply2v
interface
subroutine psb_s_apply2v(prec,x,y,desc_data,info,trans,work)
import :: psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
@ -105,9 +105,9 @@ module psb_s_prec_type
character(len=1), optional :: trans
real(psb_spk_),intent(inout), optional, target :: work(:)
end subroutine psb_s_apply2v
end interface psb_s_apply2v
end interface
interface psb_s_apply1v
interface
subroutine psb_s_apply1v(prec,x,desc_data,info,trans)
import :: psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
@ -116,7 +116,7 @@ module psb_s_prec_type
integer, intent(out) :: info
character(len=1), optional :: trans
end subroutine psb_s_apply1v
end interface psb_s_apply1v
end interface
contains

16
prec/psb_z_prec_type.f90
Unescape Escape View File

@ -69,7 +69,7 @@ module psb_z_prec_type
module procedure psb_zprec_sizeof
end interface
interface psb_z_apply2_vect
interface
subroutine psb_z_apply2_vect(prec,x,y,desc_data,info,trans,work)
import :: psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
@ -80,9 +80,9 @@ module psb_z_prec_type
character(len=1), optional :: trans
complex(psb_dpk_),intent(inout), optional, target :: work(:)
end subroutine psb_z_apply2_vect
end interface psb_z_apply2_vect
end interface
interface psb_z_apply1_vect
interface
subroutine psb_z_apply1_vect(prec,x,desc_data,info,trans,work)
import :: psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
@ -92,9 +92,9 @@ module psb_z_prec_type
character(len=1), optional :: trans
complex(psb_dpk_),intent(inout), optional, target :: work(:)
end subroutine psb_z_apply1_vect
end interface psb_z_apply1_vect
end interface
interface psb_z_apply2v
interface
subroutine psb_z_apply2v(prec,x,y,desc_data,info,trans,work)
import :: psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
@ -105,9 +105,9 @@ module psb_z_prec_type
character(len=1), optional :: trans
complex(psb_dpk_),intent(inout), optional, target :: work(:)
end subroutine psb_z_apply2v
end interface psb_z_apply2v
end interface
interface psb_z_apply1v
interface
subroutine psb_z_apply1v(prec,x,desc_data,info,trans)
import :: psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
@ -116,7 +116,7 @@ module psb_z_prec_type
integer, intent(out) :: info
character(len=1), optional :: trans
end subroutine psb_z_apply1v
end interface psb_z_apply1v
end interface
contains

Write Preview
Loading…
Cancel
Save