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 mipbfw(fid, name, it, nc, pw, co, cret)
Cette routine permet l'écriture d'une fonction de base/forme de l'interpolation interpname.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mipcre(fid, name, gtype, cnode, nvar, maxd, nmaxc, cret)
Cette routine permet de créer une nouvelle fonction d'interpolation polynômiale nommée interpname...
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.