Esope source files

   1 : C OPTIM     SOURCE    MAGN      09/07/30    21:19:44     6458           
   2 :       SUBROUTINE OPTIM(MATRIK,LL)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : 
   6 : -INC SMMATRIK
   7 : 
   8 :       SEGACT MATRIK*MOD
   9 :       PMORS=IRIGEL(5,LL)
  10 :       IZA=IRIGEL(6,LL)
  11 :       SEGACT PMORS
  12 :       SEGACT IZA
  13 : 
  14 :       NTT=IA(/1)-1
  15 :       NJA=JA(/1)
  16 :       NBVA=NJA
  17 :       SEGINI PMS1,IZA1
  18 : 
  19 :       M=0
  20 :       MM=0
  21 :       II=0
  22 :       PMS1.IA(1)=1
  23 :       DO I=1,NTT
  24 :          LI=IA(I)
  25 :          NB=IA(I+1)-IA(I)
  26 : 
  27 :          DO J=1,NB
  28 :             M=M+1
  29 :             MM=MM+1
  30 :             IDUA=JA(LI+J-1)
  31 :             PMS1.JA(MM)=IDUA
  32 :             
  33 :             IF (A(M).EQ.(0.0)) THEN
  34 :                MM=MM-1
  35 :             ELSE
  36 :                IZA1.A(MM)=A(M)
  37 :             END IF
  38 :          END DO
  39 :          PMS1.IA(I+1)=MM+1
  40 :       END DO
  41 : 
  42 :       NBVA=MM
  43 :       NJA=MM
  44 :       SEGADJ IZA1
  45 : 
  46 :       SEGDES PMS1,IZA1
  47 :       SEGSUP PMORS,IZA
  48 :       IRIGEL(5,LL)=PMS1
  49 :       IRIGEL(6,LL)=IZA1
  50 :       SEGDES MATRIK
  51 :       END
  52 :  
  53 :  
  54 :