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 
00026 
00027 program test15
00028   
00029   implicit none
00030   include 'med.hf90'
00031 
00032 
00033   integer  ret,cret, fid;
00034   
00035   integer mdim,sdim
00036   
00037   character*64 maa
00038   character*200 desc
00039   
00040   integer :: nnoe = 0
00041   
00042   real*8, allocatable, dimension(:) :: coo
00043   
00044   
00045   character*16 nomcoo(2)
00046   character*16 unicoo(2)
00047   character*16 dtunit
00048   
00049   
00050   
00051   character*16, allocatable, dimension(:) ::  nomnoe
00052   integer,      allocatable, dimension(:) ::  numnoe,nufano
00053   integer rep
00054   integer inonoe,inunoe,inufa
00055   character*16 str
00056   integer i
00057   character*255 argc
00058   integer type,nstep,stype
00059   integer chgt,tsf
00060 
00061   
00062   call mfiope(fid,"test14.med",MED_ACC_RDONLY, cret)
00063   print *,cret
00064    
00065 
00066   
00067   if (cret.eq.0) then
00068      call mmhmii(fid,1,maa,sdim,mdim,type,desc,dtunit,stype,nstep,rep,nomcoo,unicoo,cret)
00069      print *,"Maillage de nom : ",maa," et de dimension : ",mdim
00070   endif
00071   print *,cret
00072   
00073   
00074   if (cret.eq.0) then
00075      call mmhnme(fid,maa,MED_NO_DT,MED_NO_IT,MED_NODE,MED_NONE,MED_COORDINATE,MED_NO_CMODE,chgt,tsf,nnoe,cret)
00076      print *,"Nombre de noeuds : ",nnoe
00077   endif
00078   print *,cret
00079 
00080   
00081   
00082   
00083   allocate (coo(nnoe*sdim),STAT=ret)
00084   
00085   
00086   allocate (numnoe(nnoe),nufano(nnoe),STAT=ret)
00087   
00088   
00089   allocate (nomnoe(nnoe),STAT=ret)
00090 
00091   
00092   
00093   
00094   
00095   
00096   if (cret.eq.0) then
00097      call mmhnor(fid,maa,MED_NO_DT,MED_NO_IT,MED_FULL_INTERLACE,coo,inonoe,nomnoe,inunoe,numnoe,inufa,nufano,cret)    
00098   endif
00099   
00100   
00101   if (cret.eq.0) then
00102       print *,"Type de repere : ",rep
00103       print *,"Nom des coordonnees : ",nomcoo
00104     
00105       print *,"Unites des coordonnees : ",unicoo
00106      
00107       print *,"Coordonnees des noeuds : ",coo
00108      
00109       if (inonoe .eq. MED_TRUE) then
00110          print *,"Noms des noeuds : |",nomnoe,"|"
00111       endif
00112 
00113       if (inunoe .eq. MED_TRUE) then
00114          print *,"Numeros des noeuds : ",numnoe
00115       endif
00116 
00117       if (inufa .eq. MED_TRUE) then
00118          print *,"Numeros des familles des noeuds : ",nufano
00119       else
00120          print *,"Numeros des familles des noeuds : 0"
00121       endif
00122 
00123    endif
00124 
00125   
00126    deallocate(coo,nomnoe,numnoe,nufano)
00127  
00128   
00129    call mficlo(fid,cret)
00130    print *,cret
00131 
00132   
00133    call efexit(cret)
00134    
00135  end program test15
00136