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.hf'
00031 
00032 
00033   integer  ret,cret, fid;
00034   
00035   integer mdim
00036   
00037   character*32 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   
00048   
00049   
00050   character*16, allocatable, dimension(:) ::  nomnoe
00051   integer,      allocatable, dimension(:) ::  numnoe,nufano
00052   integer rep
00053   logical inonoe,inunoe
00054   character*16 str
00055   integer i
00056   character*255 argc
00057   integer type
00058 
00059   print *,"Indiquez le fichier med a decrire : "
00060   
00061   argc = "test14.med"
00062 
00063   
00064   call efouvr(fid,argc,MED_LECTURE, cret)
00065   print *,cret
00066    
00067 
00068   
00069   if (cret.eq.0) then
00070      call efmaai(fid,1,maa,mdim,type,desc,cret)
00071      print *,"Maillage de nom : ",maa," et de dimension : ",mdim
00072   endif
00073   print *,cret
00074   
00075   
00076   if (cret.eq.0) then
00077      call efnema(fid,maa,MED_COOR,MED_NOEUD,0,0,nnoe,cret)
00078      print *,"Nombre de noeuds : ",nnoe
00079   endif
00080   print *,cret
00081 
00082   
00083   
00084   
00085   allocate (coo(nnoe*mdim),STAT=ret)
00086   
00087   
00088   allocate (numnoe(nnoe),nufano(nnoe),STAT=ret)
00089   
00090   
00091   allocate (nomnoe(nnoe),STAT=ret)
00092 
00093   
00094   
00095   
00096   
00097   
00098   if (cret.eq.0) then
00099      call efnoel(fid,maa,mdim,coo,MED_FULL_INTERLACE,rep,nomcoo,unicoo, &
00100  &                      nomnoe,inonoe,numnoe,inunoe,nufano,nnoe,cret)
00101   endif
00102   
00103   
00104   if (cret.eq.0) then
00105       print *,"Type de repere : ",rep
00106       print *,"Nom des coordonnees : ",nomcoo
00107     
00108       print *,"Unites des coordonnees : ",unicoo
00109      
00110       print *,"Coordonnees des noeuds : ",coo
00111      
00112       if (inonoe) then
00113          print *,"Noms des noeuds : |",nomnoe,"|"
00114       endif
00115 
00116       if (inunoe) then
00117          print *,"Numeros des noeuds : ",numnoe
00118       endif
00119 
00120       print *,"Numeros des familles des noeuds : ",nufano
00121    endif
00122 
00123   
00124    deallocate(coo,nomnoe,numnoe,nufano)
00125  
00126   
00127    call efferm (fid,cret)
00128    print *,cret
00129 
00130   
00131    call efexit(cret)
00132    
00133  end program test15
00134