implicit none
      integer rpar(33),i
      
      do i=1,33
        rpar(i)=i
      end do
      
      write(*,900),'Model Parameters: '
      write(*,900),'Column length :',int(RPAR(2)),' m'
      write(*,900),'Mass transfer coeff N2 :',int(RPAR(3)),' 1/s'
      write(*,900),'Mass transfer coeff O2 :',int(RPAR(4)),' 1/s'
      write(*,910),'Saturation constants :',real(RPAR(7)),' kg/kgs'
      write(*,900),'Overall heat transfer coeff:',int(RPAR(13)),
     +' J/m2.s.K'
      write(*,900),'Gas heat capacity :',int(RPAR(14)),' J/kg.K'
      write(*,900),'Solid heat capacity :',int(RPAR(15)),' J/kg.K'
      write(*,900),'Temperature ambient :',int(RPAR(16)),' K'
      write(*,900),'Pressure atmospheric :',int(RPAR(29)),' Pa'
      write(*,900),'Pressure feed :',int(RPAR(30)),' Pa'
      write(*,900),'Heat of Adsorption :',int(RPAR(33)),' J/kg'
  900 format (a28,i8,a)
  910 format (a28,f8.2,a)
      end