Overview
Comment:Back under RCS
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 248458a6d0b59a1851512a5a66319cc5228c57cf8e58c9bd58d3e607398bc1bd
User & Date: gawthrop@users.sourceforge.net on 1997-05-01 11:15:33
Other Links: branch diff | manifest | tags
Context
1997-05-01
13:42:43
Chaged double to float check-in: 956a23cac9 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
11:15:33
Back under RCS check-in: 248458a6d0 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
08:39:20
params.c and params.m not used any more.
_numpar.txt is the common base from which _numpar.c and numpar.m is
generated. check-in: 3a578de1c6 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/ode2odes_r2c from [0070fc8449] to [ee1a7cc7a6].

︙︙
16
17
18
19
20
21
22



23
24
25
26
27
28
29

# Copyright (c) P.J.Gawthrop 1997.

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



## Revision 1.1  1997/01/21 22:54:54  peterg
## Initial revision
##
###############################################################


# Inform user








>
>
>








16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

# Copyright (c) P.J.Gawthrop 1997.

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
# Revision 1.2  1997/03/20  14:36:56  peterg
# Includes the sympar.h file
#
## Revision 1.1  1997/01/21 22:54:54  peterg
## Initial revision
##
###############################################################


# Inform user
︙︙
62
63
64
65
66
67
68



69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99

write "Generated by MTT"$
write "*/"$
write " "$


%Program heading
write "#include <stdio.h>"$



write "#include ""$1_sympar.h"" "$


write "/* Declare standard arrays */"$
write "double y[", MTTNy+1, "]; /* $1_ode output */"$
write "double dx[", MTTNx+1, "]; /* $1_ode state derivative */"$ 
write "double x[", MTTNx+1, "]; /* $1_ode state */"$ 
write "double u[", MTTNu+1, "]; /* $1_ode input */"$

%External (global) variable list
write "/* External (global) variable list */ "$
IF MTTNvar>0 THEN
BEGIN
  FOR i := 1:MTTNvar DO
    IF numberp(MTTVar(i,1)) 
      THEN 
      BEGIN
      % Do nowt
      END
      ELSE
      BEGIN
         write "double ", MTTVar(i,1), ";"$
      END$
END$

write "/* Files */ "$
write "  FILE *fopen(), *fps, *fpso;"$

write "main()"$
write "  "$
write "{"$








>
>
>









<
<
<
<
<
<
<
<
<
<
<
<
<
<
<








65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83















84
85
86
87
88
89
90

write "Generated by MTT"$
write "*/"$
write " "$


%Program heading
write "#include <stdio.h>"$
write "#include ""$1_odes.h"" "$

%External (global) variable list
write "#include ""$1_sympar.h"" "$


write "/* Declare standard arrays */"$
write "double y[", MTTNy+1, "]; /* $1_ode output */"$
write "double dx[", MTTNx+1, "]; /* $1_ode state derivative */"$ 
write "double x[", MTTNx+1, "]; /* $1_ode state */"$ 
write "double u[", MTTNu+1, "]; /* $1_ode input */"$

















write "/* Files */ "$
write "  FILE *fopen(), *fps, *fpso;"$

write "main()"$
write "  "$
write "{"$
︙︙

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