Numérotation des lignes :

cotrab
C COTRAB    SOURCE    FANDEUR   09/09/23    21:15:05     6374       SUBROUTINE COTRAB(IMAT,TRAC,LTRAC,IPOS,NSUP,NPOINT,KERRE) C-----------------------------------------------------------------CC     RECUPERATION DE COURBE (RELATIVEMENT GENERAL)CC     IPOS   : DEBUT DE STOCKAGE DE LA COURBE DANS TRACC     NSUP   : NOMBRE DE POINTS A SUPPRIMERC     NPOINT : NOMBRE DE POINTS STOCKESCC-----------------------------------------------------------------      IMPLICIT INTEGER(I-N)      IMPLICIT REAL*8(A-H,O-Z) -INC SMEVOLL-INC SMLREEL       DIMENSION TRAC(LTRAC)       KERRE=0*      MEVOLL=IMAT      IF (MEVOLL.EQ.0) THEN        KERRE=354        RETURN      ENDIF      SEGACT,MEVOLL      IF (IEVOLL(/1).NE.1) THENC*//    SEGDES,MEVOLL        KERRE=271        RETURN      ENDIF**     COURBE (SELON Y)*      KEVOLL=IEVOLL(1)C*//  SEGDES,MEVOLL*      SEGACT,KEVOLL      MLREEL=IPROGX      MLREE1=IPROGYC*//  SEGDES,KEVOLL*      SEGACT,MLREEL,MLREE1      NBPOIX=PROG(/1)      IF (NBPOIX.NE.MLREE1.PROG(/1)) KERRE=271      NPOINT=2*(NBPOIX-NSUP)      IF (NPOINT.LE.0) KERRE=271      IF (NPOINT.GT.LTRAC-IPOS+1) KERRE=271      IF (KERRE.NE.0) GOTO 999*      IF (NSUP.GT.0) THEN        PSUP=PROG(NSUP+1)      ELSE        PSUP=0.D0      ENDIF*      NCOUR=IPOS      DO 10 I=NSUP+1,NBPOIX        TRAC(NCOUR  ) = PROG(I)-PSUP        TRAC(NCOUR+1) = MLREE1.PROG(I)        NCOUR=NCOUR+2  10  CONTINUEC 999  CONTINUEC*//  SEGDES,MLREEL,MLREE1       RETURN      END   

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