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