Télécharger la plaquette Cast3M


fr en

Télécharger pronli.eso

Retour à la liste

Numérotation des lignes : 

pronli

  1. C PRONLI    SOURCE    JK148537  24/04/19    21:15:03     11906          
  2.       SUBROUTINE PRONLI(IPMOD1,ICHP1,ICHP2)
  3. *
  4. * construire 2nd membre resolution champ de pression 
  5. * ecoulement / NAVIER-STOKES NLIN
  6. *      
  7.       IMPLICIT INTEGER(I-N)
  8.       IMPLICIT REAL*8(A-H,O-Z)
  9.  
  10. -INC PPARAM
  11. -INC CCOPTIO
  12.  
  13. -INC SMMODEL
  14.  
  15.  
  16.       MMODEL = IPMOD1
  17.       nsous = kmodel(/1)
  18.       n1 = 1 
  19.       segini mmode2
  20.       ipmons = mmode2
  21.  
  22.  
  23.       do is = 1,nsous
  24.         imodel = kmodel(is)
  25.         mmode2.kmodel(1) = imodel
  26.         if (formod(1).ne.'NAVIER_STOKES'.or.cmatee.ne.'NLIN') then
  27.           call erreur(21)
  28.           return
  29.         endif
  30.  
  31.         call GO2NLI(IPMONS,ICHP1,ICHPU,6)
  32.         if (ierr.ne.0) return
  33.  
  34.         if (is.eq.1) then
  35.           ichp2 = ichpu
  36.         else 
  37. *          CALL ADCHPO(ICHP2,ICHPU,IRET,1D0,1D0)
  38.          CALL FUCHPO(ICHP2,ICHPU,IRETOU)
  39.          ichp2 = iretou
  40.         endif
  41.         CALL ACTOBJ('CHPOINT ',ICHP2,1)
  42.  
  43.       enddo
  44.  
  45.         if (ierr.ne.0) return
  46.  
  47.       RETURN
  48.       END
  49.  
  50.  
  51.  
  52.  

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