31 character*64 fname,lname1,giname1,isname1
32 character*64 giname,isname
33 parameter(fname=
"Unittest_MEDlocalization_1.med")
36 parameter(giname1=med_no_interpolation)
37 parameter(isname1=med_no_mesh_support)
38 integer gtype1,sdim1,nip1
39 integer gtype,sdim,nip
40 parameter(gtype1=med_tria3)
43 integer sgtype,sgtype1
44 parameter(sgtype1=med_undef_geotype)
50 call mfiope(fid,fname,med_acc_rdonly,cret)
52 if (cret .ne. 0 )
then
53 print *,
'ERROR : open file'
61 if ((cret .ne. 0) .or.
63 print *,
'ERROR : number of localization'
70 call mlclci(fid,it,lname1,gtype,sdim,nip,
71 & giname,isname,nsmc,sgtype,cret)
73 if (cret .ne. 0 )
then
74 print *,
'ERROR : read information'
78 if ((gtype .ne. gtype1) .or.
79 & (sdim .ne. sdim1) .or.
80 & (nip .ne. nip1) .or.
81 & (giname .ne. giname1) .or.
82 & (isname .ne. isname1) .or.
83 & (nsmc .ne. nsmc1) .or.
84 & (sgtype .ne. sgtype1) )
then
86 print *,
'ERROR : read information'
95 if (cret .ne. 0 )
then
96 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 mlcnlc(fid, n, cret)
Cette routine permet de lire le nombre de localisations de points d'intégration contenues dans un fic...
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...