RosettaCodeData/Task/Deconvolution-1D/Fortran/deconvolution-1d-2.f

3 lines
110 B
FortranFixed
Raw Permalink Normal View History

2013-04-10 16:57:12 -07:00
deconv(f, g) = -8, -9, -3, -1, -6, 7
deconv(h, g) = -3, -6, -1, 8, -6, 3, -1, -9, -9, 3, -2, 5, 2, -2, -7, -1