2.3.6/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
00023
00024 program test1
00025
00026 implicit none
00027 include 'med.hf'
00028
00029
00030 integer cret
00031 integer fid
00032 character*200 des
00033 parameter (des = "Ceci est un courte description"
00034 1 // " du fichier test1.med")
00035
00036
00037 call efouvr(fid,'test1.med',MED_LECTURE_ECRITURE, cret)
00038 print *,cret
00039 if (cret .ne. 0 ) then
00040 print *,'Erreur à la création du fichier'
00041 call efexit(-1)
00042 endif
00043
00044
00045 call effide (fid,des,cret)
00046 print *,cret
00047 if (cret .ne. 0 ) then
00048 print *,'Erreur à ecriture en-tete'
00049 call efexit(-1)
00050 endif
00051
00052
00053 call efferm (fid,cret)
00054 print *,cret
00055 if (cret .ne. 0 ) then
00056 print *,'Erreur à la fermeture du fichier'
00057 call efexit(-1)
00058 endif
00059
00060
00061 call efouvr(fid,'test1.med',MED_LECTURE, cret)
00062 print *,cret
00063 if (cret .ne. 0 ) then
00064 print *,'Erreur ouverture du fichier en lecture'
00065 call efexit(-1)
00066 endif
00067
00068
00069 call efferm (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 end