30 character*64 fname,lname1,giname1,isname1
31 character*64 giname,isname
32 parameter(fname=
"Unittest_MEDlocalization_1.med")
35 parameter(giname1=med_no_interpolation)
36 parameter(isname1=med_no_mesh_support)
37 integer gtype1,sdim1,nip1
38 integer gtype,sdim,nip
39 parameter(gtype1=med_tria3)
42 integer sgtype,sgtype1
43 parameter(sgtype1=med_undef_geotype)
49 call mfiope(fid,fname,med_acc_rdonly,cret)
51 if (cret .ne. 0 )
then 52 print *,
'ERROR : open file' 60 if ((cret .ne. 0) .or.
62 print *,
'ERROR : number of localization' 69 call mlclci(fid,it,lname1,gtype,sdim,nip,
70 & giname,isname,nsmc,sgtype,cret)
72 if (cret .ne. 0 )
then 73 print *,
'ERROR : read information' 77 if ((gtype .ne. gtype1) .or.
78 & (sdim .ne. sdim1) .or.
79 & (nip .ne. nip1) .or.
80 & (giname .ne. giname1) .or.
81 & (isname .ne. isname1) .or.
82 & (nsmc .ne. nsmc1) .or.
83 & (sgtype .ne. sgtype1) )
then 85 print *,
'ERROR : read information' 94 if (cret .ne. 0 )
then 95 print *,
'ERROR : close file' subroutine mficlo(fid, cret)
subroutine mlclci(fid, it, lname, gtype, sdim, nip, giname, isname, nsmc, sgtype, cret)
subroutine mlcnlc(fid, n, cret)
subroutine mfiope(fid, name, access, cret)