31 character*64 fname,lname,giname,isname
32 parameter(fname =
"Unittest_MEDlocalization_1.med")
33 parameter(lname =
"Localization name")
34 parameter(giname=med_no_interpolation)
35 parameter(isname=med_no_mesh_support)
36 integer gtype,sdim,nip
37 parameter(gtype=med_tria3)
40 real*8 ecoo(6), ipcoo(6), wght(3)
41 data ecoo / 0.0, 0.0, 1.0, 0.0, 0.0,1.0 /
42 data ipcoo / 0.166666, 0.166666, 0.66666, 0.166666,
43 & 0.166666, 0.666666 /
44 data wght / 0.166666, 0.166666, 0.166666 /
48 call mfiope(fid,fname,med_acc_creat,cret)
49 print *,
'Open file',cret
50 if (cret .ne. 0 )
then
51 print *,
'ERROR : file creation'
57 call mlclow(fid,lname,gtype,sdim,ecoo,med_full_interlace,
58 & nip,ipcoo, wght, giname, isname, cret)
59 print *,
'localization creation',cret
60 if (cret .ne. 0 )
then
61 print *,
'ERROR : localization creation'
68 print *,
'Close file',cret
69 if (cret .ne. 0 )
then
70 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 mlclow(fid, lname, gtype, sdim, ecoo, swm, nip, ipcoo, wght, giname, isname, cret)