1 C Copyright (C) 2009-2014 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_TEMPS,t,i,'ba',l,dd,info)
47 CALL cpedb(compo,CP_TEMPS,t,i,'ba',l,dd,info)
49 CALL cpedb(compo,CP_TEMPS,t,i,'ba',l,dd,info)
50 write(6,*)'info=',info
58 CALL cpech(compo,CP_TEMPS,tt,i,'bb',l,s,info)
59 write(6,*)'info=',info
69 CALL cpeen(compo,CP_TEMPS,tt,i,'bc',l,z,info)
70 write(6,*)'info=',info
85 CALL cpecp(compo,CP_TEMPS,tt,i,'bd',l,u,info)
86 write(6,*)'info=',info
95 CALL cpere(compo,CP_TEMPS,tt,i,'be',l,u,info)
96 write(6,*)'info=',info
102 write(6,*)'lo=',lo(1)
103 write(6,*)'lo=',lo(2)
104 write(6,*)'lo=',lo(3)
105 CALL cpelo(compo,CP_TEMPS,tt,i,'bf',l,lo,info)
106 write(6,*)'info=',info
112 write(6,*)'lz=',lz(1)
113 write(6,*)'lz=',lz(2)
114 write(6,*)'lz=',lz(3)
115 CALL cpeln(compo,CP_TEMPS,tt,i,'bg',l,lz,info)
116 write(6,*)'info=',info
122 write(6,*)'z4=',z4(1)
123 write(6,*)'z4=',z4(2)
124 write(6,*)'z4=',z4(3)
125 CALL cpein(compo,CP_TEMPS,tt,i,'bh',l,z4,info)
126 write(6,*)'info=',info
133 write(6,*)'lz=',lz(1)
134 write(6,*)'lz=',lz(2)
135 write(6,*)'lz=',lz(3)
136 CALL cpelg(compo,CP_TEMPS,tt,i,'bi',l,lz,info)
137 write(6,*)'info=',info
148 CALL cpldb(compo,CP_TEMPS,ti,tf,i,'aa',l,nval,dd,info)
149 write(6,*)'info=',info
150 write(6,*)'dd=',dd(1)
151 write(6,*)'dd=',dd(2)
152 write(6,*)'dd=',dd(3)
153 write(6,*)'nval=',nval
159 CALL cplch(compo,CP_TEMPS,tti,ttf,i,'ab',l,nval,rs,info)
160 write(6,*)'info=',info
162 write(6,*)'nval=',nval
168 CALL cplen(compo,CP_TEMPS,tti,ttf,i,'ac',l,nval,z,info)
169 write(6,*)'info=',info
170 write(6,*)'nval=',nval
182 CALL cplcp(compo,CP_TEMPS,tti,ttf,i,'ad',l,nval,u,info)
183 write(6,*)'info=',info
184 write(6,*)'nval=',nval
196 CALL cplre(compo,CP_TEMPS,tti,ttf,i,'ae',l,nval,u,info)
197 write(6,*)'info=',info
198 write(6,*)'nval=',nval
207 CALL cpllo(compo,CP_TEMPS,tti,ttf,i,'af',l,nval,lo,info)
208 write(6,*)'info=',info
209 write(6,*)'nval=',nval
210 write(6,*)'lo=',lo(1)
211 write(6,*)'lo=',lo(2)
212 write(6,*)'lo=',lo(3)
218 CALL cplln(compo,CP_TEMPS,tti,ttf,i,'ag',l,nval,lz,info)
219 write(6,*)'info=',info
220 write(6,*)'nval=',nval
221 write(6,*)'lz=',lz(1)
222 write(6,*)'lz=',lz(2)
223 write(6,*)'lz=',lz(3)
229 CALL cplin(compo,CP_TEMPS,tti,ttf,i,'ah',l,nval,z4,info)
230 write(6,*)'info=',info
231 write(6,*)'nval=',nval
232 write(6,*)'z4=',z4(1)
233 write(6,*)'z4=',z4(2)
234 write(6,*)'z4=',z4(3)
240 CALL cpllg(compo,CP_TEMPS,tti,ttf,i,'ai',l,nval,lz,info)
241 write(6,*)'info=',info
242 write(6,*)'nval=',nval
243 write(6,*)'lz=',lz(1)
244 write(6,*)'lz=',lz(2)
245 write(6,*)'lz=',lz(3)
248 call cpfint(compo,'aa',0.5,info)
249 write(6,*)'info=',info
255 CALL cpldb(compo,CP_TEMPS,ti,tf,i,'aa',l,nval,dd,info)
256 write(6,*)'info=',info
259 call cpefft(compo,'aa',1.5,info)
260 write(6,*)'info=',info
266 CALL cpldb(compo,CP_TEMPS,ti,tf,i,'aa',l,nval,dd,info)
267 write(6,*)'info=',info