scpr Function

  1. util.f90
  2. scpr

function scpr(a, x, y, n)

Arguments

Type IntentOptional AttributesName
real :: a
real :: x
real :: y
integer :: n

Return Value real


Called by

proc~~scpr~~CalledByGraph proc~scpr scpr proc~formr formR proc~formr->proc~scpr proc~funct funct proc~funct->proc~scpr proc~rsol rsol proc~rsol->proc~scpr proc~re_factor~2 re_factor proc~re_factor~2->proc~scpr proc~aqsol~3 aqsol proc~aqsol~3->proc~scpr proc~glcpd glcpd proc~glcpd->proc~scpr proc~glcpd->proc~funct proc~factor factor proc~factor->proc~scpr proc~check check proc~check->proc~scpr proc~check->proc~funct proc~check1 check1 proc~check1->proc~scpr proc~filter_sd filter_SD proc~filter_sd->proc~scpr proc~qtprod Qtprod proc~qtprod->proc~scpr proc~tfbsub~2 tfbsub proc~tfbsub~2->proc~scpr proc~l1sold l1sold proc~l1sold->proc~scpr proc~aqsol0 aqsol0 proc~aqsol0->proc~scpr proc~factor~2 factor proc~factor~2->proc~scpr proc~updateqr updateQR proc~updateqr->proc~scpr proc~pivot~2 pivot proc~pivot~2->proc~scpr proc~setfg2 setfg2 proc~setfg2->proc~scpr proc~aqsol aqsol proc~aqsol->proc~scpr proc~aqsol->proc~rsol proc~aqsol->proc~qtprod proc~aqsol->proc~aqsol0 proc~aiscpr~2 aiscpr proc~aiscpr~2->proc~scpr proc~ailen~2 ailen proc~ailen~2->proc~scpr proc~checkq checkq proc~checkq->proc~scpr proc~checkq->proc~setfg2 proc~aqsol~2 aqsol proc~aqsol~2->proc~scpr proc~qlcpd qlcpd proc~qlcpd->proc~scpr proc~qlcpd->proc~setfg2 proc~updatese updateSE proc~updatese->proc~aqsol proc~checkg checkg proc~checkg->proc~funct

Contents

Source Code

scpr

Source Code

      function scpr(a,x,y,n)
      implicit double precision (a-h,o-z)
      dimension x(*),y(*)
      scpr=a
      do i=1,n
        scpr=scpr+x(i)*y(i)
      end do
      end function scpr