Télécharger ft2.eso

Retour à la liste

Numérotation des lignes :

  1. C FT2 SOURCE CHAT 05/01/13 00:10:58 5004
  2. FUNCTION FT2(D,SQA,SQU,LD)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. COMMON/CMCHAM/ D1,D2,R,A,U,DD1,DD2,LSOMD,LD1,LD2
  6. COMMON/CMARGT/SINT,COST,RSINT,RCOST,RSIN2,XA,XU,XXA,XXU,SQA2,SQA1
  7. +,SQU2,SQU1
  8. LOGICAL LSOMD,LD1,LD2,LD
  9. IF(.NOT.LD) GOTO 4
  10. 3 IF(COST.EQ.1.D0) GOTO 5
  11. 4 FT2=-R*SINT*COST*LOG((XA+SQA)/(XU+SQU))
  12. RETURN
  13. 5 FT2=0.D0
  14. RETURN
  15. END
  16.  
  17.  

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