fillarray()

int f77interface::fillarray	(	const aff::Array< float > &	v1,
		const aff::Array< float > &	v2
	)

fill common block through Fortran subroutine

fill the Fortran common-block array

Two aff::Array<float> objects are passed to the Fortran subroutine fillarray which calculates complex values from the elements of these arrays and fills the array in common-block f77common which is defined in tests/f77common.inc.

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

Examples:

tests/f77test.cc.

Definition at line 105 of file f77interface.cc.

References aff::FortranArray< C >::castedpointer(), and aff::util::FortranShape::last().

Referenced by main().

{
  aff::FortranArray<aff::Array<float> > fv1(v1),fv2(v2);
  real* p1=fv1.castedpointer<real>();
  real* p2=fv2.castedpointer<real>();
  integer n1=fv1.last(0);
  integer n2=fv2.last(0);
  return(fillarray_(p1, p2, &n1, &n2));
}

Here is the call graph for this function:

Here is the caller graph for this function: