← Back to branch summary

~ubuntu-branches/debian/sid/octave-tisean/sid

« back to all changes in this revision

Viewing changes to src/source_f/istdio.f

  • Committer: Package Import Robot
  • Author(s): Rafael Laboissiere
  • Date: 2017-08-14 12:53:47 UTC
  • Revision ID: package-import@ubuntu.com-20170814125347-ju5owr4dggr53a2n
Tags: upstream-0.2.3
Import upstream version 0.2.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/source_f/istdio.f
 
1
c===========================================================================
 
2
c
 
3
c   This file is part of TISEAN
 
4
c 
 
5
c   Copyright (c) 1998-2007 Rainer Hegger, Holger Kantz, Thomas Schreiber
 
6
c 
 
7
c   TISEAN is free software; you can redistribute it and/or modify
 
8
c   it under the terms of the GNU General Public License as published by
 
9
c   the Free Software Foundation; either version 2 of the License, or
 
10
c   (at your option) any later version.
 
11
c
 
12
c   TISEAN is distributed in the hope that it will be useful,
 
13
c   but WITHOUT ANY WARRANTY; without even the implied warranty of
 
14
c   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
15
c   GNU General Public License for more details.
 
16
c
 
17
c   You should have received a copy of the GNU General Public License
 
18
c   along with TISEAN; if not, write to the Free Software
 
19
c   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 
20
c
 
21
c===========================================================================
 
22
c   istdio_temp.f
 
23
c   standard input-output unit assignments for TISEAN f-sources
 
24
c
 
25
      integer function istderr()
 
26
      istderr=0
 
27
      end
 
28
 
 
29
      function istdin()
 
30
      istdin=5
 
31
      end
 
32
 
 
33
      function istdout()
 
34
      istdout=6
 
35
      end
 
36
 
 
37
      function ifilein()
 
38
      ifilein=10
 
39
      end
 
40
 
 
41
      function ifileout()
 
42
      ifileout=11
 
43
      end
 
44