2.3.6/test12.f

Aller à la documentation de ce fichier.
00001 C*  This file is part of MED.
00002 C*
00003 C*  COPYRIGHT (C) 1999 - 2015  EDF R&D, CEA/DEN
00004 C*  MED is free software: you can redistribute it and/or modify
00005 C*  it under the terms of the GNU Lesser General Public License as published by
00006 C*  the Free Software Foundation, either version 3 of the License, or
00007 C*  (at your option) any later version.
00008 C*
00009 C*  MED is distributed in the hope that it will be useful,
00010 C*  but WITHOUT ANY WARRANTY; without even the implied warranty of
00011 C*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00012 C*  GNU Lesser General Public License for more details.
00013 C*
00014 C*  You should have received a copy of the GNU Lesser General Public License
00015 C*  along with MED.  If not, see <http://www.gnu.org/licenses/>.
00016 C*
00017 
00018 
00019 C ******************************************************************************
00020 C * - Nom du fichier : test12.f
00021 C *
00022 C * - Description : ecriture d'une equivalence dans un maillage MED 
00023 C *
00024 C ******************************************************************************
00025         program test12
00026 C     
00027         implicit none
00028         include 'med.hf'
00029 C
00030 C
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 C  ** Creation du fichier test12.med **
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 C  ** Creation du maillage **
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 C ** Creation de l'equivalence **
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 C ** Ecriture des correspondances sur les mailles MED_TRIA3 **
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 C ** Fermeture du fichier                                **
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 C     
00084         end

Généré le Thu Oct 8 14:26:17 2015 pour MED fichier par  doxygen 1.6.1