Please enter a Fm
\n"; } ?>
 


Fmrev = Fm x [ ( 1 + 0.001 x δ13Corig ) / ( 1 + 0.001 x δ13Cnew ) ] 2

Fmrev = Revised Fraction Modern
δ13Corig = Original δ13C value used to correct Fm
δ13Cnew = New correction for revised Fraction Modern

\n"; print " \n"; printf (" \n"; print " \n"; } ?>
Enter the following in all fields:
Fmrev: %6.4f\n",$FMA); print "
Fm: >
δ13C: >
δ13Cnew: >