32 parameter(fname =
"Unittest_MEDinterp_1.med")
36 character *64 name1,name
37 parameter(name1=
"Interpolation family name")
39 parameter(gtype1=med_tria3)
41 parameter(cnode1=med_false)
42 integer nvar1,maxd1,nmaxc1
43 integer nvar,maxd,nmaxc
44 parameter(nvar1=2,maxd1=1,nmaxc1=3)
50 call mfiope(fid,fname,med_acc_rdonly,cret)
51 print *,
'Open file',cret
52 if (cret .ne. 0 )
then
53 print *,
'ERROR : file creation'
60 print *,
'Number of interpolation',cret
61 if (cret .ne. 0 )
then
62 print *,
'ERROR : number of interpolation'
66 print *,
'ERROR : number of interpolation'
73 call mipipi(fid,it,name,gtype,cnode,
74 & nbf,nvar,maxd,nmaxc,cret)
75 print *,
'interpolation information',cret
76 if (cret .ne. 0 )
then
77 print *,
'ERROR : interpolation information'
82 if ( (gtype .ne. gtype1) .or.
83 & (cnode .ne. cnode1) .or.
84 & (nbf .ne. nbf1) .or.
85 & (nvar .ne. nvar1) .or.
86 & (maxd .ne. maxd1) .or.
87 & (nmaxc .ne. nmaxc1) )
then
88 print *,
'ERROR : interpolation information'
99 print *,
'Close file',cret
100 if (cret .ne. 0 )
then
101 print *,
'ERROR : close file'