24 integer(kind=kint) :: INITIALIZED = 0
30 select case(hecmat%NDOF)
44 select case(hecmat%NDOF)
64 real(kind=
kreal),
intent(in) :: x(:)
65 real(kind=
kreal),
intent(out) :: y(:)
66 real(kind=
kreal),
intent(inout) :: commtime
67 select case(hecmat%NDOF)
Jagged Diagonal Matrix storage for vector processors. Original code was provided by JAMSTEC.
subroutine, public hecmw_jad_init_33(hecmat)
subroutine, public hecmw_jad_matvec_33(hecmesh, hecmat, x, y, commtime)
subroutine, public hecmw_jad_finalize_33()
Jagged Diagonal Matrix storage for vector processors. Original code was provided by JAMSTEC.
subroutine, public hecmw_jad_init_44(hecmat)
subroutine, public hecmw_jad_finalize_44()
subroutine, public hecmw_jad_matvec_44(hecmesh, hecmat, x, y, commtime)
Jagged Diagonal Matrix storage for vector processors. Original code was provided by JAMSTEC.
subroutine, public hecmw_jad_matvec_nn(hecmesh, hecmat, x, y, commtime)
subroutine, public hecmw_jad_finalize_nn()
subroutine, public hecmw_jad_init_nn(hecmat)
Jagged Diagonal Matrix storage for vector processors. Original code was provided by JAMSTEC.
subroutine, public hecmw_jad_init(hecmat)
integer(kind=kint) function, public hecmw_jad_is_initialized()
subroutine, public hecmw_jad_matvec(hecmesh, hecmat, x, y, commtime)
subroutine, public hecmw_jad_finalize(hecmat)
integer(kind=4), parameter kreal