C CRCHP0    SOURCE    MAGN      13/03/04    21:15:00     7710           
      SUBROUTINE CRCHP0(MCHPOI,MPOVAL)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C*************************************************************************
C     
C Ce SP cree un champoint vide 
C     
C*************************************************************************
-INC CCOPTIO
-INC SMCHPOI
      CHARACTER*8 TYPE

      TYPE='        '
      MCHPOI=0
         NAT=1
         NSOUPO=1
         N =0
         NC=0
         SEGINI MCHPOI,MSOUPO,MPOVAL
         IFOPOI = IFOUR
         JATTRI(1)=2
         MTYPOI=TYPE
         MOCHDE='                                                  '
         IPCHP(1)=MSOUPO
         SEGDES MCHPOI,MSOUPO,MPOVAL
      RETURN
      END