Télécharger houxgb.eso

Retour à la liste

Numérotation des lignes :

  1. C HOUXGB SOURCE CHAT 07/10/22 21:16:22 5921
  2. C HOUXGB SOUINCA COMBESCU 01/04/06 03:00:01
  3. FUNCTION HOUXGB (XX,N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. IMPLICIT INTEGER (I-N)
  6. *
  7. * IMPLICIT NONE
  8. *
  9. * REAL *8 XX(24)
  10. * INTEGER N
  11. * REAL *8 HOUXGB
  12. Dimension XX(24)
  13. *
  14. *
  15. *
  16. IF(N.EQ.1) THEN
  17. HOUXGB = XX(1) + XX(4) - XX(7) - XX(10)
  18. & - XX(13) - XX(16) + XX(19) + XX(22)
  19. ELSEIF(N.EQ.2) THEN
  20. HOUXGB = XX(1) - XX(4) - XX(7) + XX(10)
  21. & - XX(13) + XX(16) + XX(19) - XX(22)
  22. ELSEIF(N.EQ.3) THEN
  23. HOUXGB = XX(1) - XX(4) + XX(7) - XX(10)
  24. & + XX(13) - XX(16) + XX(19) - XX(22)
  25. ELSEIF(N.EQ.4) THEN
  26. HOUXGB = - XX(1) + XX(4) - XX(7) + XX(10)
  27. & + XX(13) - XX(16) + XX(19) - XX(22)
  28. ELSE
  29. write(6,*) ' erreur dans houxgb'
  30. CALL ERREUR(5)
  31. * STOP 'HOUXGB'
  32. ENDIF
  33. *
  34. END
  35.  
  36.  
  37.  

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