Télécharger la plaquette Cast3M


fr en

Télécharger oublie.eso

Retour à la liste

Numérotation des lignes : 

oublie

  1. C OUBLIE    SOURCE    PV        20/12/23    21:15:09     10833          
  2. C    EFFACE UN NOM DES TABLES
  3. C
  4.       SUBROUTINE OUBLIE
  5.       IMPLICIT INTEGER(I-N)
  6.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9. -INC CCNOYAU
  10.       CHARACTER*(8)     TYPIND
  11.       CHARACTER*(LONOM) CHAR
  12.       CHAR=' '
  13.  
  14.       CALL LIROBJ('TABLE',ITAB,0,IRETO)
  15.       IF (IRETO.EQ.1) THEN
  16.          CALL QUETYP (TYPIND,0,IRETO1)
  17.          IF (IRETO1.EQ.1) THEN
  18.             CALL LIROBJ (TYPIND,INDICE,1,IRETOU)
  19.             IF (IERR .NE. 0) RETURN
  20.             CALL OUBLIE1 (ITAB,INDICE,TYPIND)
  21.             RETURN
  22.          ELSE
  23.             CALL QUENOM(CHAR)
  24.             CALL NOMOBJ('ANNULE  ',CHAR,ITAB)
  25.             RETURN
  26.          ENDIF
  27.       ELSE
  28.          CALL LIROBJ(CHAR,IPROUT,1,IRETO)
  29.          IF (IERR.NE.0) RETURN
  30.          CALL QUENOM(CHAR)
  31.          IF (CHAR.EQ.'    ') return
  32.          CALL NOMOBJ('ANNULE  ',CHAR,IPROUT)
  33.          RETURN
  34.       ENDIF
  35.       END
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  

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