13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
case $2 in
numpar)
name=mttpar
cat $1_sympar.txt>mtt_infile
;;
state)
name=mttx
awk '{if ($1==rep) printf("%s\n", $4)}' rep=$2 \
<$1_struc.txt >mtt_infile
;;
input)
name=mttu
awk '{if ($1==rep) printf("%s\n", $4)}' rep=$2 \
<$1_struc.txt >mtt_infile
;;
*)
echo Repesentation $2 not supported
esac
case $3 in
zero)
strip_comments <mtt_infile | grep "$filter" |\
awk '{
i++; printf(" %s = 0.0;\n", tolower($1));
}'
;;
set)
strip_comments <mtt_infile |\
awk '{
i++; printf(" %s(%i)\t= %s;\n", name, i, tolower($1));
}' name=$name
;;
*)
strip_comments <mtt_infile |\
awk '{
i++; printf(" %s \t= %s(%i);\n", tolower($1), name, i);
}' name=$name
;;
esac
|
|
|
|
|
|
|
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
case $2 in
numpar)
name=mttpar
cat $1_sympar.txt>mtt_infile
;;
state)
name=mttx
gawk '{if ($1==rep) printf("%s\n", $4)}' rep=$2 \
<$1_struc.txt >mtt_infile
;;
input)
name=mttu
gawk '{if ($1==rep) printf("%s\n", $4)}' rep=$2 \
<$1_struc.txt >mtt_infile
;;
*)
echo Repesentation $2 not supported
esac
case $3 in
zero)
strip_comments <mtt_infile | grep "$filter" |\
gawk '{
i++; printf(" %s = 0.0;\n", tolower($1));
}'
;;
set)
strip_comments <mtt_infile |\
gawk '{
i++; printf(" %s(%i)\t= %s;\n", name, i, tolower($1));
}' name=$name
;;
*)
strip_comments <mtt_infile |\
gawk '{
i++; printf(" %s \t= %s(%i);\n", tolower($1), name, i);
}' name=$name
;;
esac
|