31 parameter(fname =
"Unittest_MEDsupportMesh_1.med")
34 parameter(sdim1=2, mdim1=2)
36 parameter(sdim2=3,mdim2=2)
37 parameter(smname1 =
"supportMesh1")
39 parameter(smname2 =
"supportMesh2")
40 character*200 description1
41 parameter(description1=
"support mesh1 description")
42 character*200 description2
43 parameter(description2=
"support mesh2 description")
44 character*16 nomcoo2D(2)
45 character*16 unicoo2D(2)
46 data nomcoo2d /
"x",
"y"/, unicoo2d /
"cm",
"cm"/
47 character*16 nomcoo3D(3)
48 character*16 unicoo3D(3)
49 data nomcoo3d /
"x",
"y",
"z"/, unicoo3d /
"cm",
"cm",
"cm"/
50 integer atype1, atype2
51 parameter(atype1=med_cartesian, atype2=med_cartesian)
54 character*16 aunit(3), aname(3)
55 character*200 description
56 integer sdim, mdim, atype
60 call mfiope(fid,fname,med_acc_creat,cret)
61 print *,
'Open file',cret
62 if (cret .ne. 0 )
then 63 print *,
'ERROR : file creation' 69 call msmcre(fid,smname1,sdim1,mdim1,description1,
70 & med_cartesian,nomcoo2d,unicoo2d,cret)
71 print *,
'Support mesh creation : 2D space dimension',cret
72 if (cret .ne. 0 )
then 73 print *,
'ERROR : support mesh creation' 79 call msmcre(fid,smname2,sdim2,mdim2,description2,
80 & med_cartesian,nomcoo3d,unicoo3d,cret)
81 print *,
'Support mesh creation : 3D space dimension ',cret
82 if (cret .ne. 0 )
then 83 print *,
'ERROR : support mesh creation' 90 print *,
'Close file',cret
91 if (cret .ne. 0 )
then 92 print *,
'ERROR : close file' subroutine mficlo(fid, cret)
subroutine mfiope(fid, name, access, cret)
subroutine msmcre(fid, maa, sdim, mdim, des, atype, aname, aunit, cret)