FUNCTION :  fpart - fractional part                                     

CALLING SEQUENCE :  fpart(r)                                                
                    

PARAMETERS :      r  - real number             

SYNOPSIS :  fpart(r) returns the fractional part of r.                
            Used in the defintion of QP2 

EXAMPLES :   


> fpart(Pi);
                                    Pi - 3

> fpart(3.5);
                                      0.5

SEE ALSO :  

QP2