1 : C DECALE SOURCE CHAT 05/01/12 22:38:45 5004
2 : SUBROUTINE DECALE (IPA,IPB,V,IPAVB)
3 : ************************************************************************
4 : *
5 : * D E C A L E
6 : * -----------
7 : *
8 : * FONCTION:
9 : * ---------
10 : *
11 : * EFFECTUER UN DECALAGE ("SHIFTING") SUR UNE 'RIGIDITE' |A|, A
12 : * L'AIDE D'UN 'FLOTTANT' V ET D'UNE 'RIGIDITE' |B| :
13 : * |A| --> |A|-V.|B|
14 : *
15 : * PARAMETRES: (E)=ENTREE (S)=SORTIE
16 : * -----------
17 : *
18 : * IPA ENTIER (E) POINTEUR DE LA 'RIGIDITE' |A|.
19 : * IPB ENTIER (E) POINTEUR DE LA 'RIGIDITE' |B|.
20 : * V REEL DP (E) DEFINI AU PARAGRAPHE "FONCTION".
21 : * IPAVB ENTIER (S) POINTEUR DE LA 'RIGIDITE' |A|-V.|B|
22 : *
23 : * AUTEUR, DATE DE CREATION:
24 : * -------------------------
25 : *
26 : * PASCAL MANIGOT 16 NOVEMBRE 1984
27 : *
28 : * LANGAGE:
29 : * --------
30 : *
31 : * FORTRAN77
32 : *
33 : ************************************************************************
34 : *
35 : IMPLICIT INTEGER(I-N)
36 : -INC CCOPTIO
37 : *
38 : REAL*8 V,VMOINS
39 : *
40 : * PRODUIT -V.|B|
41 : VMOINS = -1.D0 * V
42 : MULTPL = 1
42 : CALL MUFLRI (IPB,VMOINS, IPVB,MULTPL)
43 : IF (IERR .NE. 0) RETURN
44 : *
45 : * DECALAGE DE LA MATRICE |A|
45 : CALL FUSRIG (IPA,IPVB, IPAVB)
46 : IF (IERR .NE. 0) RETURN
46 : CALL DTRIGI (IPVB)
47 : *
48 : END
49 :
© Cast3M 2003 - All rights reserved.
Disclaimer