REAL FUNCTION addfloat( A, B )
      IMPLICIT NONE
      REAL :: A, B
      
      addfloat = A + B

END FUNCTION addfloat

DOUBLE PRECISION FUNCTION adddouble( A, B )
      IMPLICIT NONE
      DOUBLE PRECISION :: A, B
      
      adddouble = A + B

END FUNCTION adddouble
