SUBROUTINE RESTMP(DPRES,DT,RTYPES,RSPRES,MTDAT)
C$$$  SUBPROGRAM DOCUMENTATION BLOCK
C                .      .    .                                       .
C SUBPROGRAM:    RESTMP      PRINT TEMPERATURE STATS.
C   PRGMMR: PARRISH          ORG: W/NMC22    DATE: 90-10-11
C
C ABSTRACT: PRINT CONVENTIONAL TEMPERATURE STATS.
C
C PROGRAM HISTORY LOG:
C   90-10-11  PARRISH
C
C   INPUT ARGUMENT LIST:
C     DPRES    - PRES (MB*10+QM IN, GRID COORDS IN SIGMA OUT)
C     DT       - TEMPS IN, RESIDUAL OUT
C     RTYPES   - PREPDA OBSERVATION TYPES
C     PSPRES   - OBSERVATION PRESSURES
C     MTDAT    - NUMBER OF OBSERVATIONS
C
C   OUTPUT ARGUMENT LIST:
C     AS INDICATED ABOVE
C
C ATTRIBUTES:
C   LANGUAGE: CFT77
C   MACHINE:  CRAY YMP
C
C$$$
C--------
      DIMENSION DPRES(MTDAT),DT(MTDAT)
      DIMENSION RTYPES(MTDAT)
      DIMENSION RSPRES(MTDAT)
C--------
C-------- IF OBS. BELOW SURFACE OF MODEL MOVE TO BOTTOM SIGMA
C--------
      DO 60 I=1,MTDAT
        IF(DPRES(I) .LT. 1. )DPRES(I)=1.
60    CONTINUE
C--------
C-------- NOW DO STATISTICS SUMMARY
C--------
      SCALE=1.
      PTOP=800.
      PBOT=900.
      CALL DTAST(RTYPES,DT,SCALE,MTDAT,RSPRES,PBOT,PTOP,
     *  'CURRENT FIT OF 850MB TEMPERATURE DATA, RANGES IN K$')
      PTOP=450.
      PBOT=550.
      CALL DTAST(RTYPES,DT,SCALE,MTDAT,RSPRES,PBOT,PTOP,
     *  'CURRENT FIT OF 500MB TEMPERATURE DATA, RANGES IN K$')
      PTOP=225.
      PBOT=275.
      CALL DTAST(RTYPES,DT,SCALE,MTDAT,RSPRES,PBOT,PTOP,
     *  'CURRENT FIT OF 250MB TEMPERATURE DATA, RANGES IN K$')
      PTOP=75.
      PBOT=125.
      CALL DTAST(RTYPES,DT,SCALE,MTDAT,RSPRES,PBOT,PTOP,
     *  'CURRENT FIT OF 100MB TEMPERATURE DATA, RANGES IN K$')
      PTOP=0.
      PBOT=74.9
      CALL DTAST(RTYPES,DT,SCALE,MTDAT,RSPRES,PBOT,PTOP,
     *  'CURRENT FIT OF  50MB TEMPERATURE DATA, RANGES IN K$')
      PTOP=0.
      PBOT=2000.
      CALL DTAST(RTYPES,DT,SCALE,MTDAT,RSPRES,PBOT,PTOP,
     *  'CURRENT FIT OF ALL TEMPERATURE DATA, RANGES IN K$')
      RETURN
      END