31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
-
+
-
+
|
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));
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));
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
|