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       integer hdfok, medok
00035       
00036 
00037       call mfiope(fid,'test18.med',MED_ACC_RDWR, cret)
00038       print *,cret
00039       if (cret .ne. 0 ) then
00040          print *,'Erreur creation du fichier'
00041          call efexit(-1)
00042       endif      
00043       print *,'- Creation du fichier'
00044 
00045 
00046       call mficlo(fid,cret)
00047       print *,cret
00048       if (cret .ne. 0 ) then
00049          print *,'Erreur fermeture du fichier'
00050          call efexit(-1)
00051       endif      
00052       print *,'- Fermeture du fichier'
00053 
00054 
00055       call mlbnuv(maj,min,rel,cret)
00056       print *,cret
00057       if (cret .ne. 0 ) then
00058          print *,'Erreur lecture version med'
00059          call efexit(-1)
00060       endif      
00061       print *,'- Version MED utilisee : ',maj,'.',min,'.',rel
00062  
00063 
00064       call mficom('test18.med',hdfok, medok,cret)
00065       print *,cret
00066       if (hdfok .eq. 1) then
00067          print *,'- Format HDF conforme'
00068       else
00069          print *,'- Format HDF non conforme'
00070          call efexit(-1)
00071       endif   
00072       if (medok .eq. 1) then
00073          print *,'- Version MED du fichier conforme'
00074       else
00075          print *,'- Version MED du fichier non conforme'
00076          call efexit(-1)
00077       endif           
00078 
00079 
00080       call mfiope(fid,'test18.med',MED_ACC_RDONLY, cret)
00081       if (cret .ne. 0 ) then
00082          print *,'Erreur ouverture du fichier'
00083          call efexit(-1)
00084       endif      
00085       print *,'- Ouverture du fichier'
00086 
00087 
00088       call  mfinvr(fid,maj,min,rel,cret)
00089       if (cret .ne. 0 ) then
00090          print *,'Erreur lecture version med du fichier'
00091          call efexit(-1)
00092       endif      
00093       print *,cret
00094       print *,'- Fichier cree avec MED V',maj,'.',min,'.',rel
00095          
00096 
00097       call mficlo(fid,cret)
00098       print *,cret
00099       if (cret .ne. 0 ) then
00100          print *,'Erreur fermeture du fichier'
00101          call efexit(-1)
00102       endif      
00103       print *,'- Fermeture du fichier'
00104 
00105       end 
00106 
00107