Numérotation des lignes :

C OTER      SOURCE    CHAT      09/09/09    21:15:08     6493      subroutine oter      implicit integer(i-n)      implicit real*8(a-h,o-z)-INC CCOPTIO-INC SMTABLE      character*8 typind**  oter un indice d'une table en conservant la meme table*      call lirobj ('TABLE', IPTABL,1,iretou)      if(ierr.ne.0) return            CALL QUETYP ( TYPIND,1,IRETOU)      IF(IERR.NE.0) RETURN      IF(TYPIND.EQ.'FLOTTANT' ) THEN        CALL LIRREE ( XVA,1,IRETOU)      ELSE         CALL LIROBJ ( TYPIND , INDICE, 1,IRETOU)      ENDIF      IF ( IERR.NE.0) RETURN      MTABLE = IPTABL      SEGACT,MTABLE*MOD      M = MLOTAB      M0 = 0      IF (TYPIND.EQ.'FLOTTANT')  THEN         DO 103 I=1,M           IF( RMTABI(I) . EQ. XVA) THEN             M0 = I             GO TO 102           ENDIF  103    CONTINUE      ELSE      DO 100 I=1,M         IF (MTABTI(I) .EQ. TYPIND) THEN            IF (MTABII(I) .EQ. INDICE) THEN               M0 = I               GOTO 102            END IF         END IF  100    CONTINUE *     END DO      ENDIF  102 CONTINUE*      IF (M0 .EQ. 0) THEN         CALL ERREUR (171)         RETURN      END IF**      write(6,*) ' M0 ', M0      M = M - 1      MLOTAB=MLOTAB-1**     END DO      DO 210 I=M0,M         MTABLE.MTABTI(I) = MTABLE.MTABTI(I+1)         MTABLE.MTABTV(I) = MTABLE.MTABTV(I+1)         MTABLE.RMTABI(I) = MTABLE.RMTABI(I+1)         MTABLE.MTABII(I) = MTABLE.MTABII(I+1)         MTABLE.MTABIV(I) = MTABLE.MTABIV(I+1)         MTABLE.RMTABV(I) = MTABLE.RMTABV(I+1)  210    CONTINUE*     END DO*      SEGDES,MTABLE*      END

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