#!/usr/bin/perl # NEEDED TO MAKE USE OF READPARSE ROUTINE print "Content-type: text/html\n\n"; print "<HTML> \n"; print "<HEAD><TITLE></TITLE></HEAD> \n"; print "<BODY> \n"; print "<FORM ACTION=\"cosmo1.cgi\" METHOD=GET> \n"; print "<CENTER><h1>A NEW IMPROVED Cosmology Calculator</h1></CENTER> \n"; print "<CENTER><h2></h2></CENTER> \n"; print "<p> \n"; print "Enter fundamental cosmological parameters and get back \n"; print "useful physical parameters about objects in the distant universe. \n"; print "<P> \n"; print "<B> Note: all fields must be filled in for this form to work; </B> \n"; print "<HR><BR> \n"; print "<h3> Inputs:</h3> \n"; print "Redshift (z): Enter a comma separated list of up to 20 values, z=0--10 <br> \n"; print "<INPUT NAME=\"z\" TYPE=\"text\" SIZE=\"60\"> <br> \n"; print "H<sub>0</sub> : <INPUT NAME=\"H0\" TYPE=\"text\" SIZE=\"4\"> \n"; print "Omega<sub>Matter</sub> : <INPUT NAME=\"OM\" TYPE=\"text\" SIZE=\"4\"> \n"; print "Omega<sub>Lambda</sub> : <INPUT NAME=\"OL\" TYPE=\"text\" SIZE=\"4\"> \n"; print "Luminosity (erg/s or similar) :<INPUT NAME=\"Lum\" TYPE=\"text\" SIZE=\"10\"> <p>"; print "<p> \n"; print "<h3> Outputs:</h3> \n"; print "<TABLE BORDER=0 CELLSPACING=4 CELLPADDING=4 > \n"; print "<tr > \n"; print "<td>Age of Universe at z </td> <td>Lookback time to z (yrs) </td> <td> Angular Scale (1\"=x kpc) at z </td> <td> Surf. Brtness Factor</td> <td> Obs. Flux (Input Lum/cm^2)</td> <td> Eff. Dist. Modulus</td> </td> <td> K correction bandpass term</td> \n"; print "</tr> \n"; print "<tr> \n"; print "</tr> \n"; print "</Table> \n"; print "<p> \n"; print "<HR> \n"; print "<INPUT TYPE=\"hidden\" NAME=\"_show\" VALUE=\"true\"> <BR> \n"; print "Click on 'Compute' or 'Clear Boxes' to clear the above text boxes and try again.<br> \n"; print "<INPUT TYPE=\"submit\" VALUE=\"Compute\"> \n"; print "<INPUT TYPE=\"reset\" VALUE=\"Clear Boxes\"><P> \n"; print "<HR> \n"; print "</FORM> </BODY> \n"; # NOW CALL THE SUBROUTINE TO GET VARIABLES FROM THE FORM exit(0);