31 parameter(fname =
"Unittest_MEDinterp_1.med")
35 character *64 name1,name
36 parameter(name1=
"Interpolation family name")
38 parameter(gtype1=med_tria3)
40 parameter(cnode1=med_false)
41 integer nvar1,maxd1,nmaxc1
42 integer nvar,maxd,nmaxc
43 parameter(nvar1=2,maxd1=1,nmaxc1=3)
49 call mfiope(fid,fname,med_acc_rdonly,cret)
50 print *,
'Open file',cret
51 if (cret .ne. 0 )
then 52 print *,
'ERROR : file creation' 59 print *,
'Number of interpolation',cret
60 if (cret .ne. 0 )
then 61 print *,
'ERROR : number of interpolation' 65 print *,
'ERROR : number of interpolation' 72 call mipipi(fid,it,name,gtype,cnode,
73 & nbf,nvar,maxd,nmaxc,cret)
74 print *,
'interpolation information',cret
75 if (cret .ne. 0 )
then 76 print *,
'ERROR : interpolation information' 81 if ( (gtype .ne. gtype1) .or.
82 & (cnode .ne. cnode1) .or.
83 & (nbf .ne. nbf1) .or.
84 & (nvar .ne. nvar1) .or.
85 & (maxd .ne. maxd1) .or.
86 & (nmaxc .ne. nmaxc1) )
then 87 print *,
'ERROR : interpolation information' 98 print *,
'Close file',cret
99 if (cret .ne. 0 )
then 100 print *,
'ERROR : close file' subroutine mficlo(fid, cret)
subroutine mipnip(fid, n, cret)
subroutine mipipi(fid, it, name, gtype, cnode, nbf, nvar, maxd, nmaxc, cret)
subroutine mfiope(fid, name, access, cret)