2.3.2v3.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