Qtprod Subroutine

  1. util.f90
  2. Qtprod

subroutine Qtprod(n, nmax, Q, x, b)

forms b=M'.x where Q is nxn, stored by columns, with stride nmax

Arguments

Type IntentOptional AttributesName
integer :: n
integer :: nmax
real :: Q
real :: x
real :: b

Calls

proc~~qtprod~~CallsGraph proc~qtprod Qtprod proc~scpr scpr proc~qtprod->proc~scpr

Called by

proc~~qtprod~~CalledByGraph proc~qtprod Qtprod proc~aqsol aqsol proc~aqsol->proc~qtprod proc~updatese updateSE proc~updatese->proc~aqsol

Contents

Source Code

Qtprod

Source Code

      subroutine Qtprod(n,nmax,Q,x,b)
      implicit double precision (a-h,o-z)
      dimension Q(*),x(*),b(*)
      i1=1
      do i=1,n
        b(i)=scpr(0.D0,Q(i1),x,n)
        i1=i1+nmax
      end do
      end subroutine Qtprod