J=10
      DO 10 I=1,12,2
      DO 10 K=1,4,2
      J=J+I+K
   10 CONTINUE
      WRITE(6,100)J
  100 FORMAT(1H ,I6)
      END