PROGRAM MAIN

#include "dyna.inc"
#include "io.inc"
#include "DYNAcomm.inc"
      
      RECORD /Io_Data/ io
      COMMON /Io_Data_Common/ io

      CALL GETCLARGS(io)

      CALL DYNACOMMAND(DYNA_INIT_SIM)
      CALL DYNACOMMAND(DYNA_RUN)
      CALL DYNACOMMAND(DYNA_STATS)
      CALL DYNACOMMAND(DYNA_QUIT)

      END