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 test23
00025
00026 implicit none
00027 include 'med.hf'
00028
00029 integer cret, fid,mdim
00030 parameter (mdim = 3)
00031 character*32 maa
00032 integer ni, n
00033 parameter (ni=4, n=3)
00034 integer index(ni)
00035 character*16 nom(n)
00036 integer num(n),fam(n)
00037 integer con(16)
00038
00039 data con / 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 /
00040 data nom / "poly1", "poly2", "poly3"/
00041 data num / 1,2,3 /, fam /0,-1,-2/
00042 data index /1,6,12,17/
00043 data maa /"maa1"/
00044
00045
00046 call efouvr(fid,'test23.med',MED_LECTURE_ECRITURE, cret)
00047 print *,cret
00048 if (cret .ne. 0 ) then
00049 print *,'Erreur creation du fichier'
00050 call efexit(-1)
00051 endif
00052 print *,'Creation du fichier test23.med'
00053
00054
00055 call efmaac(fid,maa,mdim,MED_NON_STRUCTURE,
00056 & 'un maillage pour test23',cret)
00057 print *,cret
00058 if (cret .ne. 0 ) then
00059 print *,'Erreur creation du maillage'
00060 call efexit(-1)
00061 endif
00062 print *,'Creation du maillage'
00063
00064
00065 call efpgce(fid,maa,index,ni,con,MED_MAILLE,MED_NOD,cret)
00066 if (cret .ne. 0 ) then
00067 print *,'Erreur ecriture des connectivite polygones'
00068 call efexit(-1)
00069 endif
00070 print *,cret
00071 print *,
00072 'Ecriture des connectivites des mailles de type & MED_POLYGONE'
00073
00074
00075 call efnome(fid,maa,nom,n,MED_MAILLE,MED_POLYGONE,
00076 & cret)
00077 print *,cret
00078 if (cret .ne. 0 ) then
00079 print *,'Erreur ecriture des noms polygones'
00080 call efexit(-1)
00081 endif
00082 print *,'Ecriture des noms des polygones'
00083
00084
00085 call efnume(fid,maa,num,n,MED_MAILLE,MED_POLYGONE,
00086 & cret)
00087 if (cret .ne. 0 ) then
00088 print *,'Erreur ecriture des numeros polygones'
00089 call efexit(-1)
00090 endif
00091 print *,cret
00092 print *,'Ecriture des numeros des polygones'
00093
00094
00095 call effame(fid,maa,fam,n,
00096 & MED_MAILLE,MED_POLYGONE,cret)
00097 if (cret .ne. 0 ) then
00098 print *,'Erreur ecriture des numeros de famille polygones'
00099 call efexit(-1)
00100 endif
00101 print *,cret
00102 print *,'Ecriture des numeros de familles des polygones'
00103
00104
00105 call efferm (fid,cret)
00106 print *,cret
00107 if (cret .ne. 0 ) then
00108 print *,'Erreur fermeture du fichier'
00109 call efexit(-1)
00110 endif
00111 print *,'Fermeture du fichier'
00112
00113 end