© Numerical Algorithms Group, 2002.

f04qaf_aprod User Supplied Function Description

             [NAGWare Gateway Generator]

Copyright (c) 1993 by the Numerical Algorithms Group Ltd

aprod
(see also f04qaf) 


mode                                  integer
m                                     integer
n                                     integer
x (n)                                 real
y (m)                                 real

[mode,x,y] = aprod(mode,m,n,x,y)


 function [mode,x,y] = aprod(mode,m,n,x,y)