      SUBROUTINE UNT(UM,IA,PRT)
      DIMENSION UMT(25),UC(25),DN25(18),MNE(34),IK(25)  
      CHARACTER*2 UM,UMT
      CHARACTER*6 MNE   
      DATA UMT/'AT','BR','CM','DF','FT','SF','GM','HR','IN',
     $ 'KT', 'LB','MT','PM','M3','MH','MB','OZ','SC','TM',  
     $ 'TN','GL', 'LT','ML','PT','QT'/  
      DATA UC/760.,750.,.01,1.,.3048,.0929,1000.,60.,.0254, 
     $ .5148, 4.53592E5,3.281,.01667,.001,.447,.75,28349.5, 
     $ .01667, 1.E9,9.0718E8,3.785E6,1.E6,1000.,4.732E5,
     $ 9.464E5/ 
      DATA DN25/1.0887,1.0083,1.268,.687,1.37,1.18,1.073,   
     $ 1.0222,1.12765,1.09,1.24,1.66,1.89,1.011,.7914,  
     $ .51,1.65,0./ 
      DATA MNE/'   ATM','   BAR','    CM',' DEG F','    FT',
     $ ' SQ FT','    GM','    HR','    IN','    KT','    LB'
     $,'     M',' M/MIN','C M/MN',' MI/HR','    MB','    OZ'
     $,'   SEC','TON(M)','   TON','   GAL','     L','    ML'
     $,'    PT','    QT','MM HG','DEG C','SQ M','MG','MIN', 
     $'M/SEC','L/MIN','M', 'FT'/
      DATA IK/26,26,33,27,33,28,29,30,33,31,29,34,31,32,31, 
     $ 26,29,30,7*29/   
   15 DO 1 IC=1,25
      IF (UM.EQ.UMT(IC)) GO TO 2
    1 CONTINUE  
      WRITE(*,6)
    6 FORMAT (' UNIT CODES')
      DO 9 I=1,5
    9 WRITE(*,10) (MNE(II),UMT(II),II=I,25,5)   
   10 FORMAT (1X,5(A6,'=',A2,3X))   
      UM='ND'   
      RETURN
    2 PRT=PRT*UC(IC)
      IF (IC.EQ.4) PRT=(PRT-32)/1.8 
      IF (IC.LT.21) GO TO 8 
      IF (IA.LT.18) GO TO 3 
      WRITE(*,4)
    4 FORMAT (' INPUT: AGENT DENSITY')  
      READ(*,*) DN25(18)
    3 PRT=PRT*DN25(IA)  
    8 IO=IK(IC) 
      WRITE(*,7) MNE(IC),MNE(IO),PRT
    7 FORMAT (1X,A6,' TO ',A5,E9.3)
   14 RETURN
      END
