Télécharger la plaquette Cast3M


fr en

Télécharger simp1.eso

Retour à la liste

Numérotation des lignes : 

simp1

  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.  
  34.  

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