Télécharger crepoi.eso

Retour à la liste

Numérotation des lignes :

  1. C CREPOI SOURCE BP208322 16/11/18 21:16:09 9177
  2. C 09/2003 :
  3. C Modification suite a mise en place du cas IDIM = 1.
  4. C S'il reste IDIM nombres a lire (IDIM = 2 ou 3), creation du point
  5. C correspondant uniquement si affectation a un seul nom (d'objet)
  6. C Si IDIM = 1, on quitte directement le sous-programme et, si
  7. C l'utilisateur a fourni plus d'un flottant avec un seul nom, le
  8. C message d'erreur (trop de donnees ...) sera alors affiche.
  9. C Pour creer un point avec IDIM = 1, utiliser l'operateur POINT
  10.  
  11. SUBROUTINE CREPOI
  12.  
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8 (A-H,O-Z)
  15.  
  16. -INC CCOPTIO
  17. -INC CCGEOME
  18. -INC SMCOORD
  19. -INC CCNOYAU
  20.  
  21. IF ((IDIM.EQ.0).OR.(IDIM.EQ.1)) RETURN
  22.  
  23. IF ((NBNOM.GT.1).AND.(NBNOM.NE.3)) RETURN
  24. IF (NBNOM.EQ.3) THEN
  25. ITBNOM=ITANO1(1)
  26. IF (INOOB2(ITBNOM).NE.'TABLE ') RETURN
  27. ITBNOM=ITANO1(2)
  28. IF (INOOB2(ITBNOM).NE.'SEPARATE') RETURN
  29. ENDIF
  30.  
  31. CALL MESLIR(-149)
  32. CALL LIRREE(Val1,0,IRetou)
  33. IF (IRetou.EQ.0) RETURN
  34. CALL MESLIR(-150)
  35. CALL LIRREE(Val2,0,IRetou)
  36. IF (IRetou.NE.1) THEN
  37. CALL REFUS
  38. RETURN
  39. ENDIF
  40. CALL MESLIR(-151)
  41. IF (IDIM.EQ.3) CALL LIRREE(Val3,1,IRetou)
  42. IF (IERR.NE.0) RETURN
  43.  
  44. SEGDES MCOORD
  45. SEGACT MCOORD*MOD
  46. NbPts=1+(XCOOR(/1)/(IDIM+1))
  47. SEGADJ MCOORD
  48. IRef=(NbPts-1)*(IDIM+1)
  49. XCOOR(IRef+1)=Val1
  50. XCOOR(IRef+2)=Val2
  51. IF (IDIM.EQ.3) XCOOR(IRef+3)=Val3
  52. XCOOR(NbPts*(IDIM+1))=DENSIT
  53. segdes MCOORD
  54. segact mcoord
  55. CALL ECROBJ('POINT ',NbPts)
  56.  
  57. RETURN
  58. END
  59.  
  60.  
  61.  
  62.  
  63.  

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