summaryrefslogtreecommitdiff
path: root/gnu/lib/libf2c/libF77/h_indx.c
diff options
context:
space:
mode:
authorJonathan Gray <jsg@cvs.openbsd.org>2012-04-14 06:01:43 +0000
committerJonathan Gray <jsg@cvs.openbsd.org>2012-04-14 06:01:43 +0000
commit39016485a7467e1fdc62b4e77c8cecba061ecdf4 (patch)
tree8613786a5fe755a03054390640cd111f3a999494 /gnu/lib/libf2c/libF77/h_indx.c
parent7282a200e9a6f3b23c4b910ccd116363d52619f4 (diff)
remove libf2c, hasn't been built since it was moved to ports in 2010.
ok miod@ espie@
Diffstat (limited to 'gnu/lib/libf2c/libF77/h_indx.c')
-rw-r--r--gnu/lib/libf2c/libF77/h_indx.c23
1 files changed, 0 insertions, 23 deletions
diff --git a/gnu/lib/libf2c/libF77/h_indx.c b/gnu/lib/libf2c/libF77/h_indx.c
deleted file mode 100644
index 2353b2b143a..00000000000
--- a/gnu/lib/libf2c/libF77/h_indx.c
+++ /dev/null
@@ -1,23 +0,0 @@
-#include "f2c.h"
-
-shortint
-h_indx (char *a, char *b, ftnlen la, ftnlen lb)
-{
- ftnlen i, n;
- char *s, *t, *bend;
-
- n = la - lb + 1;
- bend = b + lb;
-
- for (i = 0; i < n; ++i)
- {
- s = a + i;
- t = b;
- while (t < bend)
- if (*s++ != *t++)
- goto no;
- return ((shortint) i + 1);
- no:;
- }
- return (0);
-}