30 character*64 fname,lname1,giname1,isname1
31 character*64 giname,isname
32 parameter(fname=
"Unittest_MEDlocalization_1.med")
35 parameter(giname1=med_no_interpolation)
36 parameter(isname1=med_no_mesh_support)
37 integer gtype1,sdim1,nip1
38 integer gtype,sdim,nip
39 parameter(gtype1=med_tria3)
42 integer sgtype,sgtype1
43 parameter(sgtype1=med_undef_geotype)
49 call mfiope(fid,fname,med_acc_rdonly,cret)
51 if (cret .ne. 0 )
then
52 print *,
'ERROR : open file'
60 if ((cret .ne. 0) .or.
62 print *,
'ERROR : number of localization'
69 call mlclci(fid,it,lname1,gtype,sdim,nip,
70 & giname,isname,nsmc,sgtype,cret)
72 if (cret .ne. 0 )
then
73 print *,
'ERROR : read information'
77 if ((gtype .ne. gtype1) .or.
78 & (sdim .ne. sdim1) .or.
79 & (nip .ne. nip1) .or.
80 & (giname .ne. giname1) .or.
81 & (isname .ne. isname1) .or.
82 & (nsmc .ne. nsmc1) .or.
83 & (sgtype .ne. sgtype1) )
then
85 print *,
'ERROR : read information'
94 if (cret .ne. 0 )
then
95 print *,
'ERROR : close file'
subroutine mlcnlc(fid, n, cret)
Cette routine permet de lire le nombre de localisations de points d'intégration contenues dans un fic...
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mlclci(fid, it, lname, gtype, sdim, nip, giname, isname, nsmc, sgtype, cret)
Cette routine permet d'obtenir la description de la localisation de points d'intégration n° localizat...
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.