C LICHT2 SOURCE CB215821 20/11/25 13:33:39 10792 SUBROUTINE LICHT2(MCHPOI, $ MPOVAL,IGEOM, $ IMPR,IRET) IMPLICIT INTEGER(I-N) IMPLICIT REAL*8 (A-H,O-Z) C************************************************************************* C C On extrait d'un champoint non partitionné son support géométrique et C ses valeurs. C C*********************************************************************** -INC PPARAM -INC CCOPTIO -INC SMELEME POINTEUR IGEOM.MELEME -INC SMCHPOI INTEGER IMPR,IRET * INTEGER NSOUPO * IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans licht2' SEGACT MCHPOI NSOUPO=IPCHP(/1) IF(NSOUPO.EQ.1) THEN MSOUPO=IPCHP(1) SEGACT MSOUPO IGEOM=IGEOC MPOVAL=IPOVAL SEGDES MSOUPO ELSE WRITE(IOIMP,*) ' Le chpoint MCHPOI=',MCHPOI $ ,'est partitionné..' WRITE(IOIMP,*) ' NSOUPO=',NSOUPO IGEOM=0 MPOVAL=0 GOTO 9999 ENDIF SEGDES MCHPOI * * Normal termination * IRET=0 RETURN * * Error handling * 9999 CONTINUE IRET=1 WRITE(IOIMP,*) 'An error was detected in subroutine licht2' RETURN END