1 /* Unless compiled with -DNO_OVERWRITE, this variant of s_cat allows the
2 * target of a concatenation to appear on its right-hand side (contrary
3 * to the Fortran 77 Standard, but in accordance with Fortran 90).
11 extern char *F77_aloc();
13 extern void G77_exit_0 ();
18 extern char *F77_aloc(ftnlen
, char*);
21 #endif /* NO_OVERWRITE */
25 s_cat(lp
, rpp
, rnp
, np
, ll
) char *lp
, *rpp
[]; ftnint rnp
[], *np
; ftnlen ll
;
27 s_cat(char *lp
, char *rpp
[], ftnint rnp
[], ftnint
*np
, ftnlen ll
)
44 if (rp
>= lp1
|| rp
+ m
<= lp
) {
53 lp
= lp1
= F77_aloc(L
= ll
, "s_cat");
57 #endif /* NO_OVERWRITE */
58 for(i
= 0 ; i
< n
; ++i
) {