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);
}