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

A Galactic Rotation Curve Calculator

\n"; print "

\n"; print "Version: 1.0 December 2004
\n"; print "Based on the rotation curve of Clemens (1985)
\n"; print "Thanks to Dan Clemens and Ronak Shah for code on which this is based \n"; print "(Assumes Rsun=8.5 kpc, Vsun=220 km/s-- more functionality to be added later) \n"; print "

Inputs:

\n"; print "Galactic Longitude:
\n"; print "LSR Velocity :
\n"; #print "Rsun (usually 8.0 kpc) : \n"; print "

\n"; print "

Outputs:

\n"; print "Distance (near and far) and Galactocentric radius in kpc\n"; print "

\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"; print "
\n"; # NOW CALL THE SUBROUTINE TO GET VARIABLES FROM THE FORM exit(0);