2.3.1v3.0/test2.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 
00023 
00024       program test2
00025 
00026       implicit none
00027       include 'med.hf'
00028 
00029 
00030       integer cret,ret
00031       integer fid
00032       character*200 des
00033       integer hdfok, medok
00034       character*16 nomcoo(2)
00035       character*16 unicoo(2)
00036       data  nomcoo /"x","y"/, unicoo /"cm","cm"/
00037 
00038 
00039       call mficom('test1.med',hdfok,medok,cret)
00040       print *,hdfok, medok, cret
00041       if (cret .ne. 0 ) then
00042          print *,'Erreur à la vérification du format'
00043          call efexit(-1)
00044       endif      
00045 
00046 
00047       call mfiope(fid,'test1.med',MED_ACC_RDONLY, cret)
00048       print *,cret
00049       if (cret .ne. 0 ) then
00050          print *,'Erreur ouverture du fichier en lecture'
00051          call efexit(-1)
00052       endif      
00053 
00054 
00055       call mficor(fid,des,cret)
00056       print *,cret
00057       if (cret .ne. 0 ) then
00058          print *,'Erreur lecture en-tete du fichier'
00059          call efexit(-1)
00060       endif      
00061       print *,"DESCRIPTEUR DE FICHIER : ",des
00062 
00063  
00064 
00065       call mficlo(fid,cret)
00066       print *,cret
00067       if (cret .ne. 0 ) then
00068          print *,'Erreur fermeture du fichier'
00069          call efexit(-1)
00070       endif    
00071 
00072       end 
00073 
00074 
00075 
00076 
00077