Numérotation des lignes :

borne3
C BORNE3    SOURCE    FANDEUR   11/04/12    21:15:06     6938       SUBROUTINE BORNE3 (IEVOLE,MLIEVO,MLIOPE,MLBMIN,MLBMAX, IEVOLS)       IMPLICIT INTEGER(I-N)      IMPLICIT REAL*8(A-H,O-Z)  -INC PPARAM-INC CCOPTIO-INC SMEVOLL-INC SMLENTI-INC SMLREEL C- Activation de l'evolution en entree      MEVOL1 = IEVOLE      SEGACT,MEVOL1      NCOUR = MEVOL1.IEVOLL(/1) C- Creation de l'evolution resultat      IEVOLS = 0      SEGINI,MEVOLL=MEVOL1 C- Quelques verifications      MLENTI = MLIEVOC*    SEGACT,MLENTI      DO i = 1, LECT(/1)        icour = LECT(i)        IF (icour.LE.0) THEN          CALL ERREUR(352)        ELSE IF (icour.GT.NCOUR) THEN          INTERR(1) = icour          CALL ERREUR(351)        ELSE          DO j = 1, i-1            IF (icour.EQ.LECT(j)) LECT(j) = 0          ENDDO        ENDIF      ENDDO      IF (IERR.NE.0) GOTO 900      N = 0      DO i = 1, LECT(/1)        IF (LECT(i).NE.0) N = N+1      ENDDO      IF (N.EQ.0) CALL ERREUR(5)      IF (N.NE.NCOUR) SEGADJ,MEVOLL C- Realisation du bornage des courbes      MLENT1 = MLIOPEC*    SEGACT,MLENT1      MLREE1 = MLBMINC*    SEGACT,MLREE1      MLREE2 = MLBMAXC*    SEGACT,MLREE2       N = 0      DO i = 1, LECT(/1)        icour = LECT(i)        IF (icour.NE.0) THEN          N = N+1          KEVOL1 = MEVOL1.IEVOLL(icour)          SEGINI,KEVOLL=KEVOL1          ILREEE = IPROGY          INDOPE = MLENT1.LECT(i)          XBMIN  = MLREE1.PROG(i)          XBMAX  = MLREE2.PROG(i)          CALL BORNE2(ILREEE,INDOPE,XBMIN,XBMAX,ILREES)          IPROGY = ILREES          SEGDES,KEVOLL          IEVOLL(N) = KEVOLL        ENDIF      ENDDO       IEVOLS = MEVOLL  900  CONTINUE      IF (IEVOLS.NE.0) THEN        SEGDES,MEVOLL      ELSE        SEGSUP,MEVOLL      ENDIF      SEGDES,MEVOL1       RETURN      END    

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