Télécharger la plaquette Cast3M


fr en

Télécharger vercha.eso

Retour à la liste

Numérotation des lignes : 

vercha

  1. C VERCHA    SOURCE    KICH      21/11/17    21:15:13     11191          
  2.       subroutine vercha(mchelm,resul)
  3.       implicit real*8 (a-h,o-z)
  4.       logical resul
  5.  
  6. -INC PPARAM
  7. -INC CCOPTIO
  8. -INC CCREEL
  9. -INC SMCHAML
  10. *
  11.       resul = .true.
  12.  
  13.       DO III=1,ICHAML(/1)
  14.         MCHAML=ICHAML(III)
  15.         DO JJJ=1,IELVAL(/1)
  16.  
  17.          if(typche(JJJ).eq.'REAL*8') then
  18.           MELVAL=IELVAL(JJJ)
  19.           n1ptel = velche(/1)
  20.           n1el = velche(/2)
  21.             do k1 = 1,n1ptel
  22.               do k2 = 1,n1el
  23.                 xval = velche(k1,k2)
  24.          if (.not.(xval.le.xgrand.and.xval.ge.-xgrand))
  25.      >      resul = .false.
  26.          if (.not.resul) return
  27.               enddo
  28.             enddo
  29.          else
  30.           n2ptel = ielche(/1)
  31.           n2el = ielche(/2)
  32.             do k1 = 1,n2ptel
  33.               do k2 = 1,n2el
  34.                 jval = ielche(k1,k2)
  35.          if (.not.(jval.le.igrand.and.jval.ge.-igrand))
  36.      >      resul = .false.
  37.          if (.not.resul) return
  38.               enddo
  39.             enddo
  40.          endif 
  41.  
  42.         ENDDO
  43.       ENDDO
  44.  
  45.  
  46.       return
  47.       end
  48.  
  49.  

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