examples/smpi/NAS/BT/btio.f

   1
   2 c---------------------------------------------------------------------
   3 c---------------------------------------------------------------------
   4
   5       subroutine setup_btio
   6
   7 c---------------------------------------------------------------------
   8 c---------------------------------------------------------------------
   9
  10       return
  11       end
  12
  13 c---------------------------------------------------------------------
  14 c---------------------------------------------------------------------
  15
  16       subroutine output_timestep
  17
  18 c---------------------------------------------------------------------
  19 c---------------------------------------------------------------------
  20
  21       return
  22       end
  23
  24 c---------------------------------------------------------------------
  25 c---------------------------------------------------------------------
  26
  27       subroutine btio_cleanup
  28
  29 c---------------------------------------------------------------------
  30 c---------------------------------------------------------------------
  31
  32       return
  33       end
  34
  35 c---------------------------------------------------------------------
  36 c---------------------------------------------------------------------
  37
  38       subroutine btio_verify(verified)
  39
  40 c---------------------------------------------------------------------
  41 c---------------------------------------------------------------------
  42
  43       logical verified
  44
  45       verified = .true.
  46
  47       return
  48       end
  49
  50 c---------------------------------------------------------------------
  51 c---------------------------------------------------------------------
  52
  53       subroutine accumulate_norms(xce_acc)
  54
  55 c---------------------------------------------------------------------
  56 c---------------------------------------------------------------------
  57
  58       double precision xce_acc(5)
  59
  60       return
  61       end
  62
  63 c---------------------------------------------------------------------
  64 c---------------------------------------------------------------------
  65
  66       subroutine checksum_timestep
  67
  68 c---------------------------------------------------------------------
  69 c---------------------------------------------------------------------
  70
  71       return
  72       end