1 SUBROUTINE OP0078 ( IER )
2 C ----------------------------------------------------------------------
3 C CONFIGURATION MANAGEMENT OF EDF VERSION
4 C MODIF ALGORITH DATE 17/06/2002 AUTEUR GNICOLAS G.NICOLAS
5 C ======================================================================
6 C COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7 C THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8 C IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9 C THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10 C (AT YOUR OPTION) ANY LATER VERSION.
12 C THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13 C WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14 C MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15 C GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17 C YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
18 C ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
19 C 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
20 C ======================================================================
21 C COMMANDE: ECRIRE_MAILLAGE
27 C --------- DEBUT COMMUNS NORMALISES JEVEUX --------------------------
41 COMMON /KVARJE/ZK8(1),ZK16(1),ZK24(1),ZK32(1),ZK80(1)
43 C -------------- FIN DECLARATIONS NORMALISEES JEVEUX ----------------
44 C 0.3. ==> VARIABLES LOCALES
47 PARAMETER ( NOMPRO = 'OP0078' )
58 C-----------------------------------------------------------------------
59 C 1) ==> NOM DES STRUCTURES
60 C-----------------------------------------------------------------------
61 write(6,*) '--> OP078 :',IFL
68 CALL cpeDB(IFL,CP_TEMPS,t0,1,'ba',1,tt,info)
69 CALL cpeDB(IFL,CP_ITERATION,t0,1,'bb',1,tp,info)