Télécharger fonz.eso

Retour à la liste

Numérotation des lignes :

  1. C FONZ SOURCE CHAT 05/01/13 00:06:27 5004
  2. FUNCTION FONZ(T)
  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
  9. C FUNCTION FZ1
  10. FZ1(D,XA,XU,SQA,SQU)=D* LOG((XA+SQA)/(XU+SQU))
  11. CALL ARGUME(T)
  12. IF(LSOMD) GOTO 3
  13. 4 IF(LD1) GOTO 6
  14. 7 IF(LD2) GOTO 8
  15. GOTO 9
  16. 3 F1= FZ1(D2,XA,XU,SQA2,SQU2)*2.D0
  17. F2= FZ2(D2, A, U,SQA2,SQU2,RSIN2)*2.D0
  18. F3= FZ3(D2,XA,XU,SQA2,SQU2,RSINT)*2.D0
  19. GOTO 10
  20. 6 F1= FZ1(D2,XA,XU,SQA2,SQU2)
  21. F2= FZ2(D2, A, U,SQA2,SQU2,RSIN2)
  22. F3= FZ3(D2,XA,XU,SQA2,SQU2,RSINT)
  23. GOTO 10
  24. 8 F1=-FZ1(D1,XA,XU,SQA1,SQU1)
  25. F2=-FZ2(D1, A, U,SQA1,SQU1,RSIN2)
  26. F3=-FZ3(D1,XA,XU,SQA1,SQU1,RSINT)
  27. GOTO 10
  28. 9 F1= FZ1(D2,XA,XU,SQA2,SQU2)-FZ1(D1,XA,XU,SQA1,SQU1)
  29. F2= FZ2(D2, A, U,SQA2,SQU2,RSIN2)-FZ2(D1, A, U,SQA1,SQU1,RSIN2)
  30. F3= FZ3(D2,XA,XU,SQA2,SQU2,RSINT)-FZ3(D1,XA,XU,SQA1,SQU1,RSINT)
  31. 10 FONZ=F1+F2+F3
  32. RETURN
  33. END
  34.  
  35.  

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