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 test12
00026
00027 implicit none
00028 include 'med.hf'
00029
00030
00031 integer cret,fid
00032 character*64 maa , equ
00033 character*200 des
00034 integer mdim ,ncor, sdim
00035 integer cor(6)
00036 character*16 nomcoo(3)
00037 character*16 unicoo(3)
00038
00039 parameter (maa ="maa1",mdim = 3,ncor = 3 , sdim=3)
00040 data cor /1,2,3,4,5,6/, equ / "equivalence"/
00041 data des / "equivalence sur les mailles MED_TRIA3" /
00042 data nomcoo /"x","y","z"/, unicoo /"cm","cm","cm"/
00043
00044
00045
00046 call mfiope(fid,'test12.med',MED_ACC_RDWR, cret)
00047 print *,cret
00048 if (cret .ne. 0 ) then
00049 print *,'Erreur creation du fichier'
00050 call efexit(-1)
00051 endif
00052
00053
00054
00055 call mmhcre(fid,maa,mdim,sdim,MED_UNSTRUCTURED_MESH,
00056 & 'Un maillage pour test12',"",
00057 & MED_SORT_DTIT,MED_CARTESIAN,nomcoo,unicoo,cret)
00058 print *,cret
00059 if (cret .ne. 0 ) then
00060 print *,'Erreur creation du maillage'
00061 call efexit(-1)
00062 endif
00063
00064
00065 call meqcre(fid,maa,equ,des,cret)
00066 print *,cret
00067 if (cret .ne. 0 ) then
00068 print *,'Erreur creation equivalence'
00069 call efexit(-1)
00070 endif
00071
00072
00073 call meqcow(fid,maa,equ,MED_NO_DT,MED_NO_IT,MED_CELL,
00074 & MED_TRIA3,ncor,cor,cret)
00075 print *,cret
00076 if (cret .ne. 0 ) then
00077 print *,'Erreur ecriture de correspondances'
00078 call efexit(-1)
00079 endif
00080
00081
00082 call mficlo(fid,cret)
00083 print *,cret
00084 if (cret .ne. 0 ) then
00085 print *,'Erreur fermeture du fichier'
00086 call efexit(-1)
00087 endif
00088
00089 end