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.38 2000/04/07 13:24:41 peterg
## Modified for smxa and smxax
##
## Revision 1.37 2000/04/07 08:17:37 peterg
## Added mttpar to the arg list of cse and cseo
##
## Revision 1.36 1999/11/29 06:49:26 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.39 2000/04/07 13:38:13 peterg
## New mtt_getsize to replace bc
##
## Revision 1.38 2000/04/07 13:24:41 peterg
## Modified for smxa and smxax
##
## Revision 1.37 2000/04/07 08:17:37 peterg
## Added mttpar to the arg list of cse and cseo
##
## Revision 1.36 1999/11/29 06:49:26 peterg
|
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
|
for (k=1;k<=j;k++) printf("%s\n", comment[k])
printf("\n")
printf("\nBEGIN{%s}\n", Sys_rep)
}
else{
for (k=1;k<=j;k++) printf("%s\n", comment[k])
printf("\n")
printf("\nBEGIN{%s}\n", Sys_rep)
}
doing_header = 0;
}
if (match($1,comment_regexp)>0){
if (doing_header==1)
comment[++j] = $0
else
|
>
>
>
>
>
>
>
|
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
|
for (k=1;k<=j;k++) printf("%s\n", comment[k])
printf("\n")
printf("\nBEGIN{%s}\n", Sys_rep)
}
else{
for (k=1;k<=j;k++) printf("%s\n", comment[k])
printf("\n")
printf("VAR mmtti : INTEGER;");
printf("\nBEGIN{%s}\n", Sys_rep)
if (rep=="smxa"){
printf("FOR mmtti:= 1 to %i DO\n\tmtta[mmtti] := 0;\n", Nx*Nx);
}
if (rep=="smxax"){
printf("FOR mmtti:= 1 to %i DO\n\tmttax[mmtti] := 0;\n", Nx);
}
}
doing_header = 0;
}
if (match($1,comment_regexp)>0){
if (doing_header==1)
comment[++j] = $0
else
|