31 parameter(fname =
"Unittest_MEDinterp_1.med")
33 parameter(name1=
"Interpolation family name")
35 parameter(gtype1=med_tria3)
37 parameter(cnode1=med_false)
38 integer nvar1,maxd1,nmaxc1
39 parameter(nvar1=2,maxd1=1,nmaxc1=3)
40 integer ncoef1,ncoef2,ncoef3
41 parameter(ncoef1=3,ncoef2=1,ncoef3=1)
42 integer power1(6),power2(2),power3(2)
43 data power1 / 0,0, 1,0, 0,1 /
46 real*8 coef1(3), coef2(1), coef3(1)
47 data coef1 / 1., -1., -1. /
53 call mfiope(fid,fname,med_acc_creat,cret)
54 print *,
'Open file',cret
55 if (cret .ne. 0 )
then 56 print *,
'ERROR : file creation' 62 call mipcre(fid,name1,gtype1,cnode1,nvar1,
64 print *,
'interpolation creation',cret
65 if (cret .ne. 0 )
then 66 print *,
'ERROR : interpolation creation' 72 call mipbfw(fid,name1,1,ncoef1,power1,coef1,cret)
73 print *,
'function creation',cret
74 if (cret .ne. 0 )
then 75 print *,
'ERROR : function creation' 79 call mipbfw(fid,name1,2,ncoef2,power2,coef2,cret)
80 print *,
'function creation',cret
81 if (cret .ne. 0 )
then 82 print *,
'ERROR : function creation' 86 call mipbfw(fid,name1,3,ncoef3,power3,coef3,cret)
87 print *,
'function creation',cret
88 if (cret .ne. 0 )
then 89 print *,
'ERROR : function creation' 96 print *,
'Close file',cret
97 if (cret .ne. 0 )
then 98 print *,
'ERROR : close file' subroutine mficlo(fid, cret)
subroutine mipcre(fid, name, gtype, cnode, nvar, maxd, nmaxc, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mipbfw(fid, name, it, nc, pw, co, cret)