C++ (Cpp) G77_link_0の例

コード例 #1

ファイル: link_.c プロジェクト: sharugupta/OpenUH

/* Provide subroutine interface too */
void
pathf90_link(const char *path1, const char *path2, int *status,
  const ftnlen Lpath1, const ftnlen Lpath2)
{
	int junk;
	status = (0 == status) ? (&junk) : status;
	*status = G77_link_0(path1, path2, Lpath1, Lpath2);
}

コード例 #2

ファイル: f2cext.c プロジェクト: akbertram/egcs-jvm

integer link_ (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2) {
    extern integer G77_link_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2);
    return G77_link_0 (path1, path2, Lpath1, Lpath2);
}