SUBROUTINE gm_coords_create (nbdims,  dims,  coords )
      IMPLICIT NONE
      INTEGER,                        INTENT(IN)   ::  nbdims
      INTEGER,  DIMENSION(1:nbdims),  INTENT(IN)   ::  dims
      INTEGER,  DIMENSION(1:nbdims),  INTENT(OUT)  ::  coords
      END SUBROUTINE gm_coords_create