use warnings;
use DBI;
use Math::Trig qw(tan sec csc cot asin acos atan asec acsc acot sinh cosh tanh sech csch coth asinh acosh atanh asech acsch acoth);
use Math::MatrixReal;

package FRAG_LIB;

use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(RadToDegree);
our @EXPORT_OK = qw();

sub RadToDegree()
    {
    return (($_[0] * 180)/ Math::Trig->pi());    
    }