Télécharger ccoaf.eso

Retour à la liste

Numérotation des lignes :

  1. C CCOAF SOURCE CHAT 05/01/12 21:49:58 5004
  2. SUBROUTINE CCOAF(SI,XLAM,VCRI)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C
  6. C----------------------------------------------
  7. C CETTE ROUTINE PERMET DE CALCULER LA |
  8. C VALEUR DU CRITERE DE COMPRESSION |
  9. C----------------------------------------------
  10. C
  11. VCRI=-SI
  12. IF(XLAM.LE.1.E-8) VCRI=-1.D0
  13. RETURN
  14. END
  15.  
  16.  

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