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'
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine msmcre(fid, maa, sdim, mdim, des, atype, aname, aunit, cret)
Cette routine permet de créer un maillage support.