include file: DDEVPICE 2
*IF DEF,A05_2A,OR,DEF,A05_2C,OR,DEF,A05_3B,OR,DEF,A05_3C                   AJX1F405.171    
      REAL ICE_A,ICE_B,ICE_C ! CONSTANTS USED IN QUADRATIC FORMULA         DDEVPICE.3      
                             ! FOR EVAPORATION OF ICE                      DDEVPICE.4      
      PARAMETER ( ICE_A = -5.2E-9, ICE_B = 2.5332E-6, ICE_C = -2.911E-4)   DDEVPICE.5      
C                                                                          DDEVPICE.6      
*ENDIF                                                                     DDEVPICE.7