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'
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mipipi(fid, it, name, gtype, cnode, nbf, nvar, maxd, nmaxc, cret)
Cette fonction informe des caractéristiques de la fonction d'interpolation n° interpit.
subroutine mipnip(fid, n, cret)