C OPTIM     SOURCE    PV        20/09/26    21:19:04     10724          
      SUBROUTINE OPTIM(MATRIK,LL)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

-INC SMMATRIK

      SEGACT MATRIK*MOD
      PMORS=IRIGEL(5,LL)
      IZA=IRIGEL(6,LL)
      SEGACT PMORS
      SEGACT IZA

      NTT=IA(/1)-1
      NJA=JA(/1)
      NBVA=NJA
      SEGINI PMS1,IZA1

      M=0
      MM=0
      II=0
      PMS1.IA(1)=1
      DO I=1,NTT
         LI=IA(I)
         NB=IA(I+1)-IA(I)

         DO J=1,NB
            M=M+1
            MM=MM+1
            IDUA=JA(LI+J-1)
            PMS1.JA(MM)=IDUA

            IF (A(M).EQ.(0.0)) THEN
               MM=MM-1
            ELSE
               IZA1.A(MM)=A(M)
            END IF
         END DO
         PMS1.IA(I+1)=MM+1
      END DO

      NBVA=MM
      NJA=MM
      SEGADJ IZA1

      SEGDES PMS1,IZA1
      SEGSUP PMORS,IZA
      IRIGEL(5,LL)=PMS1
      IRIGEL(6,LL)=IZA1
      SEGDES MATRIK
      END