freeblock() [1/2]

sff::FREE fapidxx::freeblock	(	integer *	nline,
		char *	lines,
		ftnlen	lines_len
	)

create C++ FREE block from Fortran FREE lines

Definition at line 150 of file helper.cc.

References stringfromfstring().

Referenced by sff_ropenfs__(), sff_rtracefi__(), sff_wopenfs__(), and sff_wtracefi__().

  {
    sff::FREE free;
    char* pfree=lines;
    for (int ifline=0; ifline<*nline; ++ifline)
    {
      free.append(stringfromfstring(pfree, lines_len));
      pfree += lines_len;
    }
    return(free);
  } // sff::FREE freeblock(integer *nline, char *lines, ftnlen lines_len)

Here is the call graph for this function:

Here is the caller graph for this function: