Numérotation des lignes :

C NTAPE2    SOURCE    CHAT      05/01/13    02:02:17     5004      SUBROUTINE NTAPE2(MCP,MCQ,IVXU,IVXL,IVB,N,M,IVGE,     *IVGM,IVLAMB,IPBASE)      IMPLICIT INTEGER(I-N)      IMPLICIT REAL*8 ( A-H,O-Z)-INC TMXMAT-INC CCOPTIO-INC SMLREEL-INC SMLENTI      POINTEUR MLREE4.MLREEL,MLREE5.MLREEL,MLREE7.MLREEL      N11=N + 1      MXMAT=MCP      MLREEL=IVXU      MLREE1=IVXL      SEGACT MLREEL,MLREE1      JG=PROG(/1)      SEGINI MLREE2,MLREE3      DO 1 I=1,JG         MLREE2.PROG(I)=1./PROG(I)         MLREE3.PROG(I)=1./MLREE1.PROG(I)   1  CONTINUE      JG=M      SEGDES MLREEL,MLREE1      SEGINI MLREEL,MLREE1,MLREE4,MLREE5      IF(IVGM.NE.0) THEN          MLREE7=IVGM          SEGSUP MLREE7      ENDIF      IVGM=MLREE4      IF(IVGE.NE.0) THEN          MLREE7=IVGE          SEGSUP MLREE7      ENDIF      IVGE=MLREE5      CALL MATVE1(XMAT,MLREE2.PROG,M,N11,PROG,2)      MXMAT=MCQ      CALL MATVE1(XMAT,MLREE3.PROG,M,N11,MLREE1.PROG,2)      SEGSUP MLREE2      MLREE2=IVB      DO 2 I=1,M        MLREE5.PROG(I)=PROG(I) + MLREE1.PROG(I) - MLREE2.PROG(I)   2  CONTINUE      SEGSUP MLREE1,MLREE3,MLREEL**  CALCUL DE LA DIRECTION DE MONTEE*        MLENTI=IPBASE        SEGACT MLENTI        MLREEL=IVLAMB        DO 3 I=1,M          MLREE4.PROG(I)=MLREE5.PROG(I)             IF(PROG(I).EQ.0. ) THEN                IF(MLREE5.PROG(I).LT.0.D0) THEN                MLREE4.PROG(I)=0.D0              ENDIF            ENDIF    3   CONTINUE        DO 4 I=1,M          IF (LECT(I) .EQ.1)  MLREE4.PROG(I)=0.D0    4   CONTINUE      RETURN      END

© Cast3M 2003 - Tous droits réservés.
Mentions légales