psmile_get_varsize.c

Go to the documentation of this file.

/* --------------------------------------------------------------- */
/* Copyright 2006-2010, NEC Europe Ltd., London, UK. */
/* All rights reserved. Use is subject to OASIS4 license terms. */
/* --------------------------------------------------------------- */

/*================================================================

  $Id: psmile_get_varsize.c 2325 2010-04-21 15:00:07Z valcke $

  Author : Hubert Ritzdorf
           NEC Europe Ltd.
           C&C Research Laboratories
           Rathausallee 10
           D-53757 Sankt Augustin
           Germany

           E-mail: ritzdorf@ccrl-nece.de

  ================================================================ */

#include <stdio.h>
#include <stddef.h>
#include "PSMILe_f2c.h"

/*

//BOP
 
! !ROUTINE: psmile_get_varsize
 
  !INTERFACE:

*/

#ifdef ANSI_C

   void psmile_get_varsize (void *p1, void *p2, INTEGER *diff)

#else

   void psmile_get_varsize ( p1, p2, diff )
   void *p1, *p2;
   INTEGER *diff;

#endif

/*

  !INPUT PARAMETERS:

      void, Intent (In)               :: p1 (*)
      void, Intent (In)               :: p1 (*)

  !OUTPUT PARAMETERS:

      Integer, Intent (Out)           :: diff

  !DESCRIPTION:

  Get Size of Variables

  Routine "psmile_get_varsize" returns the difference between
  two pointers and is used to determine the size of variables.

  \underline{The calling sequence:}

  p1 = Pointer\\
  p2 = Pointer

  returns diff = p2 - p1

 
  !FILES USED:

         <stdio.h>
         <stddef.h>
         "PSMILe_f2c.h"

  !REVISION HISTORY:

    Date      Programmer   Description
  ----------  ----------   -----------
  06.07.03    H. Ritzdorf  created
 
//EOP

 ----------------------------------------------------------------------
  $Id
  $Author
 ---------------------------------------------------------------------- */

{
   *diff = (INTEGER) ((char *) p2 - (char *) p1);
   return;
}