Télécharger la plaquette Cast3M


fr en

Télécharger licht2.eso

Retour à la liste

Numérotation des lignes : 

licht2

  1. C LICHT2    SOURCE    CB215821  20/11/25    13:33:39     10792          
  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.  
  14. -INC PPARAM
  15. -INC CCOPTIO
  16. -INC SMELEME
  17.       POINTEUR IGEOM.MELEME
  18. -INC SMCHPOI
  19.       INTEGER IMPR,IRET
  20. *
  21.       INTEGER NSOUPO
  22. *
  23.       IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans licht2'
  24.       SEGACT MCHPOI
  25.       NSOUPO=IPCHP(/1)
  26.       IF(NSOUPO.EQ.1) THEN
  27.          MSOUPO=IPCHP(1)
  28.          SEGACT MSOUPO
  29.          IGEOM=IGEOC
  30.          MPOVAL=IPOVAL
  31.          SEGDES MSOUPO
  32.       ELSE
  33.          WRITE(IOIMP,*) ' Le chpoint MCHPOI=',MCHPOI
  34.      $        ,'est partitionné..'
  35.          WRITE(IOIMP,*) ' NSOUPO=',NSOUPO
  36.          IGEOM=0
  37.          MPOVAL=0
  38.          GOTO 9999
  39.       ENDIF
  40.       SEGDES MCHPOI
  41. *
  42. * Normal termination
  43. *
  44.       IRET=0
  45.       RETURN
  46. *
  47. * Error handling
  48. *
  49.  9999 CONTINUE
  50.       IRET=1
  51.       WRITE(IOIMP,*) 'An error was detected in subroutine licht2'
  52.       RETURN
  53.       END
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  

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