Esope source files

   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 :