C J3REDU SOURCE CHAT 05/01/13 00:47:20 5004 SUBROUTINE J3REDU(WWORK) C---------------------------------------------------- C REDUCTION DU NOMBRE DE TROU DANS WWORK C C PP 6/97 refaite 12/98 C Pierre Pegon/JRC Ispra C---------------------------------------------------- IMPLICIT INTEGER(I-N) -INC PPARAM -INC CCOPTIO SEGMENT WWORK REAL*8 PORIG(3),VNORM(3),VI(3),VJ(3) INTEGER FWORK INTEGER TWORK(NTROU) ENDSEGMENT C NTROU1=TWORK(/1) C I1=0 NTROU=NTROU1 DO IE1=1,NTROU1 IF(TWORK(IE1).EQ.0)THEN NTROU=NTROU-1 ELSE I1=I1+1 IDUM=TWORK(IE1) TWORK(IE1)=TWORK(I1) TWORK(I1)=IDUM ENDIF ENDDO IF(NTROU.LT.NTROU1)THEN SEGADJ,WWORK ENDIF C RETURN END