1 : C SIGMOY SOURCE CHAT 06/08/24 22:07:37 5529 2 : SUBROUTINE SIGMOY(IPMODL,IPCHE1,IPCHE2) 3 : *_______________________________________________________________________ 4 : * 5 : * CALCUL DU SIGMA MOYENNE A PARTIR 6 : * DU SIGMA OBTENU DIRECTEMENT 7 : * 8 : *_______________________________________________________________________ 9 : * 10 : * ENTREE : 11 : * -------- 12 : * IPMODL POINTEUR SUR UN MMODEL 13 : * IPCHE1 POINTEUR SUR MCHAML DE CONTRAINTES 14 : * 15 : * 16 : * SORTIE : 17 : * -------- 18 : * IPCHE2 POINTEUR SUR MCHAML MOYENNE 19 : * = 0 SI IMPOSSIBLE 20 : * 21 : * PASSAGE AUX NOUVEAUX CHAMELEM PAR JM CAMPENON LE 02/91 22 : * 23 : *_______________________________________________________________________ 24 : * 25 : IMPLICIT INTEGER(I-N) 26 : -INC CCOPTIO 27 : * 28 : * PASSAGE AUX NOEUDS 29 : * 29 : CALL CHASUP (IPMODL,IPCHE1,IPCHA1,IRET,1) 30 : IF (IRET.NE.0) GOTO 630 31 : * 32 : * ON TRANSFORME LE MCHAML EN CHPOINT 33 : * 33 : CALL CHAMPO (IPCHA1,1,IPCHP,IRET) 34 : IF (IRET.NE.1) GOTO 620 35 : * 36 : * ON FAIT LA TRANSFORMATION INVERSE CHPOINT --> MCHAML 37 : * 37 : CALL CHAME1 (0,IPMODL,IPCHP,' ',IPCHE2,5) 38 : IF (IERR.NE.0) GOTO 610 39 : * 39 : CALL DTCHAM(IPCHA1) 39 : CALL DTCHPO(IPCHP ) 40 : RETURN 41 : * 42 : * EN CAS D'ERREUR 43 : * 44 : 610 CONTINUE 44 : CALL DTCHPO(IPCHP) 45 : * 46 : 620 CONTINUE 46 : CALL DTCHAM(IPCHA1) 47 : * 48 : 630 CONTINUE 49 : IPCHE2=0 50 : RETURN 51 : END 52 : 53 :
© Cast3M 2003 - All rights reserved.
Disclaimer