main :: IO ()
main = main3d
-
main3d :: IO ()
main3d = do
(s:_) <- getArgs
let arrMRI = R.reshape mri_shape arr'
let dbl_data = R.force $ R.map fromIntegral arrMRI
let output = zoom dbl_data zoom_factor
- let word16_output = bracket_array output
+ let word16_output = round_array output
write_word16s out_file word16_output