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