Télécharger vcrite.eso

Retour à la liste

Numérotation des lignes :

  1. C VCRITE SOURCE CB215821 16/04/21 21:18:38 8920
  2. FUNCTION VCRITE(SAGN,TAU,TFI,COE)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C-----------------------
  6. C CALCUL DU CRITERE
  7. C-----------------------
  8. VCRITE=TFI*SAGN+ABS(TAU)-COE
  9. RETURN
  10. END
  11.  
  12.  
  13.  
  14.  
  15.  

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