30 character*64 fname,lname,giname,isname
31 parameter(fname =
"Unittest_MEDlocalization_1.med")
32 parameter(lname =
"Localization name")
33 parameter(giname=med_no_interpolation)
34 parameter(isname=med_no_mesh_support)
35 integer gtype,sdim,nip
36 parameter(gtype=med_tria3)
39 real*8 ecoo(6), ipcoo(6), wght(3)
40 data ecoo / 0.0, 0.0, 1.0, 0.0, 0.0,1.0 /
41 data ipcoo / 0.166666, 0.166666, 0.66666, 0.166666,
42 & 0.166666, 0.666666 /
43 data wght / 0.166666, 0.166666, 0.166666 /
47 call mfiope(fid,fname,med_acc_creat,cret)
48 print *,
'Open file',cret
49 if (cret .ne. 0 )
then 50 print *,
'ERROR : file creation' 56 call mlclow(fid,lname,gtype,sdim,ecoo,med_full_interlace,
57 & nip,ipcoo, wght, giname, isname, cret)
58 print *,
'localization creation',cret
59 if (cret .ne. 0 )
then 60 print *,
'ERROR : localization creation' 67 print *,
'Close file',cret
68 if (cret .ne. 0 )
then 69 print *,
'ERROR : close file' subroutine mficlo(fid, cret)
subroutine mlclow(fid, lname, gtype, sdim, ecoo, swm, nip, ipcoo, wght, giname, isname, cret)
subroutine mfiope(fid, name, access, cret)