Overview
Comment:Back to rcs.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 33c0c5ca8989a87f0b67e903d7c54a1022d6a829d8c6c3502d1341643da916af
User & Date: gawthrop@users.sourceforge.net on 1996-09-12 18:45:31
Other Links: branch diff | manifest | tags
Context
1996-09-12
19:24:56
New numpar/params setup. check-in: d236aa7a16 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
18:45:31
Back to rcs. check-in: 33c0c5ca89 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
18:41:48
Standard error handling added. check-in: 01389eac04 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/sm2sr_m from [0883abce2f] to [870d94632e].

︙︙
12
13
14
15
16
17
18




19
20
21
22
23
24
25

# Copyright (c) P.J.Gawthrop, 1996.

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$




## Revision 1.10  1996/08/19 15:34:14  peter
## Now based on state - not descriptor matrices.
##
## Revision 1.9  1996/08/18 12:01:45  peter
## Unified format of time responses.
##
## Revision 1.8  1996/08/15 16:23:39  peter








>
>
>
>








12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

# Copyright (c) P.J.Gawthrop, 1996.

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
# Revision 1.11  1996/08/24  14:02:39  peter
# Included glabal parameter passing.
# Proper error handling.
#
## Revision 1.10  1996/08/19 15:34:14  peter
## Now based on state - not descriptor matrices.
##
## Revision 1.9  1996/08/18 12:01:45  peter
## Unified format of time responses.
##
## Revision 1.8  1996/08/15 16:23:39  peter
︙︙
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76

  echo Using default parameter $PARAMS
else
  PARAMS=$2;
fi

PARAMS="$PARAMS ;"

$MATRIX << EOF > sm2sr_m.log 2>mtt_error

  % Read in the numeric system parameters
  $1_numpar;

  [nx,ny,nu,nz,nyz] = $1_def;
  t=0;	%Just in case it appears in the parameter list.









|








66
67
68
69
70
71
72
73
74
75
76
77
78
79
80

  echo Using default parameter $PARAMS
else
  PARAMS=$2;
fi

PARAMS="$PARAMS ;"

$MATRIX << EOF > sm2sr_m.log 2>mtt_error.txt

  % Read in the numeric system parameters
  $1_numpar;

  [nx,ny,nu,nz,nyz] = $1_def;
  t=0;	%Just in case it appears in the parameter list.
︙︙
103
104
105
106
107
108
109

110
111
112
113
114
115
116
117
118
119
120

  end;
  if ny>0
    write_matrix([T y], '$1_sro');
  end;

EOF


err_length=$(wc -c <mtt_error)

# Test for errors and print if any
if [ $err_length != "0" ]
then
  echo MTT has failed with the following errors '...'
  cat mtt_error
  exit 1
else
  exit 0
fi








>
|

<
<
<
<
<
<
<
<
<

107
108
109
110
111
112
113
114
115
116










  end;
  if ny>0
    write_matrix([T y], '$1_sro');
  end;

EOF

# Now invoke the standard error handling.
mtt_error mtt_error.txt

MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]