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  23/02/16    21:15:03     11599          
  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.  
  13.       CHARACTER*8 CTYP
  14.  
  15. -INC PPARAM
  16. -INC CCOPTIO
  17. -INC SMLOBJE
  18.  
  19. C---------------------------------
  20. C     LECTURE DES ARGUMENTS
  21. C---------------------------------
  22.       CALL LIRENT(NFOIS,1,IRET)
  23.       IF (IERR.NE.0) RETURN
  24.  
  25.       CALL QUETYP(CTYP,1,IRET)
  26.       IF (IERR.NE.0) RETURN
  27.  
  28.       CALL PLAMO8(LTYPOB,NTYPOB,IPLA,CTYP)
  29.       IF (IPLA.EQ.0) THEN
  30.         CALL ERREUR(1138)
  31.         RETURN
  32.       ELSE
  33.         CALL LIROBJ(CTYP,IPOBJ,1,IRET)
  34.         IF (IERR.NE.0) RETURN
  35.       ENDIF
  36.  
  37. C---------------------------------
  38. C     DEFINITION DU LISTOBJE
  39. C---------------------------------
  40.       NOBJ = NFOIS
  41.       SEGINI,MLOBJE
  42.       TYPOBJ = CTYP
  43.  
  44.       DO 10 IOB=1,NOBJ
  45.         LISOBJ(IOB) = IPOBJ
  46.  10   CONTINUE
  47.  
  48.  
  49. C---------------------------------
  50. C     ECRITURE DU RESULTAT 
  51. C---------------------------------
  52.       CALL ECROBJ('LISTOBJE',MLOBJE)
  53.  
  54.       RETURN
  55.       END
  56.  
  57.  
  58.  
  59.  

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