fill()

int f77interface::fill

(

const aff::Array< int > &

fa

)

interface function to Fortran77 subroutine fill

fill an AFF array thorugh a Fortran subroutine

An aff::Array<int> object is passed to the Fortran subroutine fill and is filled with values there. The concept is discussed on page "\ref page_fortran".

Examples:

tests/f77test.cc.

Definition at line 89 of file f77interface.cc.

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

Referenced by main().

{
  aff::FortranArray<aff::Array<int> > fa(a);
  integer* pa=fa.castedpointer<integer>();
  integer n1=fa.last(0);
  integer n2=fa.last(1);
  integer n3=fa.last(2);
  integer l1=fa.dimlast(0);
  integer l2=fa.dimlast(1);
  integer l3=fa.dimlast(2);
  return(fill_(pa, &l1, &n1, &l2, &n2, &l3, &n3));
}

Here is the call graph for this function:

Here is the caller graph for this function: