31 character*64 fname,lname1,giname1,isname1
32 character*64 giname,isname
33 parameter(fname=
"Unittest_MEDlocalization_1.med")
36 parameter(giname1=med_no_interpolation)
37 parameter(isname1=med_no_mesh_support)
38 integer gtype1,sdim1,nip1
39 integer gtype,sdim,nip
40 parameter(gtype1=med_tria3)
43 integer sgtype,sgtype1
44 parameter(sgtype1=med_undef_geotype)
50 call mfiope(fid,fname,med_acc_rdonly,cret)
52 if (cret .ne. 0 )
then
53 print *,
'ERROR : open file'
61 if ((cret .ne. 0) .or.
63 print *,
'ERROR : number of localization'
70 call mlclci(fid,it,lname1,gtype,sdim,nip,
71 & giname,isname,nsmc,sgtype,cret)
73 if (cret .ne. 0 )
then
74 print *,
'ERROR : read information'
78 if ((gtype .ne. gtype1) .or.
79 & (sdim .ne. sdim1) .or.
80 & (nip .ne. nip1) .or.
81 & (giname .ne. giname1) .or.
82 & (isname .ne. isname1) .or.
83 & (nsmc .ne. nsmc1) .or.
84 & (sgtype .ne. sgtype1) )
then
86 print *,
'ERROR : read information'
95 if (cret .ne. 0 )
then
96 print *,
'ERROR : close file'