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