1 C Copyright (C) 2009-2016 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 SERV1(compo,a,b,c)
23 integer i, nval, info, z(10), l
25 integer*4 z4(10),lo(10)
27 real*8 dd(10),a,b,c,ti,tf,t
35 call cpcd(compo,instance,info)
36 write(6,*)"instance name=",instance
45 CALL cpedb(compo,CP_ITERATION,t,i,'ba',l,dd,info)
46 CALL cpedb(compo,CP_ITERATION,t,2,'ba',l,dd,info)
47 CALL cpedb(compo,CP_ITERATION,t,3,'ba',l,dd,info)
48 write(6,*)'info=',info
56 CALL cpech(compo,CP_ITERATION,tt,i,'bb',l,s,info)
57 write(6,*)'info=',info
67 CALL cpeen(compo,CP_ITERATION,tt,i,'bc',l,z,info)
68 write(6,*)'info=',info
83 CALL cpecp(compo,CP_ITERATION,tt,i,'bd',l,u,info)
84 write(6,*)'info=',info
93 CALL cpere(compo,CP_ITERATION,tt,i,'be',l,u,info)
94 write(6,*)'info=',info
100 write(6,*)'lo=',lo(1)
101 write(6,*)'lo=',lo(2)
102 write(6,*)'lo=',lo(3)
103 CALL cpelo(compo,CP_ITERATION,tt,i,'bf',l,lo,info)
104 write(6,*)'info=',info
110 write(6,*)'lz=',lz(1)
111 write(6,*)'lz=',lz(2)
112 write(6,*)'lz=',lz(3)
113 CALL cpeln(compo,CP_ITERATION,tt,i,'bg',l,lz,info)
114 write(6,*)'info=',info
120 write(6,*)'z4=',z4(1)
121 write(6,*)'z4=',z4(2)
122 write(6,*)'z4=',z4(3)
123 CALL cpein(compo,CP_ITERATION,tt,i,'bh',l,z4,info)
124 write(6,*)'info=',info
131 write(6,*)'lz=',lz(1)
132 write(6,*)'lz=',lz(2)
133 write(6,*)'lz=',lz(3)
134 CALL cpelg(compo,CP_ITERATION,tt,i,'bi',l,lz,info)
135 write(6,*)'info=',info
146 CALL cpldb(compo,CP_ITERATION,ti,tf,i,'aa',l,nval,dd,info)
147 write(6,*)'info=',info
148 write(6,*)'dd=',dd(1)
149 write(6,*)'dd=',dd(2)
150 write(6,*)'dd=',dd(3)
151 write(6,*)'nval=',nval
157 CALL cplch(compo,CP_ITERATION,tti,ttf,i,'ab',l,nval,rs,info)
158 write(6,*)'info=',info
160 write(6,*)'nval=',nval
166 CALL cplen(compo,CP_ITERATION,tti,ttf,i,'ac',l,nval,z,info)
167 write(6,*)'info=',info
168 write(6,*)'nval=',nval
180 CALL cplcp(compo,CP_ITERATION,tti,ttf,i,'ad',l,nval,u,info)
181 write(6,*)'info=',info
182 write(6,*)'nval=',nval
194 CALL cplre(compo,CP_ITERATION,tti,ttf,i,'ae',l,nval,u,info)
195 write(6,*)'info=',info
196 write(6,*)'nval=',nval
205 CALL cpllo(compo,CP_ITERATION,tti,ttf,i,'af',l,nval,lo,info)
206 write(6,*)'info=',info
207 write(6,*)'nval=',nval
208 write(6,*)'lo=',lo(1)
209 write(6,*)'lo=',lo(2)
210 write(6,*)'lo=',lo(3)
216 CALL cplln(compo,CP_ITERATION,tti,ttf,i,'ag',l,nval,lz,info)
217 write(6,*)'info=',info
218 write(6,*)'nval=',nval
219 write(6,*)'lz=',lz(1)
220 write(6,*)'lz=',lz(2)
221 write(6,*)'lz=',lz(3)
227 CALL cplin(compo,CP_ITERATION,tti,ttf,i,'ah',l,nval,z4,info)
228 write(6,*)'info=',info
229 write(6,*)'nval=',nval
230 write(6,*)'z4=',z4(1)
231 write(6,*)'z4=',z4(2)
232 write(6,*)'z4=',z4(3)
238 CALL cpllg(compo,CP_ITERATION,tti,ttf,i,'ai',l,nval,lz,info)
239 write(6,*)'info=',info
240 write(6,*)'nval=',nval
241 write(6,*)'lz=',lz(1)
242 write(6,*)'lz=',lz(2)
243 write(6,*)'lz=',lz(3)
246 call cpfini(compo,'aa',1,info)
247 write(6,*)'info=',info
252 CALL cpldb(compo,CP_ITERATION,ti,tf,i,'aa',l,nval,dd,info)
253 write(6,*)'info=',info
256 call cpeffi(compo,'aa',3,info)
257 write(6,*)'info=',info
262 CALL cpldb(compo,CP_ITERATION,ti,tf,i,'aa',l,nval,dd,info)
263 write(6,*)'info=',info
266 CALL cpfin(compo,CP_ARRET,info)