Télécharger dime10.eso

Retour à la liste

Numérotation des lignes :

  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