f/2.3.6/test1.f
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024       program test1
00025 
00026       implicit none
00027       include 'med.hf'
00028 
00029 
00030       integer cret
00031       integer fid
00032       character*200 des
00033       parameter (des = "Ceci est un courte description"
00034      1     // " du fichier test1.med")  
00035       
00036 
00037       call efouvr(fid,'test1.med',MED_LECTURE_ECRITURE, cret)
00038       print *,cret
00039       if (cret .ne. 0 ) then
00040          print *,'Erreur à la création du fichier'
00041          call efexit(-1)
00042       endif      
00043 
00044 
00045       call effide (fid,des,cret)
00046       print *,cret
00047       if (cret .ne. 0 ) then
00048          print *,'Erreur à ecriture en-tete'
00049          call efexit(-1)
00050       endif      
00051       
00052 
00053       call efferm (fid,cret)
00054       print *,cret
00055       if (cret .ne. 0 ) then
00056          print *,'Erreur à la fermeture du fichier'
00057          call efexit(-1)
00058       endif      
00059 
00060 
00061       call efouvr(fid,'test1.med',MED_LECTURE, cret)
00062       print *,cret
00063       if (cret .ne. 0 ) then
00064          print *,'Erreur ouverture du fichier en lecture'
00065          call efexit(-1)
00066       endif      
00067 
00068 
00069       call efferm (fid,cret)
00070       print *,cret
00071       if (cret .ne. 0 ) then
00072          print *,'Erreur à la fermeture du fichier'
00073          call efexit(-1)
00074       endif      
00075 
00076       end