12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
+
+
+
|
###############################################################
## Version control history
###############################################################
## $Id$
##
## $Log$
## Revision 1.17 2000/09/15 08:06:17 peterg
## Removed debug lines
##
## Revision 1.16 2000/09/02 15:55:51 peterg
## *** empty log message ***
##
## Revision 1.15 1998/07/08 14:43:12 peterg
## Restored inforfile
##
## Revision 1.14 1998/07/08 08:26:26 peterg
|
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
|
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
-
+
|
Nx=`mtt_getsize -external $1 dX`
Nz=`mtt_getsize -external $1 z`
Ny=`mtt_getsize -external $1 y`
Nu=`mtt_getsize -external $1 u`
Nui=`mtt_getsize -external $1 ui`
Nuc=`mtt_getsize -internal $1 u`
echo Ny $Ny Nu $Nu Nx $Nx Nui $Nui Nuc $Nuc
# echo Ny $Ny Nu $Nu Nx $Nx Nui $Nui Nuc $Nuc
## Definitions file
octave -q <<EOF
deffile = '$1_def.r';
deffilenum = fopen(deffile,'w');
## Set up the structure vector
|