C PRONLI    SOURCE    JK148537  24/04/19    21:15:03     11906          
      SUBROUTINE PRONLI(IPMOD1,ICHP1,ICHP2)
*
* construire 2nd membre resolution champ de pression 
* ecoulement / NAVIER-STOKES NLIN
*      
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC PPARAM
-INC CCOPTIO

-INC SMMODEL


      MMODEL = IPMOD1
      nsous = kmodel(/1)
      n1 = 1 
      segini mmode2
      ipmons = mmode2
      
      
      do is = 1,nsous
        imodel = kmodel(is)
        mmode2.kmodel(1) = imodel
        if (formod(1).ne.'NAVIER_STOKES'.or.cmatee.ne.'NLIN') then
          call erreur(21)
          return
        endif
        
        call GO2NLI(IPMONS,ICHP1,ICHPU,6)
        if (ierr.ne.0) return
        
        if (is.eq.1) then
          ichp2 = ichpu
        else 
*          CALL ADCHPO(ICHP2,ICHPU,IRET,1D0,1D0)
         CALL FUCHPO(ICHP2,ICHPU,IRETOU)
         ichp2 = iretou
        endif
        CALL ACTOBJ('CHPOINT ',ICHP2,1)
        
      enddo
      
        if (ierr.ne.0) return
        
      RETURN
      END