#include <stdio.h>
#include "localdefs_not_CVS.h"


static char  *base;



	/***************************************************************
	 * set_base:
	 ***************************************************************/
int   FORTRAN_SUBROUTINE(set_base)(
    void  *baseAddr
   )
   {
    base = (char *)baseAddr;
    return;
   }



	/**************************************************************
	 * display_offset:
	 **************************************************************/
int   FORTRAN_SUBROUTINE(display_offset)(
    void  *addr
   )
   {
    printf("%d\n",(char *)addr - base);
    return;
   }