1 function msh=Umsh2pdetool(filename);
5 ## loadgmshmesh(filename);
9 awk_command = "BEGIN { filename = ARGV[1] ; gsub(/\\./,""_"",filename) }\n\
11 /\\$NOD/,/\\$ENDNOD/ { \n\
14 if($0 ~ /^[^\\$]/ ) \n\
16 print ""p ( "" $1 "" ,:) = ["" $2 "" "" $3""];"" > filename ""_p.m"" \n\
21 /\\$ELM/,/\\$ENDNELM/ { \n\
22 if ( $1 ~ /\\$ELM/ )\n\
24 gsub(/\\$ELM/,""t=["")\n\
25 print > filename ""_t.m""\n\
26 gsub(/t=\\[/,""e=["")\n\
27 print > filename ""_e.m""\n\
29 } else if ($1 ~ /\\$ENDELM/ ){\n\
30 gsub(/\\$ENDELM/,""];"")\n\
31 print > filename ""_t.m""\n\
32 print > filename ""_e.m""\n\
34 else if ( $2 == ""2"" )\n\
36 print ( $6 "" "" $7 "" "" $8 "" "" $4) > filename ""_t.m"" \n\
38 else if ( $2 == ""1"" )\n\
40 print ( $6 "" "" $7 "" 0 0 "" $4 "" 0 0"") > filename ""_e.m"" \n\
42 else if ( $2 == ""9"" )\n\
44 print ( $6 "" "" $7 "" "" $8 "" "" $9 "" "" $10 "" "" $11 "" "" \
45 $4) > filename ""_t.m"" \n\
47 else if ( $2 == ""8"" )\n\
49 print ( $6 "" "" $7 "" "" $8 "" 0 "" $4) > filename ""_e.m"" \n\
55 system(["awk '" awk_command "' " filename ".msh"]);
56 eval([ filename "_msh_p"]);
57 eval([ filename "_msh_e"]);
58 eval([ filename "_msh_t"]);
61 msh=struct("p",p',"t",t',"e",e');