Overview
| Comment: | *** empty log message *** |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
f7efa7b0bcdc9f73e3610f9bf0e6d56c |
| User & Date: | gawthrop@users.sourceforge.net on 2000-10-14 09:14:24.000 |
| Other Links: | branch diff | manifest | tags |
Context
|
2000-10-14
| ||
| 09:26:48 | Initial revision check-in: 4aa05894e6 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 09:14:24 | *** empty log message *** check-in: f7efa7b0bc user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 09:12:14 | No dies arguments and output itself check-in: eca4e58f7a user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/mtt_m2p
from [5ab23f4ca4]
to [b8bd7e12d2].
| ︙ | ︙ | |||
11 12 13 14 15 16 17 18 19 20 21 22 23 24 | # Copyright (c) P.J.Gawthrop 1998 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.54 2000/09/30 14:10:06 peterg ## Zap lines containing "Remove in mtt_m2p" ## ## Revision 1.53 2000/08/24 17:10:59 peterg ## New dummy variables mtt_o (for optimisation), mtt_s (for segmentation) ## ## Revision 1.52 2000/08/24 08:30:45 peterg | > > > | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | # Copyright (c) P.J.Gawthrop 1998 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.55 2000/10/11 09:06:17 peterg ## New csex rep (uses scope optimisation) ## ## Revision 1.54 2000/09/30 14:10:06 peterg ## Zap lines containing "Remove in mtt_m2p" ## ## Revision 1.53 2000/08/24 17:10:59 peterg ## New dummy variables mtt_o (for optimisation), mtt_s (for segmentation) ## ## Revision 1.52 2000/08/24 08:30:45 peterg |
| ︙ | ︙ | |||
397 398 399 400 401 402 403 |
if (kk==width){printf("\n"); kk=0}
}
}
BEGIN{
comment_regexp = "{"
doing_header = 0
doing_globals = 0
| | < | 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 |
if (kk==width){printf("\n"); kk=0}
}
}
BEGIN{
comment_regexp = "{"
doing_header = 0
doing_globals = 0
N_tmp = 100;
inc ="$I"
}
{
if ($1=="global")
doing_globals = 1
else{
if (doing_globals==1){
|
| ︙ | ︙ | |||
461 462 463 464 465 466 467 |
printf("\n")
printf("VAR \n");
for (k=1;k<i;k++) printf(" %s,\n",global[k])
printf("%s : REAL;\n", global[i])
printvar("x",Nx);
printvar("u",Nu);
printvar("y",Ny);
| | < < | 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 |
printf("\n")
printf("VAR \n");
for (k=1;k<i;k++) printf(" %s,\n",global[k])
printf("%s : REAL;\n", global[i])
printvar("x",Nx);
printvar("u",Nu);
printvar("y",Ny);
printvar("_tmp",N_tmp);
printf("VAR mtt_i, mtt_j : INTEGER;\n");
#if ( (rep=="smxa")||(rep=="smxax") ) {
# printvar("_t",Nt);
#}
printf("\nBEGIN{%s}\n", Sys_rep)
if (rep=="smxa"){
printf("FOR mtt_i:= 1 to %i DO\n\tFOR mtt_j:= 1 to %i DO\n\tmtta[mtt_i,mtt_j] := 0;\n", Nx,Nx);
|
| ︙ | ︙ |