f/test1.f
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*255 fname
00031 character*200 des
00032 parameter (des = "Ceci est un courte description"
00033 1 // " du fichier test1.med")
00034
00035
00036 call mfiope(fid,'test1.med',MED_ACC_RDWR, cret)
00037 print *,cret
00038 if (cret .ne. 0 ) then
00039 print *,'Erreur à la création du fichier'
00040 call efexit(-1)
00041 endif
00042
00043
00044 call mficow(fid,des,cret)
00045 print *,cret
00046 if (cret .ne. 0 ) then
00047 print *,'Erreur à ecriture en-tete'
00048 call efexit(-1)
00049 endif
00050
00051
00052 call mfinam(fid,"", cret)
00053 print *,cret
00054 if (cret .le. 0 ) then
00055 print *,'Erreur à la lecture de la taille du nom de fichier'
00056 call efexit(-1)
00057 endif
00058
00059
00060 call mfinam(fid,fname, cret)
00061 print *,cret
00062 if (cret .le. 0 ) then
00063 print *,'Erreur à la lecture du nom de fichier'
00064 call efexit(-1)
00065 endif
00066 print *,fname
00067
00068
00069 call mficlo(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
00077 call mfiope(fid,'test1.med',MED_ACC_RDONLY, cret)
00078 print *,cret
00079 if (cret .ne. 0 ) then
00080 print *,'Erreur ouverture du fichier en lecture'
00081 call efexit(-1)
00082 endif
00083
00084
00085 call mficlo(fid,cret)
00086 print *,cret
00087 if (cret .ne. 0 ) then
00088 print *,'Erreur à la fermeture du fichier'
00089 call efexit(-1)
00090 endif
00091
00092 end