examples/smpi/NAS/BT/btio_common.f

   1 c---------------------------------------------------------------------
   2 c---------------------------------------------------------------------
   3
   4       subroutine clear_timestep
   5
   6 c---------------------------------------------------------------------
   7 c---------------------------------------------------------------------
   8
   9       include 'header.h'
  10       include 'mpinpb.h'
  11
  12       integer cio, kio, jio, ix
  13
  14       do cio=1,ncells
  15           do kio=0, cell_size(3,cio)-1
  16               do jio=0, cell_size(2,cio)-1
  17                   do ix=0,cell_size(1,cio)-1
  18                             u(1,ix, jio,kio,cio) = 0
  19                             u(2,ix, jio,kio,cio) = 0
  20                             u(3,ix, jio,kio,cio) = 0
  21                             u(4,ix, jio,kio,cio) = 0
  22                             u(5,ix, jio,kio,cio) = 0
  23                   enddo
  24               enddo
  25           enddo
  26       enddo
  27
  28       return
  29       end
  30