1 : C TAGRA SOURCE PV 09/03/12 21:35:15 6325 2 : SUBROUTINE TAGRA(IPO1,IPO2,IRET) 3 : C--------------------------------------------------------------------- 4 : C 5 : C ENTREES 6 : C IPO1 =POINTEUR SUR UN CHAMELEM DE GRADIENT OU GRAFLEXI 7 : C 8 : C SORTIES 9 : C IPO2 =POINTEUR SUR UN CHAMELEM DE GRADIENT OU GRAFLEXI 10 : C IRET =1 OU 0 SUIVANT SUCCES OU PAS 11 : C--------------------------------------------------------------------- 12 : IMPLICIT INTEGER(I-N) 13 : IMPLICIT REAL*8(A-H,O-Z) 14 : -INC CCOPTIO 15 : -INC CCHAMP 16 : -INC SMCHAML 17 : C 18 : IRET=1 19 : MCHEL1=IPO1 20 : SEGINI,MCHELM=MCHEL1 21 : IPO2=MCHELM 22 : NSOUS=IMACHE(/1) 23 : IF(TITCHE.EQ.'GRADIENT') THEN 24 : GO TO 10 25 : ELSE IF(TITCHE.EQ.'GRADIENT DE FLEXION') THEN 26 : GO TO 10 27 : ENDIF 28 : C 29 : C ERREUR IL FAUT UN MCHAML DE SOUS TYPE GRADIENT 30 : C OU GRAFLEXI 31 : C 32 : MOTERR(1:8)='GRADIENT' 33 : MOTERR(9:16)='GRAFLEXI' 33 : CALL ERREUR(109) 34 : 35 : IRET=0 35 : CALL GINT2 36 : GOTO 666 37 : 10 CONTINUE 38 : C 39 : DO 200 IA=1,NSOUS 40 : MCHAM1=ICHAML(IA) 41 : SEGINI,MCHAML=MCHAM1 42 : ICHAML(IA)=MCHAML 43 : IF(IELVAL(/1).NE.9) THEN 44 : C 45 : C ERREUR DANS LES TAILLES DES CHAMPS PAR ELEMENTS 46 : C 47 : MOTERR(1:8)='TAGRA' 48 : IRET=0 48 : CALL ERREUR(146) 49 : GOTO 777 50 : ENDIF 51 : C PERMUTATION DES COMPOSANTES 52 : N2=IELVAL(2) 53 : N4=IELVAL(4) 54 : N3=IELVAL(3) 55 : N7=IELVAL(7) 56 : N6=IELVAL(6) 57 : N8=IELVAL(8) 58 : IELVAL(2)=N4 59 : IELVAL(4)=N2 60 : IELVAL(3)=N7 61 : IELVAL(7)=N3 62 : IELVAL(6)=N8 63 : IELVAL(8)=N6 64 : SEGDES MCHAM1,MCHAML 65 : 200 CONTINUE 66 : SEGDES MCHEL1,MCHAML 67 : RETURN 68 : 777 CONTINUE 69 : SEGDES MCHAML 70 : SEGSUP MCHAM1 71 : 666 CONTINUE 72 : SEGDES MCHELM 73 : SEGSUP MCHEL1 74 : RETURN 75 : END 76 : 77 : 78 : 79 : 80 : 81 : 82 : 83 :
© Cast3M 2003 - All rights reserved.
Disclaimer