00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024         program test25
00025 
00026         implicit none
00027         include 'med.hf'
00028 
00029         integer cret, fid,mdim
00030         parameter  (mdim = 3)
00031         character*32 maa        
00032         integer n
00033         parameter (n=2)
00034 
00035         integer np,nf
00036         parameter (nf=9,np=3)
00037         integer indexp(np),indexf(nf)
00038         integer conn(24)
00039 
00040         integer np2,nf2
00041         parameter (nf2=8,np2=3)
00042         integer indexp2(np2),indexf2(nf2)
00043         integer conn2(nf2)
00044         character*16 nom(n)
00045         integer num(n),fam(n)
00046 
00047         data indexp / 1,5,9 /
00048         data indexf / 1,4,7,10,13,16,19,22,25 /
00049         data conn / 1,2,3,4,5,6,7,8,9,10,11,12,13,14,
00050      &              15,16,17,18,19,20,21,22,23,24 /    
00051         data indexp2 / 1,5,9 /
00052         data indexf2 / MED_TRIA3,MED_TRIA3,MED_TRIA3,MED_TRIA3,
00053      &                 MED_TRIA3,MED_TRIA3,MED_TRIA3,MED_TRIA3 /
00054         data conn2 / 1,2,3,4,5,6,7,8 /
00055         data nom  / "poly1", "poly2"/ 
00056         data num  / 1,2 /, fam / 0,-1 /
00057         data maa /"maa1"/
00058 
00059 
00060         call efouvr(fid,'test25.med',MED_LECTURE_ECRITURE, cret)
00061         print *,cret
00062         if (cret .ne. 0 ) then
00063            print *,'Erreur creation du fichier'
00064            call efexit(-1)
00065         endif      
00066         print *,'Creation du fichier test25.med'
00067 
00068 
00069         call efmaac(fid,maa,mdim,MED_NON_STRUCTURE,
00070      &                 'un maillage pour test25',cret)
00071         if (cret .ne. 0 ) then
00072            print *,'Erreur creation du maillage'
00073            call efexit(-1)
00074         endif      
00075         print *,cret
00076         print *,'Creation du maillage'
00077 
00078 
00079         call efpece(fid,maa,indexp,np,indexf,nf,conn,MED_NOD,cret) 
00080         print *,cret
00081         if (cret .ne. 0 ) then
00082            print *,'Erreur ecriture connectivite des polyedres'
00083            call efexit(-1)
00084         endif      
00085         print *,
00086 'Ecriture des connectivites des mailles     & de type MED_POLYEDRE'
00087         print *,'Description nodale'
00088 
00089 
00090         call efpece(fid,maa,indexp2,np2,indexf2,nf2,conn2,MED_DESC,cret) 
00091         print *,cret
00092         if (cret .ne. 0 ) then
00093            print *,'Erreur ecriture connectivite des polyedres'
00094            call efexit(-1)
00095         endif      
00096         print *,
00097 'Ecriture des connectivites des mailles      & de type MED_POLYEDRE'
00098         print *,'Description descendante'
00099 
00100 
00101         call efnome(fid,maa,nom,n,MED_MAILLE,MED_POLYEDRE,
00102      &                 cret)
00103         print *,cret
00104         if (cret .ne. 0 ) then
00105            print *,'Erreur ecriture noms des polyedres'
00106            call efexit(-1)
00107         endif      
00108         print *,'Ecriture des noms des polyedress'
00109 
00110 
00111         call efnume(fid,maa,num,n,MED_MAILLE,MED_POLYEDRE,
00112      &                 cret)
00113         print *,cret
00114         if (cret .ne. 0 ) then
00115            print *,'Erreur ecriture numeros des polyedres'
00116            call efexit(-1)
00117         endif      
00118         print *,'Ecriture des numeros des polyedres'
00119 
00120 
00121         call effame(fid,maa,fam,n,
00122      &              MED_MAILLE,MED_POLYEDRE,cret)
00123         print *,cret
00124         if (cret .ne. 0 ) then
00125            print *,'Erreur ecriture numeros de familles polyedres'
00126            call efexit(-1)
00127         endif      
00128         print *,'Ecriture des numeros de familles des polyedres'
00129 
00130 
00131         call efferm (fid,cret)
00132         print *,cret
00133         if (cret .ne. 0 ) then
00134            print *,'Erreur fermeture du fichier'
00135            call efexit(-1)
00136         endif      
00137         print *,'Fermeture du fichier'
00138 
00139         end