#!/usr/bin/perl # NEEDED TO MAKE USE OF READPARSE ROUTINE print "Content-type: text/html\n\n"; print " \n"; print " \n"; print " \n"; print "

\n"; print "

A NEW IMPROVED Cosmology Calculator

\n"; print "

\n"; print "Enter fundamental cosmological parameters and get back \n"; print "useful physical parameters about objects in the distant universe. \n"; print "

\n"; print " Note: all fields must be filled in for this form to work; \n"; print "

\n"; print "

Inputs:

\n"; print "Redshift (z): Enter a comma separated list of up to 20 values, z=0--10
\n"; print "
\n"; print "H₀ : \n"; print "Omega_Matter : \n"; print "Omega_Lambda : \n"; print "Luminosity (erg/s or similar) :

"; print "

\n"; print "

Outputs:

\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "

Age of Universe at z

Lookback time to z (yrs)

Angular Scale (1\"=x kpc) at z

Surf. Brtness Factor

Obs. Flux (Input Lum/cm^2)

Eff. Dist. Modulus

K correction bandpass term

\n"; print "

\n"; print "
\n"; print "Click on 'Compute' or 'Clear Boxes' to clear the above text boxes and try again.
\n"; print " \n"; print "

\n"; print "

\n"; # NOW CALL THE SUBROUTINE TO GET VARIABLES FROM THE FORM exit(0);