program f032
      write(6,10)
  10  format(1h ,'f032 passed')
      stop
      end
      SUBROUTINE DT03(KZ)
      INTEGER*4 STNME(20)
      INTEGER*2 REMSFT(10)
      DO 613 I=1,2
      DO 614 J=1,2
      WRITE (6,*)(STNME(REMSFT(J)*2+L),L=1,2)
  614 CONTINUE
  613 CONTINUE
      RETURN
      END