MULT2DS Subroutine

subroutine MULT2DS(Y, B, X, ROWPOS, COLPOS, N, LENB)

Uses

  • proc~~mult2ds~~UsesGraph proc~mult2ds MULT2DS module~real_precision REAL_PRECISION proc~mult2ds->module~real_precision

Arguments

Type IntentOptional Attributes Name
real(kind=R8), intent(out) :: Y(N)
real(kind=R8), intent(in) :: B(LENB)
real(kind=R8), intent(in) :: X(:)
integer, intent(in) :: ROWPOS(N+1)
integer, intent(in) :: COLPOS(LENB)
integer, intent(in) :: N
integer, intent(in) :: LENB

Variables

Type Visibility Attributes Name Initial
integer, public :: I
integer, public :: FIN
integer, public :: STRT
integer, public :: K
real(kind=R8), public :: TMP

Source Code

          SUBROUTINE MULT2DS(Y, B, X, ROWPOS, COLPOS, N, LENB)
            USE REAL_PRECISION
            INTEGER, INTENT (IN):: LENB, N, ROWPOS(N+1),   
     &        COLPOS(LENB)
            REAL (KIND=R8), INTENT(IN):: X(:), B(LENB)
            REAL (KIND=R8), INTENT (OUT):: Y(N)
          END SUBROUTINE MULT2DS