Télécharger la plaquette Cast3M


fr en

Télécharger j3redu.eso

Retour à la liste

Numérotation des lignes : 

j3redu

  1. C J3REDU    SOURCE    CHAT      05/01/13    00:47:20     5004
  2.       SUBROUTINE J3REDU(WWORK)
  3. C----------------------------------------------------
  4. C     REDUCTION DU NOMBRE DE TROU DANS WWORK
  5. C
  6. C     PP 6/97 refaite 12/98
  7. C     Pierre Pegon/JRC Ispra
  8. C----------------------------------------------------
  9.       IMPLICIT INTEGER(I-N)
  10. -INC PPARAM
  11. -INC CCOPTIO
  12.       SEGMENT WWORK
  13.         REAL*8 PORIG(3),VNORM(3),VI(3),VJ(3)
  14.         INTEGER FWORK
  15.         INTEGER TWORK(NTROU)
  16.       ENDSEGMENT
  17. C
  18.       NTROU1=TWORK(/1)
  19. C
  20.       I1=0
  21.       NTROU=NTROU1
  22.       DO IE1=1,NTROU1
  23.         IF(TWORK(IE1).EQ.0)THEN
  24.           NTROU=NTROU-1
  25.         ELSE
  26.           I1=I1+1
  27.           IDUM=TWORK(IE1)
  28.           TWORK(IE1)=TWORK(I1)
  29.           TWORK(I1)=IDUM
  30.         ENDIF
  31.       ENDDO
  32.       IF(NTROU.LT.NTROU1)THEN
  33.         SEGADJ,WWORK
  34.       ENDIF
  35. C
  36.       RETURN
  37.       END
  38.  
  39.  
  40.  

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