      SUBROUTINE NPTEMP
C     DO-NOTHING TEMPERATURE PERTURBATION MODEL

      implicit double precision (a-h,o-z)

C     COMMON DECK "TT" INSERTED HERE
      DOUBLE PRECISION MODT
      COMMON/TT/MODT(4), T,PTT,PTR,PTTH,PTPH
C     COMMON DECK "WW" INSERTED HERE
      PARAMETER (NWARSZ=1000)
      COMMON/WW/dum(10), MAXW,W(NWARSZ)
C
C     DELTA TEMPERATURE    225-249
      EQUIVALENCE (W(226),DTFORM)
C
C
C     COMMON DECK "B6" INSERTED HERE
      INTEGER DTMX,DTNTBL,DTITBL,DTFRMTB,IDSDT(10)
      COMMON/B6/DTMX,DTNTBL(10),DTITBL(10),DTFRMTB(10),DTGP(10)
      EQUIVALENCE (DTGP,IDSDT)
C
      INTEGER DWMX ,DWNTBL(10),DWITBL(10),DWFRMTB(10)
C
      DATA DWMX/1/
      DATA DWNTBL/1,11,8*0/
      DATA DWITBL/1,9*0/
      DATA DWFRMTB/1,9*0/
C
C
      ENTRY SETPTMP
C
      DTMX=DWMX
      CALL IMOVE(DTNTBL,DWNTBL,10)
      CALL IMOVE(DTITBL,DWITBL,10)
      CALL IMOVE(DTFRMTB,DWFRMTB,10)
C
      RETURN
C
      ENTRY IPTEMP
      IF(W(225) .NE. 0.0) THEN
           PRINT*,' Model check number mismatch: '
           STOP ' W(225) should be 0 if you are using NPTEMP'
      ENDIF
C
      MODT(3)=6HNPTEMP
      MODT(4)=W(227)
      RETURN
C
      ENTRY PTEMP
      RETURN

c	ENTRY SETPTMP
C      DTMX=DFMX 
C      CALL IMOVE(DTNTBL,DFNTBL,10)
C      CALL IMOVE(DTITBL,DFITBL,10)
C      CALL IMOVE(DTFRMTB,DFFRMTB,10)
c      RETURN

      END
