Esope source files

   1 : C SIMP1     SOURCE    CHAT      05/01/13    03:18:38     5004           
   2 :       SUBROUTINE SIMP1(A,MP,NP,MM,LL,NLL,IABF,KP,BMAX)
   3 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC        
   4 : C                                                                     C
   5 : C     METHODE DU SIMPLEX : ESCLAVE DE SIMPLX                          C
   6 : C                                                                     C
   7 : C     P.PEGON 31/8/92                                                 C
   8 : C                                                                     C
   9 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  10 :       IMPLICIT INTEGER(I-N)
  11 :       IMPLICIT REAL*8(A-H,O-Z)
  12 :       DIMENSION A(MP,NP),LL(NP)
  13 : C
  14 :       KP=LL(1)
  15 :       BMAX=A(MM+1,KP+1)
  16 :       IF(NLL.LT.2)RETURN
  17 : C
  18 :       DO 11 K=2,NLL
  19 :         IF(IABF.EQ.0)THEN
  20 :           TEST=A(MM+1,LL(K)+1)-BMAX
  21 :         ELSE
  22 :           TEST=ABS(A(MM+1,LL(K)+1))-ABS(BMAX)
  23 :         ENDIF
  24 :         IF(TEST.GT.0.D0)THEN
  25 :           BMAX=A(MM+1,LL(K)+1)
  26 :           KP=LL(K)
  27 :         ENDIF
  28 :  11   CONTINUE
  29 : C
  30 :       RETURN
  31 :       END
  32 :  
  33 :