f/2.3.6/test10.f

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 C ******************************************************************************
00019 C * - Nom du fichier : test10.f
00020 C *
00021 C * - Description : ecriture de champs de resultats MED 
00022 C *
00023 C ******************************************************************************
00024         program test10
00025 C     
00026         implicit none
00027         include 'med.hf'
00028 C
00029         integer      ret,fid,USER_INTERLACE,USER_MODE
00030         real*8       a,b,p1,p2,dt
00031 
00032         character*32 maa1,maa2,maa3
00033         character*13 lien_maa2
00034 C       CHAMP N°1
00035         character*32 nomcha1
00036         character*16 comp1(2), unit1(2)
00037         character*16 dtunit1, nounit
00038         integer      ncomp1
00039 C       MODEL N°1 DE LOC. DES PTS DE GAUSS PR CHAMP1
00040         integer      ngauss1_1
00041         character*32 gauss1_1
00042         real*8       refcoo1(12), gscoo1_1(12), wg1_1(6)
00043         integer      nval1_1
00044         real*8       valr1_1(1*6*2)
00045 C       MODEL N°2 DE LOC. DES PTS DE GAUSS PR CHAMP1
00046         integer      ngauss1_2
00047         character*32 gauss1_2
00048         real*8       gscoo1_2(6), wg1_2(3)
00049         integer      nval1_2
00050         real*8       valr1_2(2*3*2)
00051         real*8       valr1_2p(2*3)
00052 C       MODEL N°3 DE LOC. DES PTS DE GAUSS PR CHAMP1
00053         integer      ngauss1_3,nval1_3
00054         real*8       valr1_3(2*3*2)
00055         real*8       valr1_3p(2*2)
00056 
00057 C       CHAMP N°2
00058         character*32 nomcha2
00059         character*16 comp2(3), unit2(3)
00060         integer      ncomp2, nval2
00061         integer      valr2(5*3),   valr2p(3*3)
00062 
00063 C       CHAMP N°3
00064         character*32 nomcha3
00065         character*16 comp3(2), unit3(2)
00066         integer      ncomp3, nval3
00067         integer      valr3(5*4*2),   valr3p(3*4*2)
00068 
00069 C       PROFILS UTILISES
00070         character*32 nomprofil1
00071         integer      profil1(2) , profil2(3)
00072 
00073         parameter (USER_INTERLACE = MED_FULL_INTERLACE)
00074         parameter (USER_MODE = MED_COMPACT )
00075         parameter ( a=0.446948490915965D0, b=0.091576213509771D0    )
00076         parameter ( p1=0.11169079483905D0, p2=0.0549758718227661D0  )
00077 C       MAILLAGES
00078         parameter ( maa1 = "maa1", maa2 = "maa2", maa3 = "maa3" )
00079         parameter ( lien_maa2= "./testfoo.med"                  )
00080 C       CHAMP N°1
00081         parameter ( nomcha1 = "champ reel" )
00082         parameter ( ncomp1 = 2 )
00083         parameter ( dtunit1 = "                ")
00084         parameter ( nounit  = "                ")
00085 C       MODEL N°1 DE LOC. DES PTS DE GAUSS PR CHAMP1
00086         parameter ( gauss1_1 = "Model n1" )
00087         parameter ( ngauss1_1 = 6 )
00088 C       MODEL N°2 DE LOC. DES PTS DE GAUSS PR CHAMP1
00089         parameter ( gauss1_2  = "Model n2" )
00090         parameter ( ngauss1_2 = 3 )
00091 C       MODEL N°3 DE LOC. DES PTS DE GAUSS PR CHAMP1
00092         parameter ( ngauss1_3 = 6 )
00093         parameter ( nval1_3 = 6 )
00094 C       CHAMP N°2
00095         parameter ( nomcha2="champ entier")
00096         parameter ( ncomp2 = 3, nval2= 5  )
00097 C       CHAMP N°3
00098         parameter ( nomcha3="champ entier 3")
00099         parameter ( ncomp3 = 2, nval3= 5*4  )
00100 C       PROFILS
00101         parameter ( nomprofil1  = "PROFIL(champ(1))" )
00102         
00103 
00104 C       CHAMP N°1
00105         data comp1 /"comp1", "comp2"/
00106         data unit1 /"unit1","unit2"/
00107 C       MODEL N°1 DE LOC. DES PTS DE GAUSS PR CHAMP1
00108         data nval1_1  / 1*6 /
00109         data refcoo1  / -1.0,1.0, -1.0,-1.0, 1.0,-1.0, -1.0,0.0, 
00110      1                  0.0,-1.0, 0.0,0.0 / 
00111         data valr1_1  /  0.0,1.0, 2.0,3.0, 10.0,11.0, 12.0,13.0,
00112      1                   20.0,21.0, 22.0,23.0/
00113 C       MODEL N°2 DE LOC. DES PTS DE GAUSS PR CHAMP1
00114         data valr1_2  / 0.0,1.0, 2.0,3.0, 10.0,11.0,
00115      1                  12.0,13.0, 20.0,21.0, 22.0,23.0 /
00116         data valr1_2p / 12.0,13.0, 20.0,21.0, 22.0,23.0 /
00117 C       MODEL N°3 DE LOC. DES PTS DE GAUSS PR CHAMP1
00118         data valr1_3  / 0.0,1.0, 2.0,3.0, 10.0,11.0, 12.0,13.0, 
00119      1                  20.0,21.0, 22.0,23.0 /
00120         data valr1_3p / 2.0,3.0, 10.0,11.0   /
00121 C       CHAMP N°2
00122         data comp2 /"comp1", "comp2", "comp3"/
00123         data unit2 /"unit1","unit2", "unit3"/
00124         data valr2 / 0,1,2, 10,11,12, 20,21,22, 30,31,32, 40,41,42 /
00125         data valr2p / 0,1,2,           20,21,22,           40,41,42 /
00126 C       CHAMP N°3
00127         data comp3 /"comp1", "comp2"/
00128         data unit3 /"unit1","unit2"/
00129         data valr3 / 0,1, 10,11, 20,21, 30,31,
00130      1           40,41, 50,51, 60,61, 70,71,
00131      1           80,81, 90,91, 100,101, 110,111,
00132      1           120,121, 130,131, 140,141, 150,151,
00133      1           160,161, 170,171, 180,181, 190,191 /
00134         data valr3p / 0,1, 10,11, 20,21, 30,31,
00135      1            80,81, 90,91, 100,101, 110,111,
00136      1            160,161, 170,171, 180,181, 190,191 /
00137 
00138 
00139 C       PROFILS
00140         data profil1 /2,3/
00141         data profil2 /1,3,5/
00142         
00143         ret = 0
00144 
00145         gscoo1_1(1) =  2*b-1
00146         gscoo1_1(2) =  1-4*b
00147         gscoo1_1(3) =  2*b-1
00148         gscoo1_1(4) =  2*b-1
00149         gscoo1_1(5) =  1-4*b
00150         gscoo1_1(6) =  2*b-1
00151         gscoo1_1(7) =  1-4*a
00152         gscoo1_1(8) =  2*a-1
00153         gscoo1_1(9) =  2*a-1
00154         gscoo1_1(10) =  1-4*a
00155         gscoo1_1(11) =  2*a-1
00156         gscoo1_1(12) =  2*a-1
00157 
00158         wg1_1(1) =  4*p2
00159         wg1_1(2) =  4*p2
00160         wg1_1(3) =  4*p2
00161         wg1_1(4) =  4*p1
00162         wg1_1(5) =  4*p1
00163         wg1_1(6) =  4*p1
00164 
00165         nval1_2 = 2*3
00166         gscoo1_2(1) = -2.0D0/3
00167         gscoo1_2(2) =  1.0D0/3 
00168         gscoo1_2(3) = -2.0D0/3
00169         gscoo1_2(4) = -2.0D0/3
00170         gscoo1_2(5) =  1.0D0/3
00171         gscoo1_2(6) = -2.0D0/3
00172 
00173         wg1_2(1) =  2.0D0/3
00174         wg1_2(2) =  2.0D0/3
00175         wg1_2(3) =  2.0D0/3 
00176                    
00177 C     ** ouverture du fichier                            **
00178         call efouvr(fid,'test10.med',MED_LECTURE_ECRITURE, ret)
00179         if (ret .ne. 0 ) then
00180            print *,'Erreur à l''ouverture du fichier  : ','test10.med'
00181            call efexit(-1)
00182         endif
00183         
00184 C     ** creation du maillage maa1 de dimension 3         **
00185         call efmaac(fid,maa1,3,MED_NON_STRUCTURE,
00186      1                 "Maillage vide",ret)
00187         if (ret .ne. 0 ) then
00188            print *,'Erreur à la création du maillage : ', maa1
00189            call efexit(-1)
00190         endif
00191              
00192 C     ** creation du maillage maa3 de dimension 3         **
00193         call efmaac(fid,maa3,3,MED_NON_STRUCTURE,
00194      1                 "Maillage vide",ret)
00195         if (ret .ne. 0 ) then
00196            print *,'Erreur à la création du maillage : ', maa3
00197            call efexit(-1)
00198         endif
00199              
00200 
00201 C     ** creation du champ réel n°1                        **
00202         call efchac(fid,nomcha1,MED_FLOAT64,comp1,unit1,ncomp1,ret)
00203         if (ret .ne. 0 ) then
00204            print *,'Erreur à la création du champ : ', nomcha1
00205            call efexit(-1)
00206         endif
00207              
00208 C     ** creation du champ entier n°2                      **
00209         call efchac(fid,nomcha2,MED_INT32,comp2,unit2,ncomp2,ret)
00210         if (ret .ne. 0 ) then
00211            print *,'Erreur à la création du champ : ', nomcha2
00212            call efexit(-1)
00213         endif
00214  
00215 C     ** creation du lien au fichier distant contenant maa2 **
00216         call efliee(fid,lien_maa2,maa2,ret)
00217         if (ret .ne. 0 ) then
00218            print *,'Erreur à la création du lien : ', lien_maa2
00219            call efexit(-1)
00220         endif
00221  
00222 C     ** creation de la localisation des points de Gauss modèle n°1 **
00223         call efgaue(fid, MED_TRIA6, refcoo1, USER_INTERLACE,
00224      1               ngauss1_1, gscoo1_1, wg1_1, gauss1_1, ret)
00225         if (ret .ne. 0 ) then
00226            print *,'Erreur à la création du modèle n°1 : ', gauss1_1
00227            call efexit(-1)
00228         endif
00229 
00230 C     ** creation de la localisation des points de Gauss modèle n°2 **
00231         call efgaue(fid, MED_TRIA6, refcoo1, USER_INTERLACE,
00232      1               ngauss1_2, gscoo1_2, wg1_2, gauss1_2, ret)
00233         if (ret .ne. 0 ) then
00234            print *,'Erreur à la création du modèle n°2 : ', gauss1_2
00235            call efexit(-1)
00236         endif
00237 
00238         
00239 C     ** Ecriture du champ n°1
00240 C     ** - enregistre uniquement la composante n°2 de valr1_1
00241 C     ** - pas de pas de temps, ni de numero d'ordre
00242         dt = 0.0D0
00243         call efchae(fid,maa1,nomcha1,valr1_1,USER_INTERLACE,nval1_1,
00244      1               gauss1_1,2,MED_NOPFL,MED_NO_PFLMOD,
00245      2               MED_MAILLE,MED_TRIA6,
00246      3               MED_NOPDT,dtunit1,dt,MED_NONOR,ret)
00247         if (ret .ne. 0 ) then
00248            print *,'Erreur à l''écriture du champ : ', nomcha1,'et.1'
00249            call efexit(-1)
00250         endif
00251 
00252 C     ** Nouvelle Ecriture du champ reel en mode remplacement
00253 C     ** - complete le champ precedent en enregistrant les composantes 1
00254 C     ** - pas de pas de temps, ni de numero d'ordre 
00255         call efchae(fid,maa1,nomcha1,valr1_1,USER_INTERLACE,nval1_1,
00256      1               gauss1_1,1,MED_NOPFL,MED_NO_PFLMOD,
00257      2               MED_MAILLE,MED_TRIA6,
00258      3               MED_NOPDT,dtunit1,dt,MED_NONOR,ret)
00259         if (ret .ne. 0 ) then
00260            print *,'Erreur à l''écriture du champ : ', nomcha1,'et.2'
00261            call efexit(-1)
00262         endif
00263          
00264 C     ** Ecriture sur le champ reel
00265 C     ** - De la 1ere composante du tableau valr1_2
00266 C     ** - Avec un pas de temps égal a 5.5
00267 C     ** - Pas de numero d'ordre
00268 C     ** - maa2 est distant
00269         dt = 5.5D0
00270         call efchae(fid,maa2,nomcha1,valr1_2,USER_INTERLACE,nval1_2,
00271      1               gauss1_2,1,MED_NOPFL,MED_NO_PFLMOD,
00272      2               MED_MAILLE,MED_TRIA6,
00273      3               1,"ms",dt,MED_NONOR,ret)
00274         if (ret .ne. 0 ) then
00275            print *,'Erreur à l''écriture du champ : ', nomcha1,'et.3'
00276            call efexit(-1)
00277         endif
00278 
00279 C     ** Ecriture sur le champ reel
00280 C     ** - De la 2ere composante du tableau valr1_2
00281 C     ** - Avec un pas de temps égal a 5.5
00282 C     ** - Pas de numero d'ordre
00283 C     ** - maa1 est local
00284         dt = 5.5D0
00285         call efchae(fid,maa1,nomcha1,valr1_1,USER_INTERLACE,nval1_1,
00286      1               gauss1_1,2,MED_NOPFL,MED_NO_PFLMOD,
00287      2               MED_MAILLE,MED_TRIA6,
00288      3               1,"ms",dt,MED_NONOR,ret)
00289         if (ret .ne. 0 ) then
00290            print *,'Erreur à l''écriture du champ : ', nomcha1,'et.4'
00291            call efexit(-1)
00292         endif
00293 
00294       
00295 C     ** Ecriture sur le champ reel
00296 C     ** - De la 1ere composante du tableau valr1_1
00297 C     ** - Avec un pas de temps égal a 5.5
00298 C     ** - Numero d'ordre egal a 2
00299 C     ** - maa3 est local
00300         dt = 5.5D0
00301         call efchae(fid,maa3,nomcha1,valr1_2,USER_INTERLACE,nval1_2,
00302      1               gauss1_2,1,MED_NOPFL,MED_NO_PFLMOD,
00303      2               MED_MAILLE,MED_TRIA6,
00304      3               1,"ms",dt,2,ret)
00305         if (ret .ne. 0 ) then
00306            print *,'Erreur à l''écriture du champ : ', nomcha1,'et.5'
00307            call efexit(-1)
00308         endif
00309     
00310 C     ** Creation de profil
00311 C     ** - qui selectionne uniquement le 2e element du tableau valr1
00312         call efpfle(fid,profil1,1,nomprofil1,ret)
00313         if (ret .ne. 0 ) then
00314            print *,'Erreur à la création du profil : ', nomprofil1
00315            call efexit(-1)
00316         endif
00317 
00318 
00319 C     ** Ecriture du champ reel 
00320 C     ** - Toutes les composantes du 2e element de valr1_1 (MED_ALL)
00321 C     ** - Extrait a partir du profil de nom "profil1(1)"
00322 C     ** - Pas de temps = 5.6
00323 C     ** - Numero d'ordre = 2 
00324         dt = 5.6D0
00325         call efchae(fid,maa1,nomcha1,valr1_3p,USER_INTERLACE,nval1_3,
00326      1               MED_NOGAUSS,MED_ALL,nomprofil1,USER_MODE,
00327      2               MED_MAILLE,MED_TRIA6,
00328      3               2,"ms",dt,2,ret)
00329         if (ret .ne. 0 ) then
00330            print *,'Erreur à l''écriture du champ : ', nomcha1,'et.6'
00331            call efexit(-1)
00332         endif
00333 
00334 C     ** Ecriture du champ reel 
00335 C     ** - Toutes les composantes du 2e element de valr1_1 (MED_ALL)
00336 C     ** - Extrait a partir du profil de nom "profil1(1)"
00337 C     ** - Pas de temps = 5.6
00338 C     ** - Numero d'ordre = 2 
00339         dt = 5.6D0
00340         call efchae(fid,maa2,nomcha1,valr1_2p,USER_INTERLACE,nval1_2,
00341      1               gauss1_2,MED_ALL,nomprofil1,USER_MODE,
00342      2               MED_MAILLE,MED_TRIA6,
00343      3               2,"ms",dt,2,ret)
00344         if (ret .ne. 0 ) then
00345            print *,'Erreur à l''écriture du champ : ', nomcha1,'et.7'
00346            call efexit(-1)
00347         endif
00348 
00349 
00350 C     ** Ecriture du champ reel 
00351 C     ** - 2e composante du 2e element du champ
00352 C     ** - Extrait a partir du profil de nom "profil1(1)"
00353 C     ** - Pas de temps = 5.7
00354 C     ** - Numero d'ordre = 2 
00355         dt = 5.7D0
00356         call efchae(fid,maa1,nomcha1,valr1_3p,USER_INTERLACE,nval1_3,
00357      1               MED_NOGAUSS,2,nomprofil1,USER_MODE,
00358      2               MED_MAILLE,MED_TRIA6,
00359      3               3,"ms",dt,2,ret)
00360         if (ret .ne. 0 ) then
00361            print *,'Erreur à l''écriture du champ : ', nomcha1,'et.8'
00362            call efexit(-1)
00363         endif
00364 
00365 
00366 C     ** Ecriture du champ entier n°2
00367 C     ** - 1ere composante des éléments de valr2
00368 C     ** - pas de pas de temps, ni de numero d'ordre
00369         dt = 0.0D0
00370         call efchae(fid,maa1,nomcha2,valr2,USER_INTERLACE,nval2,
00371      1     MED_NOGAUSS,1,MED_NOPFL,MED_NO_PFLMOD,MED_ARETE,
00372      1               MED_SEG2,MED_NOPDT,nounit,dt,MED_NONOR,ret)
00373         if (ret .ne. 0 ) then
00374            print *,'Erreur à l''écriture du champ : ', nomcha2,'et.1'
00375            call efexit(-1)
00376         endif   
00377 
00378 C     ** Ecriture du champ entier n°2
00379 C     ** - 2ere composante des éléments de valr2
00380 C     ** - pas de pas de temps, ni de numero d'ordre
00381 C     ** - pour des raisons de complétude des tests on change 
00382 C     **   le type d'élément (aucun sens phys.))
00383         call efchae(fid,maa1,nomcha2,valr2,USER_INTERLACE,nval2,
00384      1     MED_NOGAUSS,2,MED_NOPFL,MED_NO_PFLMOD,MED_NOEUD,
00385      1               0,MED_NOPDT,nounit,dt,MED_NONOR,ret)
00386         if (ret .ne. 0 ) then
00387            print *,'Erreur à l''écriture du champ : ', nomcha2,'et.2'
00388            call efexit(-1)
00389         endif   
00390 
00391 
00392 C     ** Ecriture du champ entier n°2
00393 C     ** - 3ere composante des éléments de valr2
00394 C     ** - pas de pas de temps, ni de numero d'ordre
00395 C     ** - pour des raisons de complétude des tests on change 
00396 C     **   le type d'élément (aucun sens phys.))
00397         call efchae(fid,maa1,nomcha2,valr2,USER_INTERLACE,nval2,
00398      1     MED_NOGAUSS,3,MED_NOPFL,MED_NO_PFLMOD,MED_FACE,
00399      1               MED_TRIA6,MED_NOPDT,nounit,dt,MED_NONOR,ret)
00400         if (ret .ne. 0 ) then
00401            print *,'Erreur à l''écriture du champ : ', nomcha2,'et.3'
00402            call efexit(-1)
00403         endif   
00404 
00405 C     ** Creation de profil
00406 C     ** - selectionne les elements 1,3,5 du tableau valr2
00407         call efpfle(fid,profil2,3,"PROFIL(champ2)",ret)
00408         if (ret .ne. 0 ) then
00409            print *,'Erreur à l''écriture du profil : ',
00410      1              'profil2(champ2)'
00411            call efexit(-1)
00412         endif   
00413 
00414 
00415 C     ** Ecriture du champ entier n°2
00416 C     ** - 3eme composante des éléments de valr2
00417 C     ** - pas de pas de temps, ni de numero d'ordre
00418 C     ** - profils 
00419 C     ** - pour des raisons de complétude des tests on change 
00420 C     **   le type d'élément (aucun sens phys.))
00421         call efchae(fid,maa1,nomcha2,valr2p,USER_INTERLACE,nval2,
00422      1     MED_NOGAUSS,3,"PROFIL(champ2)",USER_MODE,MED_MAILLE,
00423      1               MED_TRIA6,MED_NOPDT,nounit,dt,MED_NONOR,ret)
00424         if (ret .ne. 0 ) then
00425            print *,'Erreur à l''écriture du profil : ',
00426      1             'profil2(champ2)'
00427            call efexit(-1)
00428         endif   
00429 
00430 C     ** creation du champ entier n°3                      **
00431         call efchac(fid,nomcha3,MED_INT32,comp3,unit3,ncomp3,ret)
00432         if (ret .ne. 0 ) then
00433            print *,'Erreur à la création du champ : ', nomcha3
00434            call efexit(-1)
00435         endif
00436  
00437 C     ** Ecriture du champ entier n°3
00438 C     ** - 1ere composante des éléments de valr3
00439 C     ** - pas de pas de temps, ni de numero d'ordre
00440 C     ** - pour des raisons de complétude des tests on change
00441 C     **   le type d'élément (aucun sens phys.))
00442         call efchae(fid,maa1,nomcha3,valr3,USER_INTERLACE,nval3,
00443      1     MED_NOGAUSS,1,MED_NOPFL,MED_NO_PFLMOD,MED_NOEUD_MAILLE,
00444      1               MED_QUAD4,MED_NOPDT,nounit,dt,MED_NONOR,ret)
00445         if (ret .ne. 0 ) then
00446            print *,'Erreur à l''écriture du champ : ', nomcha3,'et.1'
00447            call efexit(-1)
00448         endif   
00449 
00450 C     ** Ecriture du champ entier n°3
00451 C     ** - les composantes des éléments de valr3
00452 C     ** - pas de pas de temps, ni de numero d'ordre
00453 C     ** - pour des raisons de complétude des tests on change
00454 C     **   le type d'élément (aucun sens phys.))
00455         call efchae(fid,maa2,nomcha3,valr3,USER_INTERLACE,nval3,
00456      1     MED_NOGAUSS,MED_ALL,MED_NOPFL,MED_NO_PFLMOD,
00457      1               MED_NOEUD_MAILLE,
00458      1               MED_QUAD4,MED_NOPDT,nounit,dt,MED_NONOR,ret)
00459         if (ret .ne. 0 ) then
00460            print *,'Erreur à l''écriture du champ : ', nomcha3,'et.2'
00461            call efexit(-1)
00462         endif   
00463 
00464 C     ** Ecriture du champ entier n°3
00465 C     ** - les composantes des éléments de valr3
00466 C     ** - pas de pas de temps, ni de numero d'ordre
00467 C     ** - profils
00468 C     ** - pour des raisons de complétude des tests on change
00469 C     **   le type d'élément (aucun sens phys.))
00470         call efchae(fid,maa3,nomcha3,valr3p,USER_INTERLACE,nval3,
00471      1     MED_NOGAUSS,MED_ALL,"PROFIL(champ2)",USER_MODE,
00472      1               MED_NOEUD_MAILLE,
00473      1               MED_QUAD4,MED_NOPDT,nounit,dt,MED_NONOR,ret)
00474         if (ret .ne. 0 ) then
00475            print *,'Erreur à l''écriture du profil : ',
00476      1             'profil2(champ2)'
00477            call efexit(-1)
00478         endif   
00479 
00480 C     ** Fermeture du fichier *
00481         call efferm (fid,ret)
00482         if (ret .ne. 0 ) then
00483            print *,'Erreur à la fermeture du fichier : '
00484            ret = -1
00485         endif   
00486 
00487         print *,"Le code retour : ",ret
00488         call efexit(ret)
00489 
00490         end 
00491 
00492 
00493 

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