SimulationCore2/SimulationCore2.i90

# 1 "/home/admin/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 logging
!use testRedisModule
    implicit none
    character(len=100) :: redis_host,redis_password, sim_id, temp
    integer :: redis_port, 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),stepTime)
end program SimulationCore2