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);
\]
\]
}
|