Télécharger la plaquette Cast3M


fr en

Télécharger dime10.eso

Retour à la liste

Numérotation des lignes : 

dime10

  1. C DIME10    SOURCE    CB215821  15/05/04    21:15:00     8516
  2. C DIMENSION D'UN OBJET DE TYPE "NUAGE".
  3.       SUBROUTINE DIME10 (IPOINT,JEMIL,LDIM)
  4. C***********************************************************************
  5. C
  6. C                             D I M E 1 0
  7. C                             -----------
  8. C
  9. C FONCTION:
  10. C ---------
  11. C
  12. C     DETERMINER LA DIMENSION D'UN OBJET DE TYPE "NUAGE   ".
  13. C
  14. C MODE D'APPEL:
  15. C -------------
  16. C
  17. C     CALL DIME10 (IPOINT,LDIM)
  18. C
  19. C PARAMETRES:  (E)=ENTREE   (S)=SORTIE
  20. C -----------
  21. C
  22. C     IPOINT  ENTIER    (E)  POINTEUR DE L'OBJET DE TYPE "NUAGE   ".
  23. C     JEMIL   ENTIER    (E)  =1 SI ON VEUT LE NOMBRE DE VARIABLE
  24. C                            =2 SI ON VEUT LE NOMBRE DE UPLETS
  25. C     LDIM    ENTIER    (S)  DIMENSION DE L'OBJET.
  26. C
  27. C AUTEUR, DATE DE CREATION:
  28. C -------------------------
  29. C
  30. C     SUO     LE 9 MAI 1994
  31. C
  32. C LANGAGE:
  33. C --------
  34. C
  35. C     ESOPE + FORTRAN77
  36. C
  37. C***********************************************************************
  38. C
  39.       IMPLICIT INTEGER(I-N)
  40. -INC SMNUAGE
  41. C
  42.       LDIM  = 0
  43.       MNUAGE= IPOINT
  44.       SEGACT,MNUAGE
  45.       NVAR  = NUAPOI(/1)
  46.  
  47.       IF (NVAR .GT. 0) THEN
  48.         IF (JEMIL.EQ.1) THEN
  49.           LDIM=NUANOM(/2)
  50.  
  51.         ELSE
  52.           IF (NUATYP(1).EQ.'FLOTTANT') THEN
  53.             NUAVFL=NUAPOI(1)
  54.             SEGACT,NUAVFL
  55.             LDIM=NUAFLO(/1)
  56.             SEGDES,NUAVFL
  57.  
  58.           ELSEIF (NUATYP(1).EQ.'MOT     ') THEN
  59.             NUAVMO=NUAPOI(1)
  60.             SEGACT,NUAVMO
  61.             LDIM=NUAMOT(/2)
  62.             SEGDES,NUAVMO
  63.  
  64.           ELSEIF (NUATYP(1).EQ.'LOGIQUE ') THEN
  65.             NUAVLO=NUAPOI(1)
  66.             SEGACT,NUAVLO
  67.             LDIM=NUALOG(/1)
  68.             SEGDES,NUAVLO
  69.  
  70.           ELSE
  71.             NUAVIN=NUAPOI(1)
  72.             SEGACT,NUAVIN
  73.             LDIM=NUAINT(/1)
  74.             SEGDES,NUAVIN
  75.           ENDIF
  76.         ENDIF
  77.       ENDIF
  78.  
  79.       SEGDES,MNUAGE
  80. C
  81. 666   CONTINUE
  82.       RETURN
  83.       END
  84.  
  85.  
  86.  

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