1 : C EXTR10 SOURCE CHAT 05/01/12 23:51:45 5004 2 : SUBROUTINE EXTR10(ISTR,MOT, IPTR) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8(A-H,O-Z) 5 : ************************************************************************ 6 : * 7 : * E X T R 1 0 8 : * ----------- 9 : * 10 : * FONCTION: 11 : * --------- 12 : * 13 : * SOUS-PROGRAMME POUR EXTRAIRE D'UNE STRUCTURE 14 : * UNE RIGIDITE. 15 : * 16 : * MODULES UTILISES: 17 : * ----------------- 18 : * 19 : -INC CCOPTIO 20 : -INC SMSTRUC 21 : * 22 : * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN) 23 : * ----------- 24 : * 25 : * ISTR (E) POINTEUR SUR L'OBJET STRUCTURE. 26 : * MOT (E) MOT-CLE : 'RIGI' OU 'MASS'. 27 : * IPTR (S) POINTEUR SUR L'OBJET RIGIDITE. 28 : * 29 : CHARACTER*4 MOT 30 : * 31 : * MODE DE FONCTIONNEMENT: 32 : * ----------------------- 33 : * 34 : * ON SUPPOSE QUE LE PROGRAMME APPELANT A VERIFIE QUE LE 35 : * MOT-CLE SOIT CORRECT. 36 : * 37 : * AUTEUR, DATE DE CREATION: 38 : * ------------------------- 39 : * 40 : * LIONEL VIVAN JUILLET 1988 41 : * 42 : * LANGAGE: 43 : * -------- 44 : * 45 : * ESOPE + FORTRAN77 46 : * 47 : ************************************************************************ 48 : * 49 : MSTRUC = ISTR 50 : SEGACT MSTRUC 51 : NSTRU = LISTRU(/1) 52 : DO 10 IS = 1,NSTRU 53 : MSOSTU = LISTRU(IS) 54 : SEGACT MSOSTU 55 : IF (IS .EQ. 1) THEN 56 : IF (MOT .EQ. 'RIGI') THEN 57 : IPT1 = ISRAID 58 : ELSE 59 : IPT1 = ISMASS 60 : ENDIF 61 : ELSE 62 : IF (MOT .EQ. 'RIGI') THEN 63 : IPT2 = ISRAID 64 : ELSE 65 : IPT2 = ISMASS 66 : ENDIF 66 : CALL FUSRIG(IPT1,IPT2,IPT3) 67 : IF (IERR.NE.0) RETURN 67 : CALL DTRIGI(IPT1) 68 : IF (IERR.NE.0) RETURN 69 : IPT1 = IPT3 70 : ENDIF 71 : SEGDES MSOSTU 72 : 10 CONTINUE 73 : SEGDES MSTRUC 74 : IPTR = IPT1 75 : * 76 : END 77 :
© Cast3M 2003 - All rights reserved.
Disclaimer