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