Ignore:
Timestamp:
Mar 15, 2019 4:40:25 PM (5 years ago)
Author:
forkel
Message:

added leading blanks to dummy statements

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simplep/chem_gasphase_mod.f90

    r3799 r3800  
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 16:28:28 2019
     116! Time                 : Fri Mar 15 17:37:45 2019
    117117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
     
    199199!
    200200! File                 : chem_gasphase_mod_Global.f90
    201 ! Time                 : Fri Mar 15 16:28:28 2019
     201! Time                 : Fri Mar 15 17:37:45 2019
    202202! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    203203! Equation file        : chem_gasphase_mod.kpp
     
    264264!
    265265! File                 : chem_gasphase_mod_JacobianSP.f90
    266 ! Time                 : Fri Mar 15 16:28:28 2019
     266! Time                 : Fri Mar 15 17:37:45 2019
    267267! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    268268! Equation file        : chem_gasphase_mod.kpp
     
    314314!
    315315! File                 : chem_gasphase_mod_Monitor.f90
    316 ! Time                 : Fri Mar 15 16:28:28 2019
     316! Time                 : Fri Mar 15 17:37:45 2019
    317317! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    318318! Equation file        : chem_gasphase_mod.kpp
     
    384384!
    385385! File                 : chem_gasphase_mod_Initialize.f90
    386 ! Time                 : Fri Mar 15 16:28:28 2019
     386! Time                 : Fri Mar 15 17:37:45 2019
    387387! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    388388! Equation file        : chem_gasphase_mod.kpp
     
    410410!
    411411! File                 : chem_gasphase_mod_Integrator.f90
    412 ! Time                 : Fri Mar 15 16:28:28 2019
     412! Time                 : Fri Mar 15 17:37:45 2019
    413413! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    414414! Equation file        : chem_gasphase_mod.kpp
     
    468468!
    469469! File                 : chem_gasphase_mod_LinearAlgebra.f90
    470 ! Time                 : Fri Mar 15 16:28:28 2019
     470! Time                 : Fri Mar 15 17:37:45 2019
    471471! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    472472! Equation file        : chem_gasphase_mod.kpp
     
    495495!
    496496! File                 : chem_gasphase_mod_Jacobian.f90
    497 ! Time                 : Fri Mar 15 16:28:28 2019
     497! Time                 : Fri Mar 15 17:37:45 2019
    498498! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    499499! Equation file        : chem_gasphase_mod.kpp
     
    522522!
    523523! File                 : chem_gasphase_mod_Function.f90
    524 ! Time                 : Fri Mar 15 16:28:28 2019
     524! Time                 : Fri Mar 15 17:37:45 2019
    525525! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    526526! Equation file        : chem_gasphase_mod.kpp
     
    551551!
    552552! File                 : chem_gasphase_mod_Rates.f90
    553 ! Time                 : Fri Mar 15 16:28:28 2019
     553! Time                 : Fri Mar 15 17:37:45 2019
    554554! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    555555! Equation file        : chem_gasphase_mod.kpp
     
    577577!
    578578! File                 : chem_gasphase_mod_Util.f90
    579 ! Time                 : Fri Mar 15 16:28:28 2019
     579! Time                 : Fri Mar 15 17:37:45 2019
    580580! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    581581! Equation file        : chem_gasphase_mod.kpp
     
    712712
    713713! Following line is just to avoid compiler message about unused variables
    714 IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     714   IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
    715715
    716716
     
    800800
    801801! Following line is just to avoid compiler message about unused variables
    802 IF ( f(nfix) > 0.0_dp )  CONTINUE
     802   IF ( f(nfix) > 0.0_dp )  CONTINUE
    803803
    804804! Computation of equation rates
     
    866866!
    867867! Following line is just to avoid compiler message about unused variables
    868 IF ( f(nfix) > 0.0_dp )  CONTINUE
     868   IF ( f(nfix) > 0.0_dp )  CONTINUE
    869869
    870870! B(1) = dA(1)/dV(10)
     
    10921092
    10931093! Following line is just to avoid compiler message about unused variables
    1094 IF ( incx == 0 )  CONTINUE
     1094   IF ( incx == 0 )  CONTINUE
    10951095
    10961096      IF (alpha .eq. one)RETURN
     
    11581158
    11591159! Following line is just to avoid compiler message about unused variables
    1160 IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
     1160   IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    11611161      IF (alpha .eq. zero)RETURN
    11621162      IF (n .le. 0)RETURN
     
    18931893
    18941894! Following line is just to avoid compiler message about unused variables
    1895 IF ( pivot(1) == 0 )  CONTINUE
     1895   IF ( pivot(1) == 0 )  CONTINUE
    18961896
    18971897#ifdef full_algebra   
Note: See TracChangeset for help on using the changeset viewer.