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