Calling CEESSLOG in C and C++

Figure 1. C/C++ call to CEESSLOG — Logarithm base e

/*Module/File Name:  EDCMATH  */
/**********************************************************/
/*                                                        */
/* This routine demonstrates calling the math service     */
/* CEESSLOG in C/370                                      */
/**********************************************************/

#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <leawi.h>
#include <ceeedcct.h>

int main (void) {

  float int1, intr;

  _FEEDBACK fc;

  int1 = 39;
  CEESSLOG(&int1,&fc,&intr);
  if ( _FBCHECK ( fc , CEE000 ) != 0 )
  {
     printf("CEESSLOG failed with message number %d\n",
            fc.tok_msgno);
     exit(2999);
  }

  printf("Log base e of %f is %f\n",int1,intr);
}