module m_parameters

  implicit none

     integer :: nxp,nyp,nzp

     real :: hxp,hyp,hzp

     real :: l_0

     integer :: startnum,endnum,skipnum,shiftnum

     real :: scp,prp,lep,vis0p,rod

     real :: prof_wr,min_wr,min_fsd,min_c,refwr

     real :: pre,ac,bc,c_cut,c_ref

     integer :: syp,eyp,twod

     real :: SL_u

     real, parameter :: pi=3.14159265358979323846

     real, parameter :: me=1.00e-20

     real :: absolute_tolerence=1e-8

     REAL :: hx,dt,vis,sc,diff,tf,t_now,t_uf,dt_uf

     REAL :: lewis

     REAL :: minf,tar_lo,u0,ctmp,lo_flm=0.

     REAL :: er_lof=0., erdot=0.

     REAL :: pflame,pflold,oldu

     INTEGER :: ncyc=0,int_pr,nx

     LOGICAL :: read_itape, read_stdin

     CHARACTER(100) :: itape_name

contains

     SUBROUTINE READ_INTRO
       CHARACTER(LEN=8) :: cdum
       INTEGER :: itape=300,otape=301
       INTEGER :: i

       IF (read_stdin) THEN
         itape=5
       ELSE
         OPEN(itape,FILE=itape_name)
       END IF

       OPEN(otape,FILE='otape')
        READ(itape,*) cdum,nx
        WRITE(otape,*) cdum,nx
        READ(itape,*) cdum,l_0
        WRITE(otape,*) cdum,l_0
        READ(itape,*) cdum,int_pr
        WRITE(otape,*) cdum,int_pr
        READ(itape,*) cdum,tar_lo
        WRITE(otape,*) cdum,tar_lo
        READ(itape,*) cdum,dt
        WRITE(otape,*) cdum,dt
        READ(itape,*) cdum,sc
        WRITE(otape,*) cdum,sc
        READ(itape,*) cdum,vis
        WRITE(otape,*) cdum,vis
        READ(itape,*) cdum,pre
        WRITE(otape,*) cdum,pre
        READ(itape,*) cdum,ac
        WRITE(otape,*) cdum,ac
        READ(itape,*) cdum,bc
        WRITE(otape,*) cdum,bc
        READ(itape,*) cdum,u0
        WRITE(otape,*) cdum,u0
        READ(itape,*) cdum,tf
        WRITE(otape,*) cdum,tf
        READ(itape,*) cdum,dt_uf
        WRITE(otape,*) cdum,dt_uf
        READ(itape,*) cdum,ctmp
        WRITE(otape,*) cdum,ctmp
        READ(itape,*) cdum,c_cut
        WRITE(otape,*) cdum,c_cut
!        READ(itape,*) cdum,cs
!        WRITE(otape,*) cdum,cs
        READ(itape,*) cdum,c_ref
        WRITE(otape,*) cdum,c_ref
        READ(itape,*) cdum,min_wr
        WRITE(otape,*) cdum,min_wr
        READ(itape,*) cdum,prof_wr
        WRITE(otape,*) cdum,prof_wr
        READ(itape,*) cdum,lewis
        WRITE(otape,*) cdum,lewis

       IF (.not.read_stdin) THEN
         CLOSE(itape)
       END IF

       l_0=l_0*pi

       hx=l_0/REAL(nx)
       cdum='hx'
       WRITE(otape,*) cdum,hx
       cdum='Ta/Tu'
       WRITE(otape,*) cdum,ac
       cdum='Tb/Tu'
       WRITE(otape,*) cdum,bc+1
       diff=vis/sc
       cdum='diff'
       WRITE(otape,*) cdum,diff

       refwr=pre*1.*exp(-ac/(1.+bc*c_ref))

     END SUBROUTINE READ_INTRO

end module m_parameters