32 parameter(fname =
"Unittest_MEDsupportMesh_1.med")
35 parameter(sdim1=2, mdim1=2)
37 parameter(sdim2=3,mdim2=2)
38 parameter(smname1 =
"supportMesh1")
40 parameter(smname2 =
"supportMesh2")
41 character*200 description1
42 parameter(description1=
"support mesh1 description")
43 character*200 description2
44 parameter(description2=
"support mesh2 description")
45 character*16 nomcoo2d(2)
46 character*16 unicoo2d(2)
47 data nomcoo2d /
"x",
"y"/, unicoo2d /
"cm",
"cm"/
48 character*16 nomcoo3d(3)
49 character*16 unicoo3d(3)
50 data nomcoo3d /
"x",
"y",
"z"/, unicoo3d /
"cm",
"cm",
"cm"/
51 integer atype1, atype2
52 parameter(atype1=med_cartesian, atype2=med_cartesian)
55 character*16 aunit(3), aname(3)
56 character*200 description
57 integer sdim, mdim, atype
61 call mfiope(fid,fname,med_acc_creat,cret)
62 print *,
'Open file',cret
63 if (cret .ne. 0 )
then
64 print *,
'ERROR : file creation'
70 call msmcre(fid,smname1,sdim1,mdim1,description1,
71 & med_cartesian,nomcoo2d,unicoo2d,cret)
72 print *,
'Support mesh creation : 2D space dimension',cret
73 if (cret .ne. 0 )
then
74 print *,
'ERROR : support mesh creation'
80 call msmcre(fid,smname2,sdim2,mdim2,description2,
81 & med_cartesian,nomcoo3d,unicoo3d,cret)
82 print *,
'Support mesh creation : 3D space dimension ',cret
83 if (cret .ne. 0 )
then
84 print *,
'ERROR : support mesh creation'
91 print *,
'Close file',cret
92 if (cret .ne. 0 )
then
93 print *,
'ERROR : close file'