C -*- Fortran -*-
C
C Package:     Tracing
C Module:      getDipoleNum
C 
C Description: fortran interface to get number of dipoles
C
C Implimentation:
C     <Notes on implimentation>
C
C Author:      Martin Lohner
C Created:     June 26, 1997

C -----------------------------------------------------------------------

#ifdef AIX
      function get_dipole_num()
#else
      function get_dipole_num
#endif
      integer get_dipole_num

C -----------------------------------------------------------------------
C   return number of Dipoles from common block
C -----------------------------------------------------------------------

#include "dipole.inc"

c --------------- calling parameters ---------------------------

c ---------------- local variables -----------------------------

c -------------------- code ------------------------------------

c fill info from common blocks
      get_dipole_num = dip_num

c report success
      return

      end


c ======================================================================
c Questions, suggestions -- get on line 1!
c
c $Id$
c $Log$
c Revision 1.1  2000/06/19 19:59:34  eugenio
c Initial revision
c
c Revision 1.3  1998/07/10 23:49:16  bphyslib
c AIX is hopelessly wierd
c
c Revision 1.2  1998/07/10  22:52:38  bphyslib
c integer functions with no calling arguments
c need to be defined in 2 lines (function x, integer x)
c
c Revision 1.1  1997/07/03  03:34:01  mkl
c new approach: surfaces vs volumes; box tracing
c
c