module coordinates
!--------------------------------------------------------------------
!--------------------------------------------------------------------

use types
use coord_param

      type COORDS
      integer(I4B)                               ::  n_coord
      real(SP), pointer, dimension(:)            ::  coord
      end type COORDS

end module coordinates
















