INCLUDE 'mpif.h'
      INTEGER TYPES(5), DISPLS(5), COUNTS(5), NEWTYPE, LB, UB, EX, SZ
      DATA TYPES/MPI_LB, MPI_UB, MPI_DOUBLE_PRECISION,
     +           MPI_INTEGER, MPI_BYTE/
      DATA DISPLS/-4, 20, 0, 8, 12/, COUNTS/1, 1, 1, 1, 1/
*
      CALL MPI_INIT(IERR)
*
      CALL MPI_TYPE_STRUCT(5, COUNTS, DISPLS, TYPES, NEWTYPE, IERR)
      CALL MPI_TYPE_LB(NEWTYPE, LB, IERR)
      CALL MPI_TYPE_UB(NEWTYPE, UB, IERR)
      CALL MPI_TYPE_SIZE(NEWTYPE, SZ, IERR)
      CALL MPI_TYPE_EXTENT(NEWTYPE, EX, IERR)
      PRINT *, 'LB=', LB, '   UB =', UB, '   EX =', EX, '   SIZE=', SZ
      CALL MPI_TYPE_FREE(NEWTYPE, IERR)
*
      CALL MPI_FINALIZE(IERR)
*
      STOP
      END