C ACTIVE SOURCE FANDEUR 10/12/14 21:15:23 6812 SUBROUTINE ACTIVE C-------------------------------------------------------------------- C OPERATEUR ACCELERATION DE CONVERGENCE C C SYNTAXE : VOIR NOTICE C-------------------------------------------------------------------- IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) C -INC CCOPTIO C CHARACTER*4 MOCOMP CHARACTER*4 LISMO(2) DATA LISMO/'GEOM','SECA'/ C IF(IERR.NE.0) RETURN C IF(IDET.EQ.1) THEN FLOT=0.98D0 ENDIF C C CAS DES CHPOINTS - ACCELERATIONS GEOMETRIQUE OU SECANTE C IF(IERR.NE.0) RETURN IF(IRETOU.EQ.1) THEN IF(IERR.NE.0) RETURN IF(IERR.NE.0) RETURN C IF(IDET.EQ.2) THEN IF(IERR.NE.0) RETURN ENDIF C C RETURN ENDIF C C CAS DES MCHAMLS - ACCELERATION GEOMETRIQUE UNIQUEMENT C IF(IDET.NE.1) THEN RETURN ENDIF C IF(IERR.NE.0)RETURN IF(IERR.NE.0) RETURN IF(IERR.NE.0)RETURN MOCOMP=' ' IF(IERR.NE.0) RETURN C C RETURN END
© Cast3M 2003 - Tous droits réservés.
Mentions légales