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 test29
00026
00027 implicit none
00028 include 'med.hf'
00029
00030
00031 integer cret,fid, domdst
00032 character*32 maa , jnt, maadst
00033 character*200 des
00034 integer mdim ,ncor
00035 integer cor(6)
00036
00037 parameter (maa ="maa1",maadst="maa1", domdst=2,
00038 & mdim = 3,ncor = 3 )
00039 data cor /1,2,3,4,5,6/, jnt / "joint"/
00040 data des / "joint avec le sous-domaine 2" /
00041
00042
00043
00044
00045 call efouvr(fid,'test29.med',MED_LECTURE_ECRITURE, cret)
00046 print *,cret
00047 if (cret .ne. 0 ) then
00048 print *,'Erreur creation du fichier'
00049 call efexit(-1)
00050 endif
00051
00052
00053
00054 call efmaac(fid,maa,mdim,MED_NON_STRUCTURE,
00055 & 'Un maillage pour test29',cret)
00056 print *,cret
00057 if (cret .ne. 0 ) then
00058 print *,'Erreur creation du maillage'
00059 call efexit(-1)
00060 endif
00061
00062
00063 call efjntc(fid,maa,jnt,des,domdst,maadst,cret)
00064 print *,cret
00065 if (cret .ne. 0 ) then
00066 print *,'Erreur creation joint'
00067 call efexit(-1)
00068 endif
00069
00070
00071
00072 call efjnte(fid,maa,jnt,cor,ncor,
00073 & MED_NOEUD,0,MED_NOEUD,0,
00074 & cret)
00075 print *,cret
00076 if (cret .ne. 0 ) then
00077 print *,'Erreur ecriture correspondance (Noeud,Noeud)'
00078 call efexit(-1)
00079 endif
00080
00081
00082
00083 call efjnte(fid,maa,jnt,cor,ncor,
00084 & MED_NOEUD,0,MED_MAILLE,MED_TRIA3,
00085 & cret)
00086 print *,cret
00087 if (cret .ne. 0 ) then
00088 print *,'Erreur ecriture correspondance (Noeud,Tria3)'
00089 call efexit(-1)
00090 endif
00091
00092
00093 call efferm (fid,cret)
00094 print *,cret
00095 if (cret .ne. 0 ) then
00096 print *,'Erreur fermeture du fichier'
00097 call efexit(-1)
00098 endif
00099
00100 end