SimulationCore2/SimulationCore2.f90

!  SimulationCore2.f90 
!
!  FUNCTIONS:
!  SimulationCore2 - Entry point of console application.
!
!****************************************************************************
!
!  PROGRAM: SimulationCore2
!
!  PURPOSE:  Entry point for the console application.
!
!****************************************************************************

program SimulationCore2
    
    use Simulator
    use RedisInterface
    !use testRedisModule   
    implicit none
    character(len=50)::configFilename = "config-local.json"
    ! Variables

    ! Body of SimulationCore2
    ! print *, 'Hello World'
    ! call read_variables()
    if(command_argument_count()>0) then
        call get_command_argument(1, configFilename)
    endif
    ! print *,"config-file at SimCore= ",configFilename
    ! call initSimulation()
    call simulate(configFilename)
    ! Initialise the json_file object.
    ! call testRedis()
    ! pause
end program SimulationCore2