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'