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.
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: LECTURE_FORCE
28 C --------- DEBUT COMMUNS NORMALISES JEVEUX --------------------------
42 COMMON /KVARJE/ZK8(1),ZK16(1),ZK24(1),ZK32(1),ZK80(1)
44 C -------------- FIN DECLARATIONS NORMALISEES JEVEUX ----------------
45 C 0.3. ==> VARIABLES LOCALES
48 PARAMETER ( NOMPRO = 'OP0198' )
50 CHARACTER*8 MA,DM,NOMG,MODELE, NOMA
55 CHARACTER*16 TYPE, OPER
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
64 real*8 tt,tp,t0,t1,ss,zz
70 write(6,*) '--> OP196 '
79 CALL cpldb(IFL,CP_TEMPS,t0,t1,iter,'aa',1,n,ss,info)
80 write(6,*)"apres cpldb(aa) ",info,ss
84 CALL cpldb(IFL,CP_ITERATION,t0,t1,iter,'ab',1,n,zz,info)
85 write(6,*)"apres cpldb(ab) ",info,zz
87 CALL cplen(IFL,CP_ITERATION,t0,t1,iter,'ac',1,n,zn,info)
88 write(6,*)"apres cplen(ac) ",info,zn
90 CALL cplre(IFL,CP_ITERATION,t0,t1,iter,'ad',1,n,yr,info)
91 write(6,*)"apres cplre(ad) ",info,yr
93 CALL cplch(IFL,CP_ITERATION,t0,t1,iter,'ae',1,n,tch,info)
94 write(6,*)"apres cplch(ae) ",info,tch(1)
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)
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)
103 C-----------------------------------------------------------------------