Télécharger la plaquette Cast3M


fr en

Télécharger enufoi.eso

Retour à la liste

Numérotation des lignes : 

enufoi

  1. C ENUFOI    SOURCE    SP204843  26/02/03    21:15:16     12461          
  2.       SUBROUTINE ENUFOI
  3. *---------------------------------------------------------------------
  4. *
  5. *     OPTION '*' OPERATEUR ENUMERER
  6. *
  7. *     SYNTAXE : voir notice ENUM
  8. * 
  9. *--------------------------------------------------------------------
  10.       IMPLICIT INTEGER(I-N)
  11.       IMPLICIT REAL*8(A-H,O-Z)
  12.       LOGICAL  LOG1
  13.  
  14.       CHARACTER*8 CTYP
  15.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18. -INC SMLOBJE
  19.  
  20. C---------------------------------
  21. C     LECTURE DES ARGUMENTS
  22. C---------------------------------
  23.       CALL LIRENT(NFOIS,1,IRET)
  24.       IF (IERR.NE.0) RETURN
  25.  
  26.       CALL QUETYP(CTYP,1,IRET)
  27.       IF (IERR.NE.0) RETURN
  28.  
  29.       CALL PLAMO8(LTYPOB,NTYPOB,IPLA,CTYP)
  30.       IF (IPLA.EQ.0) THEN
  31.         CALL ERREUR(1138)
  32.         RETURN
  33.       ENDIF
  34.  
  35.       NOBJ = 0
  36.       NREE = 0
  37.       IF (IPLA.EQ.2) THEN
  38.         CALL LIRENT(IPOBJ,1,IRET)
  39.         IF (IERR.NE.0) RETURN
  40.         NOBJ = NFOIS
  41.       ELSE IF (IPLA.EQ.3) THEN
  42.         CALL LIRREE(FLOT1,1,IRET)
  43.         IF (IERR.NE.0) RETURN
  44.         NREE = NFOIS
  45.       ELSE
  46.         CALL LIROBJ(CTYP,IPOBJ,1,IRET)
  47.         IF (IERR.NE.0) RETURN
  48.         NOBJ = NFOIS
  49.       ENDIF
  50.  
  51. C---------------------------------
  52. C     DEFINITION DU LISTOBJE
  53. C---------------------------------
  54.       SEGINI,MLOBJE
  55.       TYPOBJ = CTYP
  56.  
  57.       LOG1 = (IPLA.EQ.2).OR.(IPLA.GE.4)
  58.       IF (NFOIS.NE.0) THEN
  59.         DO 10 IOB=1,NFOIS
  60.           IF (IPLA.EQ.3) RLIREE(IOB) = FLOT1
  61.           IF (LOG1) LISOBJ(IOB) = IPOBJ
  62.  10     CONTINUE
  63.       ENDIF
  64.  
  65.  
  66. C---------------------------------
  67. C     ECRITURE DU RESULTAT 
  68. C---------------------------------
  69.       SEGACT, MLOBJE*NOMOD
  70.       CALL ECROBJ('LISTOBJE',MLOBJE)
  71.  
  72.       RETURN
  73.       END
  74.  
  75.  
  76.  
  77.  
  78.  

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