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