genSeismicPulseVector :: Int -> Array U DIM1 Float
genSeismicPulseVector 0 = undefined
genSeismicPulseVector :: Int -> Array U DIM1 Float
genSeismicPulseVector 0 = undefined
genSeismicPulseVector 0 = undefined