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 test18
00026 
00027       implicit none
00028       include 'med.hf'
00029 
00030 
00031       integer      fid
00032       integer      cret
00033       integer      maj,min,rel
00034       
00035 
00036       call efouvr(fid,'test18.med',MED_LECTURE_ECRITURE, cret)
00037       print *,cret
00038       if (cret .ne. 0 ) then
00039          print *,'Erreur creation du fichier'
00040          call efexit(-1)
00041       endif      
00042       print *,'- Creation du fichier'
00043 
00044 
00045       call efferm (fid,cret)
00046       print *,cret
00047       if (cret .ne. 0 ) then
00048          print *,'Erreur fermeture du fichier'
00049          call efexit(-1)
00050       endif      
00051       print *,'- Fermeture du fichier'
00052 
00053 
00054       call efvedo(maj,min,rel,cret)
00055       print *,cret
00056       if (cret .ne. 0 ) then
00057          print *,'Erreur lecture version med'
00058          call efexit(-1)
00059       endif      
00060       print *,'- Version MED utilisee : ',maj,'.',min,'.',rel
00061  
00062 
00063       call effoco('test18.med',cret)
00064       print *,cret
00065       if (cret .eq. 0) then
00066          print *,'- Format HDF conforme'
00067       else
00068          print *,'- Format HDF non conforme'
00069          call efexit(-1)
00070       endif   
00071 
00072 
00073       call efveco('test18.med',cret)
00074       print *,cret
00075       if (cret .eq. 0) then
00076          print *,'- Version MED du fichier conforme'
00077       else
00078          print *,'- Version MED du fichier non conforme'
00079          call efexit(-1)
00080       endif           
00081 
00082 
00083       call efouvr(fid,'test18.med',MED_LECTURE, cret)
00084       if (cret .ne. 0 ) then
00085          print *,'Erreur ouverture du fichier'
00086          call efexit(-1)
00087       endif      
00088       print *,'- Ouverture du fichier'
00089 
00090 
00091       call efveli(fid,maj,min,rel,cret)
00092       if (cret .ne. 0 ) then
00093          print *,'Erreur lecture version med du fichier'
00094          call efexit(-1)
00095       endif      
00096       print *,cret
00097       print *,'- Fichier cree avec MED V',maj,'.',min,'.',rel
00098          
00099 
00100       call efferm (fid,cret)
00101       print *,cret
00102       if (cret .ne. 0 ) then
00103          print *,'Erreur fermeture du fichier'
00104          call efexit(-1)
00105       endif      
00106       print *,'- Fermeture du fichier'
00107 
00108       end 
00109 
00110