00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025 program test27
00026
00027 implicit none
00028 include 'med.hf'
00029
00030
00031 integer cret, fid
00032
00033 integer mdim
00034
00035 character*32 maa
00036
00037 integer nnoe
00038
00039 real*8 coo(8)
00040 character*16 comp, comp2(2)
00041 character*16 unit, unit2(2)
00042 character*200 desc
00043 integer strgri(2)
00044
00045 integer axe,nind
00046 real*8 indice(4)
00047
00048
00049
00050 data coo /0.0,0.0,1.0,0.0,0.0,1.0,1.0,1.0/
00051 data comp2 /"x","y"/, unit2 /"cm","cm"/
00052
00053
00054 call efouvr(fid,'test27.med',MED_LECTURE_ECRITURE, cret)
00055 print *,cret
00056 if (cret .ne. 0 ) then
00057 print *,'Erreur creation du fichier'
00058 call efexit(-1)
00059 endif
00060 print *,'Creation du fichier test27.med'
00061
00062
00063 mdim = 3
00064 maa = 'maillage vide'
00065 desc = 'un maillage vide'
00066 call efmaac(fid,maa,mdim,MED_NON_STRUCTURE,desc,cret)
00067 print *,cret
00068 if (cret .ne. 0 ) then
00069 print *,'Erreur creation du maillage'
00070 call efexit(-1)
00071 endif
00072
00073
00074 mdim = 2
00075 maa = 'grille cartesienne'
00076 desc = 'un exemple de grille cartesienne'
00077 call efmaac(fid,maa,mdim,MED_STRUCTURE,desc,cret)
00078 print *,cret
00079 if (cret .ne. 0 ) then
00080 print *,'Erreur creation du maillage'
00081 call efexit(-1)
00082 endif
00083 print *,'Creation d un maillage MED_STRUCTURE'
00084
00085
00086
00087 call efnage(fid,maa,MED_GRILLE_CARTESIENNE,cret)
00088 print *,cret
00089 print *,
00090 'On definit la nature de la grille : & MED_GRILLE_CARTESIENNE'
00091 if (cret .ne. 0 ) then
00092 print *,'Erreur ecriture de la nature de la grille'
00093 call efexit(-1)
00094 endif
00095
00096
00097 indice(1) = 1.1D0
00098 indice(2) = 1.2D0
00099 indice(3) = 1.3D0
00100 indice(4) = 1.4D0
00101 nind = 4
00102 axe = 1
00103 comp = 'X'
00104 unit = 'cm'
00105 call eficoe(fid,maa,mdim,indice,nind,axe,comp,unit,cret)
00106 print *,cret
00107 if (cret .ne. 0 ) then
00108 print *,'Erreur ecriture des indices'
00109 call efexit(-1)
00110 endif
00111 print *,'Ecriture des indices des coordonnees selon axe X'
00112
00113 indice(1) = 2.1D0
00114 indice(2) = 2.2D0
00115 indice(3) = 2.3D0
00116 indice(4) = 2.4D0
00117 nind = 4
00118 axe = 2
00119 comp = 'Y'
00120 unit = 'cm'
00121 call eficoe(fid,maa,mdim,indice,nind,axe,comp,unit,cret)
00122 print *,cret
00123 if (cret .ne. 0 ) then
00124 print *,'Erreur ecriture des indices'
00125 call efexit(-1)
00126 endif
00127 print *,'Ecriture des indices des coordonnees selon axe Y'
00128
00129
00130 maa = 'grille standard'
00131 mdim = 2
00132 desc = 'un exemple de grille standard'
00133 call efmaac(fid,maa,mdim,MED_STRUCTURE,desc,cret)
00134 print *,cret
00135 if (cret .ne. 0 ) then
00136 print *,'Erreur creation de maillage'
00137 call efexit(-1)
00138 endif
00139 print *,'Nouveau maillage MED_STRUCTURE'
00140
00141 call efnage(fid,maa,MED_GRILLE_STANDARD,cret)
00142 print *,cret
00143 if (cret .ne. 0 ) then
00144 print *,'Erreur ecriture de la nature de la grille'
00145 call efexit(-1)
00146 endif
00147 print *,'On definit la nature du maillage : MED_GRILLE_STANDARD'
00148
00149
00150 nnoe = 4
00151 call efcooe(fid,maa,mdim,coo,MED_FULL_INTERLACE,nnoe,MED_CART,
00152 & comp2,unit2,cret)
00153 print *,cret
00154 if (cret .ne. 0 ) then
00155 print *,'Erreur ecriture des coordonnees des noeuds'
00156 call efexit(-1)
00157 endif
00158 print *,'Ecriture des coordonnees de la grille'
00159
00160
00161 strgri(1) = 2
00162 strgri(2) = 2
00163 call efscoe(fid,maa,mdim,strgri,cret)
00164 print *,cret
00165 if (cret .ne. 0 ) then
00166 print *,'Erreur ecriture de la structure'
00167 call efexit(-1)
00168 endif
00169 print *,'Ecriture de la structure de la grille : / 2,2 /'
00170
00171
00172 call efferm (fid,cret)
00173 print *,cret
00174 if (cret .ne. 0 ) then
00175 print *,'Erreur fermeture du fichier'
00176 call efexit(-1)
00177 endif
00178 print *,'Fermeture du fichier'
00179
00180 end
00181
00182
00183
00184
00185
00186