Télécharger la plaquette Cast3M


fr en

Télécharger optim.eso

Retour à la liste

Numérotation des lignes : 

optim

  1. C OPTIM     SOURCE    PV        20/09/26    21:19:04     10724          
  2.       SUBROUTINE OPTIM(MATRIK,LL)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8 (A-H,O-Z)
  5.  
  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.  
  55.  
  56.  
  57.  
  58.  

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