InitializeFunctions Subroutine

  subroutine InitializeFunctions()
    if(isInitialized .eqv. .true.) return

    Functions(cos_function) = Tuple("cos","COS")
    Functions(cos_function)%ptr32 => cos32
    Functions(cos_function)%ptr64 => cos64

    Functions(cosh_function) = Tuple("cosh","COSH")
    Functions(cosh_function)%ptr32 => cosh32
    Functions(cosh_function)%ptr64 => cosh64

    Functions(sin_function) = Tuple("sin","SIN")
    Functions(sin_function)%ptr32 => sin32
    Functions(sin_function)%ptr64 => sin64

    Functions(sinh_function) = Tuple("sinh","SINH")
    Functions(sinh_function)%ptr32 => sinh32
    Functions(sinh_function)%ptr64 => sinh64

    Functions(tan_function) = Tuple("tan","TAN")
    Functions(tan_function)%ptr32 => tan32
    Functions(tan_function)%ptr64 => tan64

    Functions(tanh_function) = Tuple("tanh","TANH")
    Functions(tanh_function)%ptr32 => tanh32
    Functions(tanh_function)%ptr64 => tanh64

    Functions(sqrt_function) = Tuple("sqrt","SQRT")
    Functions(sqrt_function)%ptr32 => sqrt32
    Functions(sqrt_function)%ptr64 => sqrt64

    Functions(abs_function) = Tuple("abs","ABS")
    Functions(abs_function)%ptr32 => abs32
    Functions(abs_function)%ptr64 => abs64

    Functions(exp_function) = Tuple("exp","EXP")
    Functions(exp_function)%ptr32 => exp32
    Functions(exp_function)%ptr64 => exp64

    Functions(ln_function) = Tuple("ln","LN")
    Functions(ln_function)%ptr32 => log32
    Functions(ln_function)%ptr64 => log64

    Functions(log_function) = Tuple("log","LOG")
    Functions(log_function)%ptr32 => log32
    Functions(log_function)%ptr64 => log64

    Functions(log10_function) = Tuple("log10","LOG10")
    Functions(log10_function)%ptr32 => log1032
    Functions(log10_function)%ptr64 => log1064

    Functions(acos_function) = Tuple("acos","ACOS")
    Functions(acos_function)%ptr32 => acos32
    Functions(acos_function)%ptr64 => acos64

    Functions(asin_function) = Tuple("asin","ASIN")
    Functions(asin_function)%ptr32 => asin32
    Functions(asin_function)%ptr64 => asin64

    Functions(atan_function) = Tuple("atan","ATAN")
    Functions(atan_function)%ptr32 => atan32
    Functions(atan_function)%ptr64 => atan64

    Functions(sech_function) = Tuple("sech","SECH")
    Functions(sech_function)%ptr32 => sech32
    Functions(sech_function)%ptr64 => sech64

    Functions(rand_function) = Tuple("rand","RAND")
    Functions(rand_function)%ptr32 => rand32
    Functions(rand_function)%ptr64 => rand64

    isInitialized = .true.
  endsubroutine InitializeFunctions