1 : C D2VINT SOURCE CHAT 05/01/12 22:35:30 5004
2 : C DEVINT SOURCE PLAF 90/05/03 21:11:36
3 : SUBROUTINE D2VINT(ICHATE,ICHAFO,KTNUM,KTRAV,REPRIS)
4 : IMPLICIT INTEGER(I-N)
5 : IMPLICIT REAL*8(A-H,O-Z)
6 : *--------------------------------------------------------------------*
7 : * *
8 : * Op{rateur DYNE : algorithme de Fu - de Vogelaere *
9 : * ________________________________________________ *
10 : * *
11 : * Interpolation d'un liste REEL. *
12 : * Remplissage du segment de travail KTRAV. *
13 : * *
14 : * Param}tres: *
15 : * *
16 : * e ICHATE pointeur sur un LISTREEL, abscisse *
17 : * e ICHAFO pointeur sur un LISTREEL, ordonn{e *
18 : * e KTNUM segment contenant les param}tres num{riques *
19 : * s KTRAV segment de travail *
20 : * e REPRIS logique indiquant si le calcul est en reprise *
21 : * *
22 : * Auteur, date de cr{ation: *
23 : * *
24 : * Lionel VIVAN, le 17 avril 1990 *
25 : * *
26 : *--------------------------------------------------------------------*
27 : *
28 : -INC CCOPTIO
29 : -INC SMLREEL
30 : *
31 : SEGMENT,MTNUM
32 : REAL*8 XDT(NPC1),XTEMPS(NPC1)
33 : ENDSEGMENT
34 : SEGMENT,MTRAV
35 : REAL*8 FTCHG(NPC1)
36 : ENDSEGMENT
37 : LOGICAL REPRIS
38 : *
39 : MTNUM = KTNUM
40 : *
41 : NPC1 = XDT(/1)
42 : PASTEM = XDT(1)
43 : MLREE1 = ICHATE
44 : SEGACT MLREE1
45 : NF = MLREE1.PROG(/1)
46 : MLREE2 = ICHAFO
47 : SEGACT MLREE2
48 : SEGINI MTRAV
49 : KTRAV = MTRAV
50 : *
51 : * interpolation du chargement
52 : *
53 : N1 = 1
54 : N2 = 2
55 :
56 : DO 10 IT = 1,NPC1
57 : TEMP = XTEMPS(IT)
57 : CALL INTLIN(TEMP,ICHATE,ICHAFO,NF,N1,N2, FTEM,IRET)
58 : IF (IRET.EQ.0) THEN
59 : * temps en dehors de la liste
59 : CALL ERREUR(208)
60 : RETURN
61 : ENDIF
62 :
63 : FTCHG(IT) = FTEM
64 :
65 : 10 CONTINUE
66 :
67 : *
68 : SEGDES,MLREE1,MLREE2
69 : *
70 : END
71 :
72 :
© Cast3M 2003 - All rights reserved.
Disclaimer