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
24 SUBROUTINE S1(compo,A,B,C,D,E,F)
27 real*8 a,d(*),tt,tp,t0,t1,ss,zz
35 open(UNIT=22,FILE='SORTIES')
53 CALL cpeDB(compo,CP_TEMPS,t0,1,'ba',1,tt,info)
54 CALL cpeDB(compo,CP_ITERATION,t0,1,'bb',1,tp,info)
55 CALL cpeen(compo,CP_ITERATION,t0,1,'bc',1,np,info)
56 CALL cpere(compo,CP_ITERATION,t0,1,'bd',1,yd,info)
57 CALL cpech(compo,CP_ITERATION,t0,1,'be',1,tch,info)
58 CALL cpecp(compo,CP_ITERATION,t0,1,'bf',1,tcp,info)
59 CALL cpelo(compo,CP_ITERATION,t0,1,'bg',3,tlo,info)
62 CALL cpldb(compo,CP_TEMPS,t0,t1,iter,'a',1,n,ss,info)
63 write(6,*)"apres cpldb(a) ",info,ss
67 CALL cpldb(compo,CP_ITERATION,t0,t1,iter,'b',1,n,zz,info)
68 write(6,*)"apres cpldb(b) ",info,zz
80 SUBROUTINE S2(compo,A,B,C)
93 real*8 tt,tp,t0,t1,ss,zz
94 integer iter,n,info,zn
104 CALL cpeDB(compo,CP_TEMPS,t0,1,'ba',1,tt,info)
105 CALL cpeDB(compo,CP_ITERATION,t0,1,'bb',1,tp,info)
113 CALL cpldb(compo,CP_TEMPS,t0,t1,iter,'aa',1,n,ss,info)
114 write(6,*)"apres cpldb(aa) ",info,ss
118 CALL cpldb(compo,CP_ITERATION,t0,t1,iter,'ab',1,n,zz,info)
119 write(6,*)"apres cpldb(ab) ",info,zz
122 CALL cplen(compo,CP_ITERATION,t0,t1,iter,'ac',1,n,zn,info)
123 write(6,*)"apres cplen(ac) ",info,zn
125 CALL cplre(compo,CP_ITERATION,t0,t1,iter,'ad',1,n,yr,info)
126 write(6,*)"apres cplre(ad) ",info,yr
128 CALL cplch(compo,CP_ITERATION,t0,t1,iter,'ae',1,n,tch,info)
129 write(6,*)"apres cplch(ae) ",info,tch(1)
131 CALL cplcp(compo,CP_ITERATION,t0,t1,iter,'af',1,n,tcp,info)
132 write(6,*)"apres cplcp(af) ",info,tcp(1),tcp(2)
134 CALL cpllo(compo,CP_ITERATION,t0,t1,iter,'ag',3,n,tlo,info)
135 write(6,*)"apres cpllo(ag) ",info,tlo(1),tlo(2),tlo(3)