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,sdim
00030 parameter (mdim = 2, sdim = 2)
00031 character*64 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
00040 character*16 nomcoo(2)
00041 character*16 unicoo(2)
00042
00043 data con / 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 /
00044 data nom / "poly1", "poly2", "poly3"/
00045 data num / 1,2,3 /, fam /0,-1,-2/
00046 data index /1,6,12,17/
00047 data maa /"maa1"/
00048 data nomcoo /"x","y"/, unicoo /"cm","cm"/
00049
00050
00051 call mfiope(fid,'test23.med',MED_ACC_RDWR, cret)
00052 print *,cret
00053 if (cret .ne. 0 ) then
00054 print *,'Erreur creation du fichier'
00055 call efexit(-1)
00056 endif
00057 print *,'Creation du fichier test23.med'
00058
00059
00060 call mmhcre(fid,maa,mdim,sdim,
00061 & MED_UNSTRUCTURED_MESH,'un maillage pour test 23',
00062 & "",MED_SORT_DTIT,MED_CARTESIAN,nomcoo,unicoo,cret)
00063 print *,cret
00064 if (cret .ne. 0 ) then
00065 print *,'Erreur creation du maillage'
00066 call efexit(-1)
00067 endif
00068 print *,'Creation du maillage'
00069
00070
00071 call mmhpgw(fid,maa,MED_NO_DT,MED_NO_IT,MED_UNDEF_DT,MED_CELL,
00072 & MED_NODAL,ni,index,con,cret)
00073 if (cret .ne. 0 ) then
00074 print *,'Erreur ecriture des connectivite polygones'
00075 call efexit(-1)
00076 endif
00077 print *,cret
00078 print *,
00079 'Ecriture des connectivites des mailles de type & MED_POLYGONE'
00080
00081
00082 call mmheaw(fid,maa,MED_NO_DT,MED_NO_IT,MED_CELL,
00083 & MED_POLYGON,n,nom,cret)
00084 print *,cret
00085 if (cret .ne. 0 ) then
00086 print *,'Erreur ecriture des noms polygones'
00087 call efexit(-1)
00088 endif
00089 print *,'Ecriture des noms des polygones'
00090
00091
00092 call mmhenw(fid,maa,MED_NO_DT,MED_NO_IT,MED_CELL,
00093 & MED_POLYGON,n,num,cret)
00094 if (cret .ne. 0 ) then
00095 print *,'Erreur ecriture des numeros polygones'
00096 call efexit(-1)
00097 endif
00098 print *,cret
00099 print *,'Ecriture des numeros des polygones'
00100
00101
00102 call mmhfnw(fid,maa,MED_NO_DT,MED_NO_IT,MED_CELL,
00103 & MED_POLYGON,n,fam,cret)
00104 if (cret .ne. 0 ) then
00105 print *,'Erreur ecriture des numeros de famille polygones'
00106 call efexit(-1)
00107 endif
00108 print *,cret
00109 print *,'Ecriture des numeros de familles des polygones'
00110
00111
00112 call mficlo(fid,cret)
00113 print *,cret
00114 if (cret .ne. 0 ) then
00115 print *,'Erreur fermeture du fichier'
00116 call efexit(-1)
00117 endif
00118 print *,'Fermeture du fichier'
00119
00120 end