2.3.6/test12.f
Aller à la documentation de ce fichier.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*32 maa , equ
00033 character*200 des
00034 integer mdim ,ncor
00035 integer cor(6)
00036
00037 parameter (maa ="maa1",mdim = 3,ncor = 3 )
00038 data cor /1,2,3,4,5,6/, equ / "equivalence"/
00039 data des / "equivalence sur les mailles MED_TRIA3" /
00040
00041
00042 call efouvr(fid,'test12.med',MED_LECTURE_ECRITURE, cret)
00043 print *,cret
00044 if (cret .ne. 0 ) then
00045 print *,'Erreur creation du fichier'
00046 call efexit(-1)
00047 endif
00048
00049
00050
00051 call efmaac(fid,maa,mdim,MED_NON_STRUCTURE,
00052 & 'Un maillage pour test12',cret)
00053 print *,cret
00054 if (cret .ne. 0 ) then
00055 print *,'Erreur creation du maillage'
00056 call efexit(-1)
00057 endif
00058
00059
00060 call efequc(fid,maa,equ,des,cret)
00061 print *,cret
00062 if (cret .ne. 0 ) then
00063 print *,'Erreur creation equivalence'
00064 call efexit(-1)
00065 endif
00066
00067
00068 call efeque(fid,maa,equ,cor,ncor,
00069 & MED_MAILLE,MED_TRIA3,cret)
00070 print *,cret
00071 if (cret .ne. 0 ) then
00072 print *,'Erreur ecriture de correspondances'
00073 call efexit(-1)
00074 endif
00075
00076
00077 call efferm (fid,cret)
00078 print *,cret
00079 if (cret .ne. 0 ) then
00080 print *,'Erreur fermeture du fichier'
00081 call efexit(-1)
00082 endif
00083
00084 end