sums()

Tcarray f77interface::sums

(

)

read from common block through Fortran subroutine

returns results from Fortran subroutine sums

The Fortran subroutine sums calculates column-sums from the array in the common block. These values are return in an

aff::Array<std::complex<float> > 

object.

The concept is discussed on page "\ref page_fortran".

Examples:

tests/f77test.cc.

Definition at line 119 of file f77interface.cc.

References aff::FortranArray< C >::castedpointer(), and aff::subarray().

Referenced by main().

{
  typedef Tcarray::Tvalue Tcvalue;
  // prepare array that is large enough
  integer maxa,maxb;
  comdim_(&maxa, &maxb);
  Tcarray result(maxa);
  // prepare Fortran view
  aff::FortranArray<Tcarray> fa(result);
  complex* p=fa.castedpointer<complex>();
  integer size;
  sums_(p, &maxa, &size);
  return(aff::subarray(result)(size));
}

Here is the call graph for this function:

Here is the caller graph for this function: