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=100) :: redis_host,redis_password, sim_id, temp
    integer :: redis_port, log_level, status,stepTime
    ! Variables

    ! Body of SimulationCore2
    ! print *, 'Hello World'
    ! call read_variables()
    if(command_argument_count()/=6) then
        print *, "Simulator Program must have 6 parameter: redis_host,redisPort,redis_password, sim_id,log_level"
        stop
    endif
    call get_command_argument(1, redis_host)
    call get_command_argument(2, temp)
    read(temp,*,iostat=status)  redis_port
    call get_command_argument(3, redis_password)
    call get_command_argument(4, sim_id)
    call get_command_argument(5, temp)
    read(temp,*,iostat=status)  log_level
    call get_command_argument(6, temp)
    read(temp,*,iostat=status)  stepTime

    call simulate(trim(redis_host),redis_port,trim(redis_password), trim(sim_id),log_level,stepTime)
end program SimulationCore2