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 test4
00025 
00026         implicit none
00027         include 'med.hf'
00028 
00029 
00030         integer cret, fid
00031         
00032 
00033         integer      mdim
00034 
00035         character*32 maa
00036 
00037         integer      nnoe 
00038 
00039 
00040         real*8       coo(8)
00041 
00042 
00043         character*16 nomcoo(2)
00044         character*16 unicoo(2)
00045 
00046 
00047 
00048         character*16 nomnoe(4)
00049         integer     numnoe(4)
00050         integer     nufano(4)
00051         
00052         parameter    ( mdim = 2, maa = "maa1",nnoe = 4 )
00053         data  coo    /0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0/
00054         data  nomcoo /"x","y"/, unicoo /"cm","cm"/
00055         data  nomnoe /"nom1","nom2","nom3","nom4"/
00056         data  numnoe /1,2,3,4/, nufano /0,1,2,2/
00057 
00058 
00059         call efouvr(fid,'test4.med',MED_LECTURE_ECRITURE, cret)
00060         print *,cret
00061         if (cret .ne. 0 ) then
00062            print *,'Erreur creation du fichier'
00063            call efexit(-1)
00064         endif      
00065         
00066 
00067 
00068         call efmaac(fid,maa,mdim,MED_NON_STRUCTURE,
00069      &                 'un maillage pour test4',cret)
00070         print *,cret
00071         if (cret .ne. 0 ) then
00072            print *,'Erreur creation du maillage'
00073            call efexit(-1)
00074         endif      
00075         
00076 
00077 
00078         call efcooe(fid,maa,mdim,coo,MED_FULL_INTERLACE,
00079      &     nnoe,MED_CART,nomcoo,unicoo,cret)
00080         print *,cret         
00081         if (cret .ne. 0 ) then
00082            print *,'Erreur ecriture des coordonnees des noeuds'
00083            call efexit(-1)
00084         endif      
00085         
00086 
00087         call efnome(fid,maa,nomnoe,nnoe,MED_NOEUD,0,cret)
00088         print *,cret
00089         if (cret .ne. 0 ) then
00090            print *,'Erreur ecriture des noms des noeuds'
00091            call efexit(-1)
00092         endif      
00093          
00094 
00095         call efnume(fid,maa,numnoe,nnoe,MED_NOEUD,0,cret)
00096         print *,cret
00097         if (cret .ne. 0 ) then
00098            print *,'Erreur ecriture des numeros des noeuds'
00099          call efexit(-1)
00100         endif      
00101          
00102 
00103 
00104         call effame(fid,maa,nufano,nnoe,MED_NOEUD,0,cret) 
00105         print *,cret
00106         if (cret .ne. 0 ) then
00107            print *,'Erreur ecriture des numeros de famille'
00108            call efexit(-1)
00109         endif      
00110 
00111 
00112         call efferm (fid,cret)
00113         print *,cret
00114         if (cret .ne. 0 ) then
00115            print *,'Erreur fermeture du fichier'
00116            call efexit(-1)
00117         endif      
00118         
00119         end
00120 
00121 
00122 
00123