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
00034
00035 call effoco('test1.med',cret)
00036 print *,cret
00037 if (cret .ne. 0 ) then
00038 print *,'Erreur à la vérification du format'
00039 call efexit(-1)
00040 endif
00041
00042
00043 call efouvr(fid,'test1.med',MED_LECTURE, cret)
00044 print *,cret
00045 if (cret .ne. 0 ) then
00046 print *,'Erreur ouverture du fichier en lecture'
00047 call efexit(-1)
00048 endif
00049
00050
00051 call effien (fid, MED_FICH_DES,des,cret)
00052 print *,cret
00053 if (cret .ne. 0 ) then
00054 print *,'Erreur lecture en-tete du fichier'
00055 call efexit(-1)
00056 endif
00057 print *,"DESCRIPTEUR DE FICHIER : ",des
00058
00059
00060
00061 call efferm (fid,cret)
00062 print *,cret
00063 if (cret .ne. 0 ) then
00064 print *,'Erreur fermeture du fichier'
00065 call efexit(-1)
00066 endif
00067
00068
00069
00070 call efouvr(fid,'test2.med',MED_LECTURE_ECRITURE, cret)
00071 print *,cret
00072 if (cret .ne. 0 ) then
00073 print *,'Erreur creation du fichier'
00074 call efexit(-1)
00075 endif
00076
00077
00078
00079
00080
00081
00082 call efmaac(fid,'maa1',3,
00083 & MED_NON_STRUCTURE,
00084 & 'un premier maillage',ret)
00085 cret = cret + ret
00086
00087 call efunvc(fid,'maa1',ret)
00088 cret = cret + ret
00089 print *,cret
00090 if (cret .ne. 0 ) then
00091 print *,'Erreur creation du maillage'
00092 call efexit(-1)
00093 endif
00094
00095
00096
00097 call efmaac(fid,'maa2',2,
00098 & MED_NON_STRUCTURE,
00099 & 'un second maillage',ret)
00100 cret = cret + ret
00101
00102
00103 call efespc(fid,'maa2',3,ret)
00104 cret = cret + ret
00105 print *,cret
00106 if (cret .ne. 0 ) then
00107 print *,'Erreur creation du maillage'
00108 call efexit(-1)
00109 endif
00110
00111
00112
00113 call efmaac(fid,'maa3',1,
00114 & MED_STRUCTURE,
00115 & 'un troisieme maillage',ret)
00116 cret = cret + ret
00117 print *,cret
00118 if (cret .ne. 0 ) then
00119 print *,'Erreur creation du maillage'
00120 call efexit(-1)
00121 endif
00122
00123
00124 call efferm (fid,cret)
00125 print *,cret
00126 if (cret .ne. 0 ) then
00127 print *,'Erreur fermeture du fichier'
00128 call efexit(-1)
00129 endif
00130
00131 end
00132
00133
00134
00135
00136