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 mipnip(fid, n, cret)
Cette routine renvoie le nombre d'interpolations disponibles dans le fichier.
subroutine mfiope(fid, name, access, cret)
subroutine mipipi(fid, it, name, gtype, cnode, nbf, nvar, maxd, nmaxc, cret)
subroutine mficlo(fid, cret)