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 call efmaac(fid,'maa1',3,
00080 & MED_NON_STRUCTURE,
00081 & 'un premier maillage',ret)
00082 cret = cret + ret
00083
00084 call efunvc(fid,'maa1',ret)
00085 cret = cret + ret
00086 print *,cret
00087 if (cret .ne. 0 ) then
00088 print *,'Erreur creation du maillage'
00089 call efexit(-1)
00090 endif
00091
00092
00093
00094 call efmaac(fid,'maa2',2,
00095 & MED_NON_STRUCTURE,
00096 & 'un second maillage',ret)
00097 cret = cret + ret
00098
00099
00100 call efespc(fid,'maa2',3,ret)
00101 cret = cret + ret
00102 print *,cret
00103 if (cret .ne. 0 ) then
00104 print *,'Erreur creation du maillage'
00105 call efexit(-1)
00106 endif
00107
00108
00109
00110 call efmaac(fid,'maa3',1,
00111 & MED_STRUCTURE,
00112 & 'un troisieme maillage',ret)
00113 cret = cret + ret
00114 print *,cret
00115 if (cret .ne. 0 ) then
00116 print *,'Erreur creation du maillage'
00117 call efexit(-1)
00118 endif
00119
00120
00121 call efferm (fid,cret)
00122 print *,cret
00123 if (cret .ne. 0 ) then
00124 print *,'Erreur fermeture du fichier'
00125 call efexit(-1)
00126 endif
00127
00128 end
00129
00130
00131
00132
00133