Télécharger licht2.eso

Retour à la liste

Numérotation des lignes :

  1. C LICHT2 SOURCE CHAT 05/01/13 01:17:16 5004
  2. SUBROUTINE LICHT2(MCHPOI,
  3. $ MPOVAL,IGEOM,
  4. $ IMPR,IRET)
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8 (A-H,O-Z)
  7. C*************************************************************************
  8. C
  9. C On extrait d'un champoint non partitionné son support géométrique et
  10. C ses valeurs.
  11. C
  12. C***********************************************************************
  13. -INC CCOPTIO
  14. -INC SMELEME
  15. POINTEUR IGEOM.MELEME
  16. -INC SMCHPOI
  17. INTEGER IMPR,IRET
  18. *
  19. INTEGER NSOUPO
  20. *
  21. IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans licht2'
  22. SEGACT MCHPOI
  23. NSOUPO=IPCHP(/1)
  24. IF(NSOUPO.EQ.1) THEN
  25. MSOUPO=IPCHP(1)
  26. SEGACT MSOUPO
  27. IGEOM=IGEOC
  28. MPOVAL=IPOVAL
  29. SEGDES MSOUPO
  30. ELSE
  31. WRITE(IOIMP,*) ' Le chpoint MCHPOI=',MCHPOI
  32. $ ,'est partitionné..'
  33. WRITE(IOIMP,*) ' NSOUPO=',NSOUPO
  34. IGEOM=0
  35. MPOVAL=0
  36. GOTO 9999
  37. ENDIF
  38. SEGDES MCHPOI
  39. *
  40. * Normal termination
  41. *
  42. IRET=0
  43. RETURN
  44. *
  45. * Error handling
  46. *
  47. 9999 CONTINUE
  48. IRET=1
  49. WRITE(IOIMP,*) 'An error was detected in subroutine licht2'
  50. RETURN
  51. END
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  

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