Télécharger fr2.eso

Retour à la liste

Numérotation des lignes :

  1. C FR2 SOURCE CHAT 05/01/13 00:08:10 5004
  2. FUNCTION FR2 (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.NE.1.D0) GOTO 4
  11. 5 IF(R-U) 4,10,14
  12. 14 IF(R-A) 11,12,13
  13. 4 FR2=-R*COST**2* LOG((XA+SQA)/(XU+SQU))
  14. RETURN
  15. 10 FR2=-R*(XA/SQA)
  16. RETURN
  17. 11 FR2=-R*((XA/SQA)-(XU/SQU))
  18. RETURN
  19. 12 FR2=+R*(XU/SQU)
  20. RETURN
  21. 13 FR2=-R* LOG(XU/XA)
  22. RETURN
  23. END
  24.  
  25.  

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