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 test32
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
00035         
00036         integer numglb(100),i
00037 
00038 
00039 
00040         call efouvr(fid,'test31.med',MED_LECTURE, cret)
00041         print '(I1)',cret
00042         if (cret .ne. 0 ) then
00043            print *,'Erreur ouverture du fichier test31.med'
00044            call efexit(-1)
00045         endif      
00046 
00047   
00048 
00049         
00050         call efnmaa(fid,nmaa,cret)
00051         print '(I1)',cret
00052         if (cret .ne. 0 ) then
00053            print *,'Erreur lecture du nombre de maillage'
00054            call efexit(-1)
00055         endif      
00056         print '(A,I1)','Nombre de maillages = ',nmaa
00057 
00058 
00059 
00060 
00061         call efmaai(fid,1,maa,mdim,type,des,cret)
00062         print '(I1)',cret
00063         if (cret .ne. 0 ) then
00064            print *,'Erreur acces au premier maillage'
00065            call efexit(-1)
00066         endif      
00067 
00068         nnoe = 0
00069         call efnema(fid,maa,MED_COOR,MED_NOEUD,0,0,nnoe,cret)   
00070         if (cret .ne. 0 ) then
00071            print *,'Erreur acces au nombre de noeud du premier maillage'
00072            call efexit(-1)
00073         endif      
00074 
00075 
00076          print '(A,I1,A,A4,A,I1,A,I4)','maillage '
00077      &        ,0,' de nom ',maa,' et de dimension ',mdim,
00078      &        ' comportant le nombre de noeud ',nnoe
00079 
00080 
00081 
00082 
00083          call efgnml(fid,maa,numglb,min(nnoe,100),MED_NOEUD,0,cret)
00084 
00085         if (cret .ne. 0 ) then
00086            print *,'Erreur lecture numerotation globale '
00087            call efexit(-1)
00088         endif      
00089 
00090 
00091 
00092 
00093          do i=1,min(nnoe,100)
00094             print '(A,I3,A,I4)',
00095      &   'Numero global du noeud ',i,' : ',numglb(i)
00096          enddo
00097 
00098 
00099 
00100         call efferm (fid,cret)
00101         print '(I1)',cret
00102         if (cret .ne. 0 ) then
00103            print *,'Erreur fermeture du fichier'
00104            call efexit(-1)
00105         endif      
00106 
00107         end