SUBROUTINE gm_dims_create ( nbdims, jdims, nbthd, ierr )
      IMPLICIT NONE
      INTEGER,                        INTENT(IN)     ::  nbthd
      INTEGER,                        INTENT(IN)     ::  nbdims
      INTEGER,  DIMENSION(1:nbdims),  INTENT(INOUT)  ::  jdims
      INTEGER,                        INTENT(OUT)    ::  ierr
      END SUBROUTINE gm_dims_create