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*64 maa
00033 character*200 des
00034 integer nmaa, mdim ,nnoe,type,sdim
00035 character*16 nomcoo(2)
00036 character*16 unicoo(2)
00037 character(16) :: dtunit
00038 integer nstep, stype, atype,chgt,tsf
00039 integer numglb(100),i
00040
00041
00042
00043 call mfiope(fid,'test31.med',MED_ACC_RDONLY, cret)
00044 print '(I1)',cret
00045 if (cret .ne. 0 ) then
00046 print *,'Erreur ouverture du fichier test31.med'
00047 call efexit(-1)
00048 endif
00049
00050
00051
00052 call mmhmii(fid,1,maa,sdim,mdim,type,des,dtunit,
00053 & stype,nstep,atype,nomcoo,unicoo,cret)
00054 print '(I1)',cret
00055 if (cret .ne. 0 ) then
00056 print *,'Erreur acces au premier maillage'
00057 call efexit(-1)
00058 endif
00059
00060 nnoe = 0
00061 call mmhnme(fid,maa,MED_NO_DT,MED_NO_IT,MED_NODE,MED_NONE,
00062 & MED_COORDINATE,MED_NO_CMODE,chgt,tsf,nnoe,cret)
00063 if (cret .ne. 0 ) then
00064 print *,'Erreur acces au nombre de noeud du premier maillage'
00065 call efexit(-1)
00066 endif
00067
00068
00069 print '(A,I1,A,A4,A,I1,A,I4)','maillage '
00070 & ,0,' de nom ',maa,' et de dimension ',mdim,
00071 & ' comportant le nombre de noeud ',nnoe
00072
00073
00074
00075 call mmhgnr(fid,maa,MED_NO_DT,MED_NO_IT,MED_NODE,MED_NONE,
00076 & numglb,cret)
00077
00078 if (cret .ne. 0 ) then
00079 print *,'Erreur lecture numerotation globale '
00080 call efexit(-1)
00081 endif
00082
00083
00084
00085
00086 do i=1,min(nnoe,100)
00087 print '(A,I3,A,I4)',
00088 & 'Numero global du noeud ',i,' : ',numglb(i)
00089 enddo
00090
00091
00092
00093 call mficlo(fid,cret)
00094 print '(I1)',cret
00095 if (cret .ne. 0 ) then
00096 print *,'Erreur fermeture du fichier'
00097 call efexit(-1)
00098 endif
00099
00100 end