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