program doubledice use usegenplot implicit none end program