Download dynera.eso
Back to the list
1 : C DYNERA SOURCE CHAT 05/01/12 23:18:47 5004
2 : SUBROUTINE DYNERA(IPCHP1,IPCHP2,IPCHP3,NSOR,IPTAB)
3 : IMPLICIT INTEGER(I-N)
4 : IMPLICIT REAL*8(A-H,O-Z)
5 : ************************************************************************
6 : *
7 : * D Y N E R A
8 : * -----------
9 : *
10 : * FONCTION:
11 : * ---------
12 : * S-P ASSOCIE A L'OPERATEUR "DYNE"
13 : * ARCHIVAGE DES RESULTATS DANS LA TABLE DE SORTIE
14 : *
15 : * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
16 : * -----------
17 : *
18 : * IPCHP1 (E) POINTEUR SUR LE CHPOINT DE DEPLACEMENT
19 : * IPCHP2 (E) POINTEUR SUR LE CHPOINT DE VITESSE
20 : * IPCHP3 (E) POINTEUR SUR LE CHPOINT D'ACCELERATION
21 : * NSOR (E) NUMERO DE L'INSTANT DE SORTIE
22 : * IPTAB (S) POINTEUR SUR LA TABLE DE SORTIE ( ACTIVE )
23 : *
24 : * AUTEUR, DATE DE CREATION:
25 : * -------------------------
26 : *
27 : * DENIS ROBERT, LE 21 OCTOBRE 1988.
28 : *
29 : * LANGAGE:
30 : * --------
31 : *
32 : * ESOPE + FORTRAN77
33 : *
34 : ************************************************************************
35 : *
36 : * MODULES UTILISES:
37 : *
38 : -INC CCOPTIO
39 : -INC SMTABLE
40 : *
41 : INTEGER I0,I1,IP0,IP1
42 : REAL*8 X0,X1
43 : LOGICAL L0,L1
44 : *
45 : MTABLE=IPTAB
46 : *
47 : *--- INITIALISATION ET REMPLISSAGE DE LA PETITE TABLE
48 : *
48 : CALL CRTABL(MTAB1)
49 : IPTA1=MTAB1
50 : *
51 : *--- SOUS-TYPAGE DE LA PETITE TABLE : 'MOUVEMENT'
52 : *
52 : CALL ECCTAB(IPTA1,'MOT',I0,X0,'SOUSTYPE',L0,IP0,
53 : & 'MOT',I1,X1,'MOUVEMENT',L1,IP1)
54 : IF (IERR.NE.0) RETURN
55 : *
56 : *--- INDICE 'ECCTAB(IPTA1,'MOT',I0,X0,'ECCTAB(IPTA1,'MOT',I0,X0,'ECCTAB(IPTA1,'MOT',I0,X0,'ECCTAB(IPTAB,'ENTIER',NSOR,X0,' ',L0,IP0,
73 : & 'TABLE',I1,X1,' ',L1,IPTA1)
74 : IF (IERR.NE.0) RETURN
75 : SEGDES,MTAB1
76 : *
77 : END
78 :