#!/usr/bin/env ./gs

! fourier.sad child for scan-fit.sad
! k.furukawa, may.28.2003.
! k.furukawa, sep.7.2006.  sub-process separation
! k.furukawa, sep.18.2006. repeat forever

FFS;

Print["%%%READY%%%"];

While[1,
	!aData=Read[$Input];
	aData=Read[5];
	str=Read[5,String];
	Print["%% "//str];
	xave=(Plus@@aData[[,2]])/Length[aData[[,2]]];
	nx=aData[[,2]]-xave;
	dt=(aData[[-1,1]]-aData[[1,1]])/(Length[aData[[,2]]]-1);
	fx=Fourier[nx];
	power=Abs[fx]^2;

	Print["%%%BEGIN%%%"]; Print[power]; Print["%%%END%%%"];
];
Exit[];

! End of File