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