PROGRAM TEST111
  IMPLICIT NONE
 
  INTEGER :: MN(35,13),I,J, RJ(35)
  INTEGER :: NODES,IDBC,JSB,MMSXI,IDJSB,NRND,NNSZET,I1,NN,IDJSB1
 
  NODES=35
  JSB=7
  MMSXI=5
  NNSZET=7
  MN=7
  RJ=6
  DO I=1,35
     WRITE(*,*), RJ(I)
  END DO      
  PRINT *, "#####################################################"
  DO 200 IDBC=1,NODES
           DO 140 NN=2,NNSZET-2 
         IF(IDBC.EQ.(NN*MMSXI).OR.IDBC.EQ.(NN*MMSXI+1)) THEN
      DO 120 NRND=1,2*JSB-1
         MN(IDBC,NRND)=0
               IDJSB=IDBC+JSB
         DO 150 I=IDBC-JSB-1,IDBC+JSB-1
                   MN(I,IDJSB-I)=0
  150          CONTINUE            
  120       CONTINUE
         MN(IDBC,JSB)=1
         RJ(IDBC)=4
      END IF
  140    CONTINUE     
        ! END IF
     
  200 CONTINUE  
  DO I=1,35   
     WRITE(*, '(1X,13I5)')MN(I,1), MN(I,2), MN(I,3), MN(I,4), MN(I,5), MN(I,6), MN(I,7), MN(I,8), MN(I,9), MN(I,10), MN(I,11), MN(I,12), MN(I,13)  
  END DO
  DO I=1,35
     WRITE(*,*), RJ(I)
  END DO      
END PROGRAM TEST111

*********************************
程序如上，为什么运行后，RJ中有的值为零？求各位大神解答！！！