24ceea72cddcd78313577b0aab05147516f0164f
[scilab.git] / scilab / modules / core / includes / stack.h.vc
1 c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 c Copyright (C) INRIA
3
4 c This file must be used under the terms of the CeCILL.
5 c This source file is licensed as described in the file COPYING, which
6 c you should have received as part of this distribution.  The terms
7 c are also available at    
8 c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
9
10 c*------------------------------------------------------------------
11 c vsiz  size of internal scilab stack 
12 c
13 c bsiz  size of internal chain buf 
14 c
15 c isizt  maximum number of scilab variables global and local 
16 c isiz maximum number of scilab local variables
17 c psiz  defines recursion size
18 c lsiz  dim. of vector containing the command line
19 c nlgh  length of variable names
20 c csiz  used for character coding
21 c intersiz used in interfaces
22 c*-------------------------------------------------------------------
23 Cc (DLL Digital Visual Fortran)     
24 cDEC$ IF DEFINED (FORDLL)
25 cDEC$ ATTRIBUTES DLLIMPORT:: /stack/, /vstk/, /recu/, /iop/
26 cDEC$ ATTRIBUTES DLLIMPORT:: /errgst/, /com/, /adre/
27 cDEC$ ATTRIBUTES DLLIMPORT:: /intersci/ ,/cha1/, /dbg/
28 cDEC$ ENDIF
29 C     ---------------------------------------------------------------
30       integer   csiz,bsiz,isizt,psiz,nsiz,lsiz
31       parameter (csiz=63,bsiz=4096,isizt=10000,psiz=4096,nsiz=6)
32       parameter (lsiz=65536)
33       integer   nlgh,vsiz
34       parameter (nlgh=nsiz*4,vsiz=2)
35       integer   maxdb,maxbpt
36       parameter (maxdb=100,maxbpt=1000)
37       integer intersiz
38       parameter (intersiz=1024)
39 c
40       double precision stk(vsiz)
41       common /stack/ stk
42       integer istk(2*vsiz)
43       equivalence (istk(1),stk(1))
44
45       real sstk(2*vsiz)
46       equivalence (sstk(1),stk(1))
47        
48       character cstk*(4*vsiz)
49       equivalence (cstk,stk(1))
50
51       complex*16 zstk(vsiz/2)
52       equivalence (zstk(1),stk(1))
53
54       integer bot,top,idstk(nsiz,isizt),lstk(isizt),leps,bbot,bot0,isiz
55       integer gbot,gtop,infstk(isizt)
56       common /vstk/ bot,top,idstk,lstk,leps,bbot,bot0,infstk,
57      $     gbot,gtop,isiz
58
59       integer ids(nsiz,psiz),pstk(psiz),rstk(psiz),pt,niv,macr,paus
60       integer icall,krec
61       common /recu/ ids,pstk,rstk,pt,niv,macr,paus,icall,krec
62
63       integer ddt,err,lct(8),lin(lsiz),lpt(6),hio,rio,rte,wte
64       common /iop/ ddt,err,lct,lin,lpt,rio,rte,wte
65
66       integer err1,err2,errct,toperr,errpt,ieee,catch
67       common /errgst/ err1,err2,errct,toperr,errpt,ieee,catch
68
69       integer sym,syn(nsiz),char1,fin,fun,lhs,rhs,ran(2),comp(3)
70       common /com/ sym,syn,char1,fin,fun,lhs,rhs,ran,comp
71
72       character alfa(csiz)*1,alfb(csiz)*1,buf*(bsiz)
73       common /cha1/ alfa,alfb,buf
74
75       integer wmac,lcntr,nmacs,macnms(nsiz,maxdb),lgptrs(maxdb+1)
76       integer bptlg(maxbpt)
77       common /dbg/ wmac,lcntr,nmacs,macnms,lgptrs,bptlg
78
79       integer lbot,ie,is,ipal,nbarg,ladr(intersiz)
80       common/adre/lbot,ie,is,ipal,nbarg,ladr
81       integer nbvars,iwhere(intersiz),
82      $  nbrows(intersiz),nbcols(intersiz),
83      $  itflag(intersiz),ntypes(intersiz),lad(intersiz),
84      $  ladc(intersiz),lhsvar(intersiz)
85       common/intersci/nbvars,iwhere,nbrows,nbcols,
86      $ itflag,ntypes,lad,ladc,lhsvar
87 c*------------------------------------------------------------------
88