freeblock() [2/2]

void fapidxx::freeblock	(	const ::sff::FREE &	free,
		integer *	nline,
		char *	lines,
		integer *	lindim,
		integer *	lenmax,
		ftnlen	lines_len
	)

create Fortran FREE lines from C++ FREE bock

Definition at line 164 of file helper.cc.

References fillfstring().

  {
    int ifline=0;
    *lenmax=0;
    typedef sff::FREE::Tlines Tlines;
    Tlines::const_iterator I=free.lines.begin();
    char* pfree=lines;
    while ((I!=free.lines.end()) && (ifline< *lindim))
    {
      int linelen=static_cast<int>(I->length());
      *lenmax= *lenmax>linelen ? *lenmax : linelen;
      fillfstring(*I, pfree, lines_len);
      ++I;
      ++ifline;
      pfree += lines_len;
    }
    *nline=static_cast<integer>(ifline);
  } // freeblock(const ::sff::FREE& free,

Here is the call graph for this function: