c ===================================================== subroutine combl() c ===================================================== c c Create and initialize application specific common-blocks. c c Copyright (C) 2002 Ralf Deiterding c Brandenburgische Universitaet Cottbus c implicit double precision (a-h,o-z) c include "cuser.i" character *16 cwork parameter( lmechout = 13 ) Wref = 1.d6 a2ref = 1.d3 c Air gamma = 1.4d0 gamma1 = 0.4d0 pi = 4.d0*atan(1.d0) Wk = 29.08d-3/Wref cwork= 'AIR' RU = 0.83140000E+01/(Wref*a2ref) PA = 0.10132500E+06/a2ref c open(unit=lmechout, status='unknown', form='formatted', & file='chem.dat') write (lmechout,400) RU write (lmechout,401) PA write (lmechout,402) gamma write (lmechout,403) cwork write (lmechout,404) Wk close (lmechout) c 400 format('RU ',e16.8) 401 format('PA ',e16.8) 402 format('Gamma ',e16.8) 403 format('Sp ',a16) 404 format('W ',e16.8) c return end