Esope source files

   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'
  29 :               CALL ERREUR(5)
  30 : *               STOP 'HOUXGB'
  31 :       ENDIF
  32 : *
  33 :       END
  34 : 
  35 :