Télécharger fz4.eso

Retour à la liste

Numérotation des lignes :

  1. C FZ4 SOURCE CHAT 05/01/13 00:14:20 5004
  2. FUNCTION FZ4(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. FON(DMI,D,ABSD,SQA,SQU)=SIGN(DMI,D)*LOG(((SQA-ABSD)*(SQU+ABSD))/
  10. +((SQU-ABSD)*(SQA+ABSD)))
  11. CALL ARGUME(T)
  12. IF(ABS(SINT).LT.0.00001D0) GOTO 11
  13. DMI=0.5D0
  14. ABSD1=ABS(D1)
  15. ABSD2=ABS(D2)
  16. IF(LSOMD) GOTO 3
  17. 4 IF(LD1) GOTO 6
  18. 7 IF(LD2) GOTO 8
  19. GOTO 9
  20. 3 FZ= FON(DMI,D2,ABSD2,SQA2,SQU2)*2.D0
  21. GOTO 10
  22. 6 FZ= FON(DMI,D2,ABSD2,SQA2,SQU2)
  23. GOTO 10
  24. 8 FZ=-FON(DMI,D1,ABSD1,SQA1,SQU1)
  25. GOTO 10
  26. 9 FZ= FON(DMI,D2,ABSD2,SQA2,SQU2)-FON(DMI,D1,ABSD1,SQA1,SQU1)
  27. 10 FZ4=RSINT*FZ
  28. RETURN
  29. 11 FZ4=0.D0
  30. RETURN
  31. END
  32.  
  33.  

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