rm
Francois Delebecque [Thu, 23 Sep 2004 12:43:03 +0000 (12:43 +0000)]
scilab_doc/intro/diary/d8.1.code [deleted file]
scilab_doc/intro/fort/Makefile [deleted file]
scilab_doc/intro/fort/fibb.f [deleted file]

diff --git a/scilab_doc/intro/diary/d8.1.code b/scilab_doc/intro/diary/d8.1.code
deleted file mode 100755 (executable)
index 7a18922..0000000
+++ /dev/null
@@ -1,5 +0,0 @@
-  host("cd ../fort; make fibb.o");
-  link('../fort/fibb.o','fibb')
-  n=6
-  fn=fort('fibb',n,2,'i','sort',[1,1],1,'r')
-  host("cd ../fort; rm fibb.o");
diff --git a/scilab_doc/intro/fort/Makefile b/scilab_doc/intro/fort/Makefile
deleted file mode 100755 (executable)
index 1efe1a4..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-SHELL = /bin/sh
-
-#include ../../../Path.incl
-#include ../../../Version.incl
-include ../../../Makefile.incl
-
-OBJS = /tmp/fibb.o
-
-all:: $(OBJS)
-
-/tmp/fibb.o: fibb.f
-       $(FC) $(FFLAGS) -c fibb.f -o /tmp/fibb.o
-
-clean::
-       $(RM) /tmp/fibb.o
-distclean::
-       $(RM) /tmp/fibb.o
-
diff --git a/scilab_doc/intro/fort/fibb.f b/scilab_doc/intro/fort/fibb.f
deleted file mode 100755 (executable)
index fa6d671..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-      subroutine fibb(fn,n)
-
-c     Copyright INRIA
-      n0=0
-      n1=1
-      if(n.ge.3)then
-      do 10 k=1,n-2
-         fn=n0+n1
-         n0=n1
-         n1=fn
- 10   continue
-      else
-         fn=n-1
-      endif
-      return
-      end