outerprod Function

public function outerprod(a, b)

Calculates outer product

Arguments

Type IntentOptional AttributesName
real(kind=double), intent(in), dimension(:):: a
real(kind=double), intent(in), dimension(:):: b

Return Value real(kind=double), dimension(size(a),size(b))


Called by

proc~~outerprod~~CalledByGraph proc~outerprod outerprod proc~ludcmp ludcmp proc~ludcmp->proc~outerprod proc~matinv matinv proc~matinv->proc~ludcmp proc~colrad colrad proc~colrad->proc~matinv proc~fida_weights_los fida_weights_los proc~fida_weights_los->proc~colrad proc~attenuate attenuate proc~attenuate->proc~colrad proc~npa_weights npa_weights proc~npa_weights->proc~attenuate proc~npa_f npa_f proc~npa_f->proc~attenuate program~fidasim fidasim program~fidasim->proc~fida_weights_los program~fidasim->proc~npa_weights program~fidasim->proc~npa_f proc~npa_mc npa_mc program~fidasim->proc~npa_mc proc~npa_mc->proc~attenuate

Contents

Source Code


Source Code

  function outerprod(a,b)
    !+ Calculates outer product
    real(double), dimension(:), intent(IN)   :: a,b
    real(double), dimension(size(a),size(b)) :: outerprod
    outerprod = spread(a,dim=2,ncopies=size(b)) * &
         spread(b,dim=1,ncopies=size(a))
  end function outerprod