! 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