!****************************************************************************
!*  SCALASCA    http://www.scalasca.org/                                   **
!****************************************************************************
!*  Copyright (c) 1998-2012                                                **
!*  Forschungszentrum Juelich GmbH, Juelich Supercomputing Centre          **
!*                                                                         **
!*  Copyright (c) 2003-2008                                                **
!*  University of Tennessee, Innovative Computing Laboratory               **
!*                                                                         **
!*  See the file COPYRIGHT in the package base directory for details       **
!***************************************************************************/

      subroutine elgf_cart_create(dim0, dim1, dim2, 
     &       period0, period1, period2 ) 
        
      implicit none

      integer*4 dim0, dim1, dim2
      integer*4 period0, period1, period2

      call f_elg_cart_create(dim0, dim1, dim2, 
     &        period0, period1, period2)

      end


      subroutine elgf_cart_coords(coord0, coord1, coord2) 
        
      implicit none

      integer*4 coord0, coord1, coord2

      call f_elg_cart_coords(coord0, coord1, coord2) 
     
      end
