Télécharger la plaquette Cast3M


fr en

Télécharger verchp.eso

Retour à la liste

Numérotation des lignes : 

verchp

  1. C VERCHP    SOURCE    CB215821  20/11/25    13:42:21     10792          
  2. *  verification chpoint
  3. *
  4.       subroutine verchp(mchpoi,resul)
  5.       implicit real*8 (a-h,o-z)
  6.       logical resul
  7.  
  8. -INC PPARAM
  9. -INC CCOPTIO
  10. -INC CCREEL
  11. -INC SMCHPOI
  12. *
  13.       resul = .true.
  14.  
  15.       do ip = 1,ipchp(/1)
  16.        msoupo=ipchp(ip)
  17.        mpoval=ipoval
  18.        do j=1,vpocha(/2)
  19.         do i=1,vpocha(/1)
  20.           xval=vpocha(i,j)
  21.  
  22.          if (.not.(xval.le.xgrand.and.xval.ge.-xgrand))
  23.      >      resul = .false.
  24.         enddo
  25.        enddo
  26.       enddo
  27.       end
  28.  
  29.  
  30.  
  31.  

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