Examples/ast1/myaster/src/op0189.f

   1       SUBROUTINE OP0189 ( 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:  LECTURE_FORCE
  22 C
  23       IMPLICIT NONE
  24 C
  25       INTEGER IER
  26 C
  27
  28 C --------- DEBUT COMMUNS NORMALISES  JEVEUX  --------------------------
  29       INTEGER ZI
  30       COMMON /IVARJE/ZI(1)
  31       REAL*8 ZR
  32       COMMON /RVARJE/ZR(1)
  33       COMPLEX*16 ZC
  34       COMMON /CVARJE/ZC(1)
  35       LOGICAL ZL
  36       COMMON /LVARJE/ZL(1)
  37       CHARACTER*8 ZK8
  38       CHARACTER*16 ZK16
  39       CHARACTER*24 ZK24
  40       CHARACTER*32 ZK32
  41       CHARACTER*80 ZK80
  42       COMMON /KVARJE/ZK8(1),ZK16(1),ZK24(1),ZK32(1),ZK80(1)
  43 C
  44 C -------------- FIN  DECLARATIONS  NORMALISEES  JEVEUX ----------------
  45 C 0.3. ==> VARIABLES LOCALES
  46 C
  47       CHARACTER*6 NOMPRO
  48       PARAMETER ( NOMPRO = 'OP0198' )
  49 C
  50       CHARACTER*8  MA,DM,NOMG,MODELE, NOMA
  51 C
  52       INTEGER N1,NDIM
  53       CHARACTER*8  CHAR
  54       CHARACTER*16 GROUPE
  55       CHARACTER*16 TYPE, OPER
  56       CHARACTER*4         FONREE
  57       CHARACTER*19 LIGRCH, LIGRMO
  58       INTEGER      IGREL, INEMA, IRET, IATYPE,NBVAL
  59       LOGICAL    LIMPR, LINFO, GETEXM
  60       INTEGER*4 NIV,IFM,iter,info,n,zn
  61       INTEGER IAUX,IFL
  62       COMMON/YACS/IFL
  63       include 'calcium.hf'
  64       real*8 tt,tp,t0,t1,ss,zz
  65       real yr
  66       CHARACTER*8 tch(2)
  67       real tcp(2)
  68       integer*4 tlo(3)
  69
  70       write(6,*) '--> OP196 '
  71       write(6,*)IFL
  72 C
  73        t0=0.
  74        t1=1.
  75        iter=1
  76
  77
  78        ss=0.
  79        CALL cpldb(IFL,CP_TEMPS,t0,t1,iter,'aa',1,n,ss,info)
  80        write(6,*)"apres cpldb(aa) ",info,ss
  81        call flush(6)
  82
  83        zz=0.
  84        CALL cpldb(IFL,CP_ITERATION,t0,t1,iter,'ab',1,n,zz,info)
  85        write(6,*)"apres cpldb(ab) ",info,zz
  86        call flush(6)
  87        CALL cplen(IFL,CP_ITERATION,t0,t1,iter,'ac',1,n,zn,info)
  88        write(6,*)"apres cplen(ac) ",info,zn
  89        call flush(6)
  90        CALL cplre(IFL,CP_ITERATION,t0,t1,iter,'ad',1,n,yr,info)
  91        write(6,*)"apres cplre(ad) ",info,yr
  92        call flush(6)
  93        CALL cplch(IFL,CP_ITERATION,t0,t1,iter,'ae',1,n,tch,info)
  94        write(6,*)"apres cplch(ae) ",info,tch(1)
  95        call flush(6)
  96        CALL cplcp(IFL,CP_ITERATION,t0,t1,iter,'af',1,n,tcp,info)
  97        write(6,*)"apres cplcp(af) ",info,tcp(1),tcp(2)
  98        call flush(6)
  99        CALL cpllo(IFL,CP_ITERATION,t0,t1,iter,'ag',3,n,tlo,info)
 100        write(6,*)"apres cpllo(ag) ",info,tlo(1),tlo(2),tlo(3)
 101        call flush(6)
 102
 103 C-----------------------------------------------------------------------
 104       END
 105