From b851fa7a46d47fd8d66a74dedd1308eef03be902 Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Mon, 4 Oct 2010 14:42:51 +0200
Subject: IOASCII.m: Make functions flexible so they can accept either data or
 filename

---
 Auxiliary/Cactus/IOASCII.m | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'Auxiliary')

diff --git a/Auxiliary/Cactus/IOASCII.m b/Auxiliary/Cactus/IOASCII.m
index 85de605..118db8d 100644
--- a/Auxiliary/Cactus/IOASCII.m
+++ b/Auxiliary/Cactus/IOASCII.m
@@ -12,8 +12,12 @@ ReadIOASCII[file_] :=
   data2 = Select[SplitBy[data1, Length[#] == 0 &], #[[1]] != {} &];
   data3 = Map[{First[#][[3]], Drop[#, 1]} &, data2]];
 
-MGraph[file_] :=
+MGraph[file_String] :=
  Module[{data = ReadIOASCII[file]},
+  MGraph[data]];
+
+MGraph[data_List] :=
+ Module[{},
   Manipulate[
    ListLinePlot[data[[it, 2]], PlotLabel -> data[[it, 1]]], {{it,1,"it"}, 1, Length[data], 1}]];
 
-- 
cgit v1.2.3