X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2Fxdrf%2Fftocstr.c;fp=source%2Fcluster%2Fwham%2Fsrc-M%2Fxdrf%2Fftocstr.c;h=0000000000000000000000000000000000000000;hp=ed2113f64db93b63b7555577dd3805f60bc76f81;hb=9453fc761eb545fcb727824c94d012dbf3931951;hpb=6f521277aa2a382d409f5189957283b0998b0d07

diff --git a/source/cluster/wham/src-M/xdrf/ftocstr.c b/source/cluster/wham/src-M/xdrf/ftocstr.c
deleted file mode 100644
index ed2113f..0000000
--- a/source/cluster/wham/src-M/xdrf/ftocstr.c
+++ /dev/null
@@ -1,35 +0,0 @@
-
-
-int ftocstr(ds, dl, ss, sl)
-    char *ds, *ss;      /* dst, src ptrs */
-    int dl;             /* dst max len */
-    int sl;             /* src len */
-{
-    char *p;
-
-    for (p = ss + sl; --p >= ss && *p == ' '; ) ;
-    sl = p - ss + 1;
-    dl--;
-    ds[0] = 0;
-    if (sl > dl)
-        return 1;
-    while (sl--)
-	(*ds++ = *ss++);
-    *ds = '\0';
-    return 0;
-}
-
-
-int ctofstr(ds, dl, ss)
-	char *ds;		/* dest space */
-	int dl;			/* max dest length */
-	char *ss;		/* src string (0-term) */
-{
-    while (dl && *ss) {
-	*ds++ = *ss++;
-	dl--;
-    }
-    while (dl--)
-	*ds++ = ' ';
-    return 0;
-}