← Back to branch summary

~ubuntu-branches/ubuntu/karmic/scilab/karmic

« back to all changes in this revision

Viewing changes to routines/interf/matio.f

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-21 16:57:43 UTC
  • Revision ID: james.westby@ubuntu.com-20020321165743-e9mv12c1tb1plztg
Tags: upstream-2.6
Import upstream version 2.6

Show diffs side-by-side

added added

removed removed

Lines of Context:
routines/interf/matio.f
 
1
      subroutine matio
 
2
c     ====================================================================
 
3
c     
 
4
c     file handling and other i/o
 
5
c     
 
6
c     ====================================================================
 
7
c     
 
8
c     Copyright INRIA/ENPC
 
9
      INCLUDE '../stack.h'
 
10
c     
 
11
      if (ddt .eq. 4) then
 
12
         write(buf(1:4),'(i4)') fin
 
13
         call basout(io,wte,' matio '//buf(1:4))
 
14
      endif
 
15
 
 
16
c
 
17
      if(int(rstk(pt)/100).ne.9) goto 01
 
18
      goto(10,20,54,240,250,999,200,10) rstk(pt)-901
 
19
 
 
20
c     
 
21
c     functions/fin
 
22
c     
 
23
c     load read  getf exec lib   diary save write print mac  deff rat
 
24
c     1    2     3    4     5     6    7     8     9    10   11   12
 
25
c     file hosts readb writb execstr  disp  getpid getenv read4b write4b
 
26
c     13   14    15    16     17      18     19     20     22      23
 
27
c     Save Load mgetl fileinfo getio
 
28
c     24   25    26     27      28
 
29
 01   goto ( 35, 120, 54,10, 130,27, 30,60, 25, 160,
 
30
     +       50, 45, 140,170,190,180,20,200,205,210,
 
31
     +       170,220,230,240,250,260,270,280),fin
 
32
c     
 
33
c     exec
 
34
 10   continue
 
35
      call intexec
 
36
      return
 
37
 
 
38
c     execstr
 
39
 20   continue
 
40
      call intexecstr
 
41
      return
 
42
c     
 
43
c     print
 
44
 25   continue
 
45
      call intprint
 
46
      return
 
47
c     
 
48
c     diary
 
49
 27   continue
 
50
      call intdiary
 
51
      return
 
52
c
 
53
c     oldsave
 
54
 30   continue
 
55
      call oldsave
 
56
      return
 
57
c     
 
58
c     oldload
 
59
 35   continue
 
60
      call oldload
 
61
      return
 
62
c     
 
63
c     rat
 
64
 45   continue
 
65
      call intrat
 
66
      return
 
67
 
 
68
c     deff
 
69
 50   continue
 
70
      call intdeff
 
71
      return
 
72
c     
 
73
c     getf
 
74
 54   continue
 
75
      call intgetf
 
76
      return
 
77
c     
 
78
c     write formatte
 
79
 60   continue
 
80
      call intwrite
 
81
      return
 
82
 
 
83
c
 
84
c     read formatte
 
85
 120  continue
 
86
      call intread
 
87
      return
 
88
 
 
89
c     
 
90
c     lib
 
91
 130  continue
 
92
      call intlib
 
93
      return
 
94
c     
 
95
c     filemgr
 
96
c     
 
97
 140  continue
 
98
      call intfile
 
99
      return
 
100
c     
 
101
c     macsym
 
102
 160  continue
 
103
      return
 
104
c     
 
105
c     host, unix
 
106
 170  continue
 
107
      call inthost
 
108
      return
 
109
c     
 
110
c     write binaire
 
111
 180  continue
 
112
      call intwritb
 
113
      return
 
114
 
 
115
c     
 
116
c     read binaire
 
117
 190  continue
 
118
      call intreadb
 
119
      return
 
120
c
 
121
c     disp
 
122
c     ----
 
123
 200  continue
 
124
      call intdisp
 
125
      return
 
126
c     
 
127
c     getpid get process id 
 
128
 205  continue
 
129
      call intgetpid
 
130
      return
 
131
c
 
132
c     getenv
 
133
 210  continue
 
134
      call intgetenv("getenv")
 
135
      return
 
136
c
 
137
c     read4b      
 
138
 220  call intread4b
 
139
      return
 
140
 
 
141
c     write4b
 
142
 230  call intwrite4b
 
143
      return
 
144
c     
 
145
c     save
 
146
 240  call intsave
 
147
      return
 
148
c
 
149
c     load
 
150
 250  call intload(40,k1)
 
151
      return
 
152
c
 
153
c     mgetl
 
154
 260  call intmgetl
 
155
      return
 
156
c
 
157
c     fileinfo
 
158
 270  call intfilestat('fileinfo')
 
159
      return
 
160
c     getio
 
161
 280  call intgetio('getio')
 
162
      return
 
163
 
 
164
 
 
165
 999  return
 
166
      end
 
167
 
 
168
 
 
169
c
 
170