swh:1:snp:3aec91c51d538d62f3f51f6a0af59fe452f330ab
Tip revision: 6e780aec172e7389965f7e64499053b5d3fc30f3 authored by Zhu Wang on 09 February 2022, 20:20:02 UTC
version 0.4-2.21
version 0.4-2.21
Tip revision: 6e780ae
outprod.f
C generate outer product between two vectors, similar to %o% in R
C input: m, x, n, y
C output: z
subroutine outprod(m, x, n, y, z)
implicit none
integer m, n, i, j
double precision x(m), y(n), z(m, n)
do 10 i=1, m
do 20 j=1, n
z(i, j) = x(i)*y(j)
20 continue
10 continue
return
end