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)
Fermeture d'un fichier MED.
subroutine mipnip(fid, n, cret)
Cette routine renvoie le nombre d'interpolations disponibles dans le fichier.
subroutine mfiope(fid, name, access, cret)
Ouverture 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.