30 character*64 fname,lname,giname,isname
31 parameter(fname =
"Unittest_MEDlocalization_1.med")
32 parameter(lname =
"Localization name")
33 parameter(giname=med_no_interpolation)
34 parameter(isname=med_no_mesh_support)
35 integer gtype,sdim,nip
36 parameter(gtype=med_tria3)
39 real*8 ecoo(6), ipcoo(6), wght(3)
40 data ecoo / 0.0, 0.0, 1.0, 0.0, 0.0,1.0 /
41 data ipcoo / 0.166666, 0.166666, 0.66666, 0.166666,
42 & 0.166666, 0.666666 /
43 data wght / 0.166666, 0.166666, 0.166666 /
47 call mfiope(fid,fname,med_acc_creat,cret)
48 print *,
'Open file',cret
49 if (cret .ne. 0 )
then
50 print *,
'ERROR : file creation'
56 call mlclow(fid,lname,gtype,sdim,ecoo,med_full_interlace,
57 & nip,ipcoo, wght, giname, isname, cret)
58 print *,
'localization creation',cret
59 if (cret .ne. 0 )
then
60 print *,
'ERROR : localization creation'
67 print *,
'Close file',cret
68 if (cret .ne. 0 )
then
69 print *,
'ERROR : close file'
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mlclow(fid, lname, gtype, sdim, ecoo, swm, nip, ipcoo, wght, giname, isname, cret)
Cette routine permet l'écriture d'une localisation localizationname de points d'intégration dans/auto...
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.