00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025         program test31
00026 
00027         implicit none
00028         include 'med.hf'
00029 
00030 
00031         integer cret,fid
00032         character*32 maa
00033         character*200 des
00034         integer nmaa, mdim , nnoe, type, ind
00035         integer numglb(100),i
00036 
00037 
00038 
00039         call efouvr(fid,'test31.med',MED_LECTURE_ECRITURE, cret)
00040         print *,cret
00041         if (cret .ne. 0 ) then
00042            print *,'Erreur ouverture du fichier test31.med'
00043            call efexit(-1)
00044         endif      
00045 
00046   
00047 
00048         
00049         call efnmaa(fid,nmaa,cret)
00050         print *,cret
00051         if (cret .ne. 0 ) then
00052            print *,'Erreur lecture du nombre de maillage'
00053            call efexit(-1)
00054         endif      
00055         print *,'Nombre de maillages = ',nmaa
00056 
00057 
00058         
00059         ind=1
00060         call efmaai(fid,ind,maa,mdim,type,des,cret)
00061         print *,cret
00062         if (cret .ne. 0 ) then
00063            print *,'Erreur acces au premier maillage'
00064            call efexit(-1)
00065         endif      
00066 
00067         nnoe = 0
00068         call efnema(fid,maa,MED_COOR,MED_NOEUD,0,0,nnoe,cret)   
00069         if (cret .ne. 0 ) then
00070            print *,'Erreur acces au nombre de noeud du premier maillage'
00071            call efexit(-1)
00072         endif      
00073 
00074 
00075          print '(A,I1,A,A4,A,I1,A,I4)','maillage '
00076      &        ,ind,' de nom ',maa,' et de dimension ',mdim,
00077      &        ' comportant le nombre de noeud ',nnoe
00078 
00079 
00080          
00081          if (nnoe.gt.100) nnoe=100
00082 
00083          do i=1,nnoe
00084             numglb(i)=i+100
00085          enddo
00086 
00087 
00088 
00089          call efgnme(fid,maa,numglb,nnoe,MED_NOEUD,0,cret)
00090 
00091         if (cret .ne. 0 ) then
00092            print *,'Erreur ecriture numerotation globale '
00093            call efexit(-1)
00094         endif      
00095 
00096         call efferm (fid,cret)
00097         print *,cret
00098         if (cret .ne. 0 ) then
00099            print *,'Erreur fermeture du fichier'
00100            call efexit(-1)
00101         endif      
00102 
00103         end