Argument Definitions (+ indicates altered content) INTEGER N REAL*8 DX(*), +DY(*)
Description * Copyright (C) 1996 Leif Laaksonen, Dage Sundholm * Copyright (C) 1996-2010 Jacek Kobus* * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2 as * published by the Free Software Foundation. * * ### add ### a vector plus a vector: dy(i)=dx(i)+dy(i), i=1..n
Source file: util.f
Local Variables (+ indicates altered content) INTEGER +I
Argument Definitions (+ indicates altered content) INTEGER N REAL*8 DX(*), +DY(*)
Description ### prod ### a vector times a vector: dy(i)=dx(i)*dy(i), i=1..n
Source file: util.f
Local Variables (+ indicates altered content) INTEGER +I
Argument Definitions (+ indicates altered content) INTEGER N REAL*8 +DR(*), DX(*), DY(*)
Description ### prod2 ### a vector times a vector: dr(i)=dx(i)*dy(i), i=1..n
Source file: util.f
Local Variables (+ indicates altered content) INTEGER +I
Argument Definitions (+ indicates altered content) INTEGER N REAL*8 +DR(*), DX(*), DY(*)
Description ### proda ### a vector times a vector: dr(i)=dx(i)*dy(i)+r(i), i=1..n
Source file: util.f
Local Variables (+ indicates altered content) INTEGER +I
Argument Definitions (+ indicates altered content) INTEGER N REAL*8 +DR(*), DX(*), DY(*), S
Description ### prodas ### a vector times a vector: dr(i)=s*dx(i)*dy(i)+dr(i), i=1..n
Source file: util.f
Local Variables (+ indicates altered content) INTEGER +I