1 C Copyright (C) 2009-2021 EDF R&D
3 C This library is free software; you can redistribute it and/or
4 C modify it under the terms of the GNU Lesser General Public
5 C License as published by the Free Software Foundation; either
6 C version 2.1 of the License, or (at your option) any later version.
8 C This library is distributed in the hope that it will be useful,
9 C but WITHOUT ANY WARRANTY; without even the implied warranty of
10 C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11 C Lesser General Public License for more details.
13 C You should have received a copy of the GNU Lesser General Public
14 C License along with this library; if not, write to the Free Software
15 C Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17 C See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
20 SUBROUTINE S1(compo,A,B,C,D,E,F)
23 real*8 a,d(*),tt,tp,t0,t1,ss,zz
31 open(UNIT=22,FILE='SORTIES')
49 CALL cpeDB(compo,CP_TEMPS,t0,1,'ba',1,tt,info)
50 CALL cpeDB(compo,CP_ITERATION,t0,1,'bb',1,tp,info)
51 CALL cpeen(compo,CP_ITERATION,t0,1,'bc',1,np,info)
52 CALL cpere(compo,CP_ITERATION,t0,1,'bd',1,yd,info)
53 CALL cpech(compo,CP_ITERATION,t0,1,'be',1,tch,info)
54 CALL cpecp(compo,CP_ITERATION,t0,1,'bf',1,tcp,info)
55 CALL cpelo(compo,CP_ITERATION,t0,1,'bg',3,tlo,info)
58 CALL cpldb(compo,CP_TEMPS,t0,t1,iter,'a',1,n,ss,info)
59 write(6,*)"apres cpldb(a) ",info,ss
63 CALL cpldb(compo,CP_ITERATION,t0,t1,iter,'b',1,n,zz,info)
64 write(6,*)"apres cpldb(b) ",info,zz
76 SUBROUTINE S2(compo,A,B,C)
89 real*8 tt,tp,t0,t1,ss,zz
90 integer iter,n,info,zn
100 CALL cpeDB(compo,CP_TEMPS,t0,1,'ba',1,tt,info)
101 CALL cpeDB(compo,CP_ITERATION,t0,1,'bb',1,tp,info)
109 CALL cpldb(compo,CP_TEMPS,t0,t1,iter,'aa',1,n,ss,info)
110 write(6,*)"apres cpldb(aa) ",info,ss
114 CALL cpldb(compo,CP_ITERATION,t0,t1,iter,'ab',1,n,zz,info)
115 write(6,*)"apres cpldb(ab) ",info,zz
118 CALL cplen(compo,CP_ITERATION,t0,t1,iter,'ac',1,n,zn,info)
119 write(6,*)"apres cplen(ac) ",info,zn
121 CALL cplre(compo,CP_ITERATION,t0,t1,iter,'ad',1,n,yr,info)
122 write(6,*)"apres cplre(ad) ",info,yr
124 CALL cplch(compo,CP_ITERATION,t0,t1,iter,'ae',1,n,tch,info)
125 write(6,*)"apres cplch(ae) ",info,tch(1)
127 CALL cplcp(compo,CP_ITERATION,t0,t1,iter,'af',1,n,tcp,info)
128 write(6,*)"apres cplcp(af) ",info,tcp(1),tcp(2)
130 CALL cpllo(compo,CP_ITERATION,t0,t1,iter,'ag',3,n,tlo,info)
131 write(6,*)"apres cpllo(ag) ",info,tlo(1),tlo(2),tlo(3)