Numérotation des lignes :

si
C SI        SOURCE    CB215821  24/07/17    21:15:17     11961          C  INSTRUCTION SIC      SUBROUTINE SI      IMPLICIT INTEGER(I-N) -INC PPARAM-INC CCOPTIO-INC CCNOYAU-INC SMBLOC-INC CCREDLE*      character*(LOCHAI) chauer      LOGICAL LOG1      CHARACTER*8 IJCH      CHARACTER*4 MCLE(7)      DIMENSION IMOTCO(7)      SAVE IMOTCO      DATA IMOTCO(1)/-1/      DATA MCLE /'SI  ','SINO','FINS','REPE','FIN ','FINP','FINM'/       CALL LIRLOG(LOG1,1,IRETOU)      IF (IERR.NE.0) RETURN      IPSI=0      IREPET=0      ilupoy=0       IF (LOG1) RETURN   1  CONTINUE      CALL NOUTRU      if(ilupoy.eq.0) then        lectab=1        call quetyp (ijch, 1,iretou)        IF(IERR.NE.0) RETURN        sredle = iredle        chauer = text      endif C   POUR NE PAS ETRE PAR LA RECHERCHE DE L'INDICE DES TABLES      LECTAB=1      CALL LIRMO3(MCLE,7,IRET,0,IMOTCO)      IF (IERR.NE.0) RETURN      ilupoy=ilupoy+1       GOTO (10,20,30,40,50,60,60),IRET  10  CONTINUE      IPSI=IPSI+1      GOTO 1   20  CONTINUE      LECTAB=0      IF (IPSI.EQ.0) THEN         IF(IREPET.NE.0) THEN           moterr = chauer           CALL ERREUR(520)         ENDIF         RETURN      ENDIF      GOTO 1   30  CONTINUE      LECTAB=0      IF (IPSI.EQ.0) THEN         IF(IREPET.NE.0) THEN           moterr =chauer           CALL ERREUR(520)         ENDIF         RETURN      ENDIF      IF (IPSI.EQ.0) RETURN      IPSI=IPSI-1      GOTO 1   40  CONTINUE      CALL REPETE(1)      IF (IERR.NE.0) RETURNC  NE LIRE QU'UNE FOIS LA BOUCLE      MBCONT=1      IREPET=IREPET+1      GOTO 1   50  CONTINUE      CALL QUETYP( IJCH, 0, IRETOU)      IF (IERR.NE.0) RETURN       IF( IRETOU.EQ.0) GO TO 1      IF(IREPET.EQ.0) THEN       MBCOUR = MBCOUR -1       moterr =chauer       CALL ERREUR(520)       RETURN      ENDIF       CALL FIN      IF (IERR.NE.0) RETURN      IREPET=IREPET-1      GOTO 1   60  CONTINUE      MBCOUR = MBCOUR - 1      moterr =chauer      CALL ERREUR(521)      RETURN      END     

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