1 : C DYNE SOURCE CHAT 05/01/12 23:18:14 5004
2 : SUBROUTINE DYNE
3 : IMPLICIT INTEGER(I-N)
4 : IMPLICIT REAL*8(A-H,O-Z)
5 : *--------------------------------------------------------------------*
6 : * *
7 : * Sous-programme de l'op{rateur DYNE *
8 : * __________________________________ *
9 : * *
10 : * Calcul d'une r{ponse dynamique @ l'aide d'algorithmes *
11 : * explicites: *
12 : * *
13 : * - algorithme de Plexus *
14 : * - algorithme de Fu - de Vogelaere. *
15 : * *
16 : * Auteur, date de cr{ation: *
17 : * _________________________ *
18 : * *
19 : * Denis ROBERT-MOUGIN & Lionel VIVAN ,le 19 mai 1989. *
20 : * *
21 : *--------------------------------------------------------------------*
22 : -INC CCOPTIO
23 : *
24 : CHARACTER*6 MOPLEX
25 : CHARACTER*20 MODEVO,MOALG,MODIFF
26 : DATA MOPLEX /'PLEXUS'/
27 : DATA MODEVO /'DE_VOGELAERE'/
28 : DATA MODIFF /'DIFFERENCES_CENTREES'/
29 : *
30 : * Quel algorithme a-t-on choisi ?
31 : *
31 : CALL MESLIR(-272)
31 : CALL LIRCHA(MOALG,1,IRET)
32 : IF (IRET.EQ.0) RETURN
33 : *
34 : IF (MOALG(1:6).EQ.MOPLEX) THEN
35 : *
36 : * Algorithme de Plexus
37 : * on s'en sert plus. Il ne figure pas dans la notice
37 : CALL DYNPLX
38 : RETURN
39 : ELSE IF (MOALG(1:12).EQ.MODEVO) THEN
40 : *
41 : * Algorithme de Fu - de Vogelaere
42 : *
42 : CALL DYNDEV
43 : RETURN
44 : ELSE IF (MOALG(1:20).EQ.MODIFF) THEN
45 : *
46 : * Algorithme des differences centrees (le meme que plexus)
47 : *
47 : CALL DYNDIF
48 : RETURN
49 : ELSE
50 : *
51 : * Erreur dans le choix de l'algorithme
52 : *
52 : CALL ERREUR(477)
53 : RETURN
54 : ENDIF
55 : *
56 : END
57 :
58 :
© Cast3M 2003 - All rights reserved.
Disclaimer