Examples/ast1/myaster/src/op0078.f

   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.
  11 C
  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.
  16 C
  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
  22 C
  23       IMPLICIT NONE
  24 C
  25       INTEGER IER
  26 C
  27 C --------- DEBUT COMMUNS NORMALISES  JEVEUX  --------------------------
  28       INTEGER ZI
  29       COMMON /IVARJE/ZI(1)
  30       REAL*8 ZR
  31       COMMON /RVARJE/ZR(1)
  32       COMPLEX*16 ZC
  33       COMMON /CVARJE/ZC(1)
  34       LOGICAL ZL
  35       COMMON /LVARJE/ZL(1)
  36       CHARACTER*8 ZK8
  37       CHARACTER*16 ZK16
  38       CHARACTER*24 ZK24
  39       CHARACTER*32 ZK32
  40       CHARACTER*80 ZK80
  41       COMMON /KVARJE/ZK8(1),ZK16(1),ZK24(1),ZK32(1),ZK80(1)
  42 C
  43 C -------------- FIN  DECLARATIONS  NORMALISEES  JEVEUX ----------------
  44 C 0.3. ==> VARIABLES LOCALES
  45 C
  46       CHARACTER*6 NOMPRO
  47       PARAMETER ( NOMPRO = 'OP0078' )
  48 C
  49       CHARACTER*8  MA
  50 C
  51       INTEGER*4 info
  52       INTEGER IFL,IAUX
  53       COMMON/YACS/IFL
  54       include 'calcium.hf'
  55       real*8 tt,tp,t0,t1
  56
  57 C
  58 C-----------------------------------------------------------------------
  59 C 1) ==> NOM DES STRUCTURES
  60 C-----------------------------------------------------------------------
  61       write(6,*) '--> OP078 :',IFL
  62 C
  63        t0=0.
  64        t1=1.
  65        tt=1.5
  66        tp=2.3
  67
  68        CALL cpeDB(IFL,CP_TEMPS,t0,1,'ba',1,tt,info)
  69        CALL cpeDB(IFL,CP_ITERATION,t0,1,'bb',1,tp,info)
  70
  71        call flush(6)
  72
  73       END
  74