Artifact 8b9348a180f28e7faaf671cb5ac2b8359246de9871bf213e7de938efc5c89b43:

• Executable file mtt/bin/trans/p/mtt_getargs.p — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 575) [annotate] [blame] [check-ins using] [more...]
• Executable file mttroot/mtt/bin/trans/p/mtt_getargs.p — part of check-in [7d4618dc38] at 2000-05-11 19:34:35 on branch origin/master — Now does state, params + simparams (user: gawthrop@users.sourceforge.net, size: 575) [annotate] [blame] [check-ins using]

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