Overview
Comment:Now does state, params + simparams
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 7d4618dc38238155db371f81a79e952113523ea273a79af81a60b3460369875a
User & Date: gawthrop@users.sourceforge.net on 2000-05-11 19:34:35
Other Links: branch diff | manifest | tags
Context
2000-05-11
19:34:50
*** empty log message *** check-in: 83d4b71acd user: gawthrop@users.sourceforge.net tags: origin/master, trunk
19:34:35
Now does state, params + simparams check-in: 7d4618dc38 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
19:33:18
Uniform version for _sim.m check-in: 4f2d6cb2e9 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/p/mtt_getargs.p from [c2b2652ec6] to [8b9348a180]. 

1
2
3
4
5
6
7
8
9
10
11
12
13

14
15
16







17
18

{ Substitute for p2c PASCAL_MAIN
   Copies pogramme arguments in to mtt_parameters array
   This c code is embedded in a pascal routine in a p2c compatible way
}

{EMBED
Static Void  PASCAL_MAIN(argc, argv)
int argc;
char *argv[];

\[
 int i;
 mtt_n_parameters = argc-1;

  for (i=1;i<argc;i++)\[
    mtt_parameters[i-1] = strtod(argv[i],0);
  \]







\]
}













|
>
|
|

>
>
>
>
>
>
>



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

{ Substitute for p2c PASCAL_MAIN
   Copies pogramme arguments in to mtt_parameters array
   This c code is embedded in a pascal routine in a p2c compatible way
}

{EMBED
Static Void  PASCAL_MAIN(argc, argv)
int argc;
char *argv[];

\[
 int i;
 mttnpar = argc-1;
 if (mttnpar>0) \[
   for (i=0;i<MTT_Nx;i++)\[
     x[i] = strtod(argv[i+1],0);
  \]
   for (i=0;i<MTT_Npar;i++)\[
     par[i] = strtod(argv[i+MTT_Nx+1],0);
  \]
 simpar.first=strtod(argv[MTT_Nx+MTT_Npar+1],0);
 simpar.dt=strtod(argv[MTT_Nx+MTT_Npar+2],0);
 simpar.last=strtod(argv[MTT_Nx+MTT_Npar+3],0);
 \]
\]
}

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