11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
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.44 2000/05/13 11:52:16 peterg
## A now matrix in smxa rep
##
## Revision 1.43 2000/05/11 19:35:16 peterg
## Major revisions for new paprameter passing versions
##
## Revision 1.42 2000/04/18 11:11:44 peterg
## mtt_parameters ---> mttpar
## mtt_n_parameters ---> mttnpar
##
|
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
|
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
|
-
+
-
+
|
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("_t",Nt);
printf("VAR mtt_i : INTEGER;\n");
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\tmtta[mtt_i] := 0;\n", Nx*Nx);
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);
}
if (rep=="smxax"){
printf("FOR mtt_i:= 1 to %i DO\n\tmttax[mtt_i] := 0;\n", Nx);
}
}
doing_header = 0;
}
|