... Apply filter function ; fft_filter, template , dw, g_cen, g_sig, tempfilt COMMON fitsblock COMMON procblock COMMON xcorblock, ccfx, ccfy , ccf2y, ccf2n, nccf , afits, efits, template COMMON colorblock ;; Announce programme and options print, 'XCORRELATE, star , gplot' print print, 'Cross-correlate a series of spectra with a template ' print IF ( star eq 0) THEN $ print, ' star =', star , '; template = mean spectrum' IF ( ...

program RK1; (* A simple program in Pascal for Runge-Kutta's method for a first order differential equation. dy/dx = x^2 + sin (xy) y(1) = 2 *) var number , i : integer; h, k1, k2, k3, k4, x, y : real ; function f(x,y : real ) : real ; begin f := x*x + sin (x*y) end ; begin number := 1; while number 0 do begin x := 1.0; y := 2.0; writeln (' Give the number of steps '); read ( ...