Changeset 3800 for palm


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

added leading blanks to dummy statements

Location:
palm/trunk/UTIL/chemistry/gasphase_preproc
Files:
12 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/bin/kpp4palm.ksh

    r3799 r3800  
    4141# $Id$
    4242# Removed edit of phot(nphot) for version edit phot(nphot), now done in fortran_file.C (15.03.2019, forkel)
    43 # Editing with sed to add dummy statements toavoud unused variables
     43# Editing with sed to add dummy statements toavoud unused variables (15.03.2019, forkel)
    4444#
    4545# 3780 2019-03-05 11:19:45Z forkel
     
    344344#
    345345sed -i -e '/cfactor =/a !  ' kk_kpp.f90
    346 sed -i -e '/cfactor =/a    IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE ' kk_kpp.f90
     346sed -i -e '/cfactor =/a BLANKS  IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE ' kk_kpp.f90
    347347sed -i -e '/cfactor =/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
    348348sed -i -e '/cfactor =/a !  ' kk_kpp.f90
     
    351351then
    352352sed -i -e '/! Computation of equation rates/i ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
    353 sed -i -e '/! Computation of equation rates/i IF ( f(vl,nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
     353sed -i -e '/! Computation of equation rates/i BLANKS  IF ( f(vl,nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
    354354sed -i -e '/! Computation of equation rates/i !  ' kk_kpp.f90
    355355else
    356356sed -i -e '/! Computation of equation rates/i ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
    357 sed -i -e '/! Computation of equation rates/i IF ( f(nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
     357sed -i -e '/! Computation of equation rates/i BLANKS  IF ( f(nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
    358358sed -i -e '/! Computation of equation rates/i !  ' kk_kpp.f90
    359359fi
     
    361361if [[ $MODE = "vector" ]]
    362362then
    363 sed -i -e '/REAL(kind=dp) :: b/a  IF ( f(vl,nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
     363sed -i -e '/REAL(kind=dp) :: b/a  BLANKS IF ( f(vl,nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
    364364sed -i -e '/REAL(kind=dp) :: b/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
    365365sed -i -e '/REAL(kind=dp):: b/a !' kk_kpp.f90
    366366else
    367 sed -i -e '/REAL(kind=dp):: b/a   IF ( f(nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
     367sed -i -e '/REAL(kind=dp):: b/a BLANKS  IF ( f(nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
    368368sed -i -e '/REAL(kind=dp):: b/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
    369369sed -i -e '/REAL(kind=dp):: b/a !' kk_kpp.f90
    370370fi
    371371
    372 sed -i -e '/one=1.0_dp/a       IF ( incx == 0 )  CONTINUE' kk_kpp.f90
     372sed -i -e '/one=1.0_dp/a BLANKS  IF ( incx == 0 )  CONTINUE' kk_kpp.f90
    373373sed -i -e '/one=1.0_dp/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
    374374sed -i -e '/one=1.0_dp/a !  ' kk_kpp.f90
     
    376376sed -i -e '/IF (alpha .eq. zero)RETURN/i !  ' kk_kpp.f90
    377377sed -i -e '/IF (alpha .eq. zero)RETURN/i ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
    378 sed -i -e '/IF (alpha .eq. zero)RETURN/i     IF ( incx == 0  .OR.  incy == 0 )  CONTINUE' kk_kpp.f90
    379 
    380 sed -i -e '/INTENT(INOUT):: b(n)/a       IF ( pivot(1) == 0 )  CONTINUE' kk_kpp.f90
     378sed -i -e '/IF (alpha .eq. zero)RETURN/i BLANKS  IF ( incx == 0  .OR.  incy == 0 )  CONTINUE' kk_kpp.f90
     379
     380sed -i -e '/INTENT(INOUT):: b(n)/a BLANKS  IF ( pivot(1) == 0 )  CONTINUE' kk_kpp.f90
    381381sed -i -e '/INTENT(INOUT):: b(n)/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
    382382sed -i -e '/INTENT(INOUT):: b(n)/a !  ' kk_kpp.f90
     383
     384sed -i -e '1,$s/BLANKS /  /  ' kk_kpp.f90
    383385
    384386if [[ -e $OUTDIR/${OUTFILE}.f90 ]]
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_cbm4/chem_gasphase_mod.f90

    r3799 r3800  
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 16:28:21 2019
     116! Time                 : Fri Mar 15 17:37:39 2019
    117117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
     
    221221!
    222222! File                 : chem_gasphase_mod_Global.f90
    223 ! Time                 : Fri Mar 15 16:28:21 2019
     223! Time                 : Fri Mar 15 17:37:39 2019
    224224! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    225225! Equation file        : chem_gasphase_mod.kpp
     
    286286!
    287287! File                 : chem_gasphase_mod_JacobianSP.f90
    288 ! Time                 : Fri Mar 15 16:28:21 2019
     288! Time                 : Fri Mar 15 17:37:39 2019
    289289! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    290290! Equation file        : chem_gasphase_mod.kpp
     
    382382!
    383383! File                 : chem_gasphase_mod_Monitor.f90
    384 ! Time                 : Fri Mar 15 16:28:21 2019
     384! Time                 : Fri Mar 15 17:37:39 2019
    385385! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    386386! Equation file        : chem_gasphase_mod.kpp
     
    545545!
    546546! File                 : chem_gasphase_mod_Initialize.f90
    547 ! Time                 : Fri Mar 15 16:28:21 2019
     547! Time                 : Fri Mar 15 17:37:39 2019
    548548! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    549549! Equation file        : chem_gasphase_mod.kpp
     
    571571!
    572572! File                 : chem_gasphase_mod_Integrator.f90
    573 ! Time                 : Fri Mar 15 16:28:21 2019
     573! Time                 : Fri Mar 15 17:37:39 2019
    574574! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    575575! Equation file        : chem_gasphase_mod.kpp
     
    629629!
    630630! File                 : chem_gasphase_mod_LinearAlgebra.f90
    631 ! Time                 : Fri Mar 15 16:28:21 2019
     631! Time                 : Fri Mar 15 17:37:39 2019
    632632! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    633633! Equation file        : chem_gasphase_mod.kpp
     
    656656!
    657657! File                 : chem_gasphase_mod_Jacobian.f90
    658 ! Time                 : Fri Mar 15 16:28:21 2019
     658! Time                 : Fri Mar 15 17:37:39 2019
    659659! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    660660! Equation file        : chem_gasphase_mod.kpp
     
    683683!
    684684! File                 : chem_gasphase_mod_Function.f90
    685 ! Time                 : Fri Mar 15 16:28:21 2019
     685! Time                 : Fri Mar 15 17:37:39 2019
    686686! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    687687! Equation file        : chem_gasphase_mod.kpp
     
    712712!
    713713! File                 : chem_gasphase_mod_Rates.f90
    714 ! Time                 : Fri Mar 15 16:28:21 2019
     714! Time                 : Fri Mar 15 17:37:39 2019
    715715! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    716716! Equation file        : chem_gasphase_mod.kpp
     
    738738!
    739739! File                 : chem_gasphase_mod_Util.f90
    740 ! Time                 : Fri Mar 15 16:28:21 2019
     740! Time                 : Fri Mar 15 17:37:39 2019
    741741! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    742742! Equation file        : chem_gasphase_mod.kpp
     
    873873
    874874! Following line is just to avoid compiler message about unused variables
    875 IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     875   IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
    876876
    877877
     
    963963
    964964! Following line is just to avoid compiler message about unused variables
    965 IF ( f(nfix) > 0.0_dp )  CONTINUE
     965   IF ( f(nfix) > 0.0_dp )  CONTINUE
    966966
    967967! Computation of equation rates
     
    12211221!
    12221222! Following line is just to avoid compiler message about unused variables
    1223 IF ( f(nfix) > 0.0_dp )  CONTINUE
     1223   IF ( f(nfix) > 0.0_dp )  CONTINUE
    12241224
    12251225! B(1) = dA(1)/dV(26)
     
    22902290
    22912291! Following line is just to avoid compiler message about unused variables
    2292 IF ( incx == 0 )  CONTINUE
     2292   IF ( incx == 0 )  CONTINUE
    22932293
    22942294      IF (alpha .eq. one)RETURN
     
    23562356
    23572357! Following line is just to avoid compiler message about unused variables
    2358 IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
     2358   IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    23592359      IF (alpha .eq. zero)RETURN
    23602360      IF (n .le. 0)RETURN
     
    30913091
    30923092! Following line is just to avoid compiler message about unused variables
    3093 IF ( pivot(1) == 0 )  CONTINUE
     3093   IF ( pivot(1) == 0 )  CONTINUE
    30943094
    30953095#ifdef full_algebra   
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive/chem_gasphase_mod.f90

    r3799 r3800  
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 16:28:22 2019
     116! Time                 : Fri Mar 15 17:37:40 2019
    117117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
     
    189189!
    190190! File                 : chem_gasphase_mod_Global.f90
    191 ! Time                 : Fri Mar 15 16:28:22 2019
     191! Time                 : Fri Mar 15 17:37:40 2019
    192192! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    193193! Equation file        : chem_gasphase_mod.kpp
     
    254254!
    255255! File                 : chem_gasphase_mod_JacobianSP.f90
    256 ! Time                 : Fri Mar 15 16:28:22 2019
     256! Time                 : Fri Mar 15 17:37:40 2019
    257257! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    258258! Equation file        : chem_gasphase_mod.kpp
     
    298298!
    299299! File                 : chem_gasphase_mod_Monitor.f90
    300 ! Time                 : Fri Mar 15 16:28:22 2019
     300! Time                 : Fri Mar 15 17:37:40 2019
    301301! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    302302! Equation file        : chem_gasphase_mod.kpp
     
    358358!
    359359! File                 : chem_gasphase_mod_Initialize.f90
    360 ! Time                 : Fri Mar 15 16:28:22 2019
     360! Time                 : Fri Mar 15 17:37:40 2019
    361361! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    362362! Equation file        : chem_gasphase_mod.kpp
     
    384384!
    385385! File                 : chem_gasphase_mod_Integrator.f90
    386 ! Time                 : Fri Mar 15 16:28:22 2019
     386! Time                 : Fri Mar 15 17:37:40 2019
    387387! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    388388! Equation file        : chem_gasphase_mod.kpp
     
    442442!
    443443! File                 : chem_gasphase_mod_LinearAlgebra.f90
    444 ! Time                 : Fri Mar 15 16:28:22 2019
     444! Time                 : Fri Mar 15 17:37:40 2019
    445445! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    446446! Equation file        : chem_gasphase_mod.kpp
     
    469469!
    470470! File                 : chem_gasphase_mod_Jacobian.f90
    471 ! Time                 : Fri Mar 15 16:28:22 2019
     471! Time                 : Fri Mar 15 17:37:40 2019
    472472! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    473473! Equation file        : chem_gasphase_mod.kpp
     
    496496!
    497497! File                 : chem_gasphase_mod_Function.f90
    498 ! Time                 : Fri Mar 15 16:28:22 2019
     498! Time                 : Fri Mar 15 17:37:40 2019
    499499! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    500500! Equation file        : chem_gasphase_mod.kpp
     
    525525!
    526526! File                 : chem_gasphase_mod_Rates.f90
    527 ! Time                 : Fri Mar 15 16:28:22 2019
     527! Time                 : Fri Mar 15 17:37:40 2019
    528528! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    529529! Equation file        : chem_gasphase_mod.kpp
     
    551551!
    552552! File                 : chem_gasphase_mod_Util.f90
    553 ! Time                 : Fri Mar 15 16:28:22 2019
     553! Time                 : Fri Mar 15 17:37:40 2019
    554554! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    555555! Equation file        : chem_gasphase_mod.kpp
     
    686686
    687687! Following line is just to avoid compiler message about unused variables
    688 IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     688   IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
    689689
    690690
     
    774774
    775775! Following line is just to avoid compiler message about unused variables
    776 IF ( f(nfix) > 0.0_dp )  CONTINUE
     776   IF ( f(nfix) > 0.0_dp )  CONTINUE
    777777
    778778! Computation of equation rates
     
    813813!
    814814! Following line is just to avoid compiler message about unused variables
    815 IF ( f(nfix) > 0.0_dp )  CONTINUE
     815   IF ( f(nfix) > 0.0_dp )  CONTINUE
    816816
    817817! B(1) = dA(1)/dV(1)
     
    939939
    940940! Following line is just to avoid compiler message about unused variables
    941 IF ( incx == 0 )  CONTINUE
     941   IF ( incx == 0 )  CONTINUE
    942942
    943943      IF (alpha .eq. one)RETURN
     
    10051005
    10061006! Following line is just to avoid compiler message about unused variables
    1007 IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
     1007   IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    10081008      IF (alpha .eq. zero)RETURN
    10091009      IF (n .le. 0)RETURN
     
    17401740
    17411741! Following line is just to avoid compiler message about unused variables
    1742 IF ( pivot(1) == 0 )  CONTINUE
     1742   IF ( pivot(1) == 0 )  CONTINUE
    17431743
    17441744#ifdef full_algebra   
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive1/chem_gasphase_mod.f90

    r3799 r3800  
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 16:28:23 2019
     116! Time                 : Fri Mar 15 17:37:41 2019
    117117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
     
    188188!
    189189! File                 : chem_gasphase_mod_Global.f90
    190 ! Time                 : Fri Mar 15 16:28:23 2019
     190! Time                 : Fri Mar 15 17:37:41 2019
    191191! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    192192! Equation file        : chem_gasphase_mod.kpp
     
    253253!
    254254! File                 : chem_gasphase_mod_JacobianSP.f90
    255 ! Time                 : Fri Mar 15 16:28:23 2019
     255! Time                 : Fri Mar 15 17:37:41 2019
    256256! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    257257! Equation file        : chem_gasphase_mod.kpp
     
    297297!
    298298! File                 : chem_gasphase_mod_Monitor.f90
    299 ! Time                 : Fri Mar 15 16:28:23 2019
     299! Time                 : Fri Mar 15 17:37:41 2019
    300300! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    301301! Equation file        : chem_gasphase_mod.kpp
     
    356356!
    357357! File                 : chem_gasphase_mod_Initialize.f90
    358 ! Time                 : Fri Mar 15 16:28:23 2019
     358! Time                 : Fri Mar 15 17:37:41 2019
    359359! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    360360! Equation file        : chem_gasphase_mod.kpp
     
    382382!
    383383! File                 : chem_gasphase_mod_Integrator.f90
    384 ! Time                 : Fri Mar 15 16:28:23 2019
     384! Time                 : Fri Mar 15 17:37:41 2019
    385385! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    386386! Equation file        : chem_gasphase_mod.kpp
     
    440440!
    441441! File                 : chem_gasphase_mod_LinearAlgebra.f90
    442 ! Time                 : Fri Mar 15 16:28:23 2019
     442! Time                 : Fri Mar 15 17:37:41 2019
    443443! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    444444! Equation file        : chem_gasphase_mod.kpp
     
    467467!
    468468! File                 : chem_gasphase_mod_Jacobian.f90
    469 ! Time                 : Fri Mar 15 16:28:23 2019
     469! Time                 : Fri Mar 15 17:37:41 2019
    470470! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    471471! Equation file        : chem_gasphase_mod.kpp
     
    494494!
    495495! File                 : chem_gasphase_mod_Function.f90
    496 ! Time                 : Fri Mar 15 16:28:23 2019
     496! Time                 : Fri Mar 15 17:37:41 2019
    497497! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    498498! Equation file        : chem_gasphase_mod.kpp
     
    523523!
    524524! File                 : chem_gasphase_mod_Rates.f90
    525 ! Time                 : Fri Mar 15 16:28:23 2019
     525! Time                 : Fri Mar 15 17:37:41 2019
    526526! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    527527! Equation file        : chem_gasphase_mod.kpp
     
    549549!
    550550! File                 : chem_gasphase_mod_Util.f90
    551 ! Time                 : Fri Mar 15 16:28:23 2019
     551! Time                 : Fri Mar 15 17:37:41 2019
    552552! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    553553! Equation file        : chem_gasphase_mod.kpp
     
    684684
    685685! Following line is just to avoid compiler message about unused variables
    686 IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     686   IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
    687687
    688688
     
    772772
    773773! Following line is just to avoid compiler message about unused variables
    774 IF ( f(nfix) > 0.0_dp )  CONTINUE
     774   IF ( f(nfix) > 0.0_dp )  CONTINUE
    775775
    776776! Computation of equation rates
     
    809809!
    810810! Following line is just to avoid compiler message about unused variables
    811 IF ( f(nfix) > 0.0_dp )  CONTINUE
     811   IF ( f(nfix) > 0.0_dp )  CONTINUE
    812812
    813813! B(1) = dA(1)/dV(1)
     
    930930
    931931! Following line is just to avoid compiler message about unused variables
    932 IF ( incx == 0 )  CONTINUE
     932   IF ( incx == 0 )  CONTINUE
    933933
    934934      IF (alpha .eq. one)RETURN
     
    996996
    997997! Following line is just to avoid compiler message about unused variables
    998 IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
     998   IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    999999      IF (alpha .eq. zero)RETURN
    10001000      IF (n .le. 0)RETURN
     
    17311731
    17321732! Following line is just to avoid compiler message about unused variables
    1733 IF ( pivot(1) == 0 )  CONTINUE
     1733   IF ( pivot(1) == 0 )  CONTINUE
    17341734
    17351735#ifdef full_algebra   
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstat/chem_gasphase_mod.f90

    r3799 r3800  
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 16:28:24 2019
     116! Time                 : Fri Mar 15 17:37:41 2019
    117117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
     
    190190!
    191191! File                 : chem_gasphase_mod_Global.f90
    192 ! Time                 : Fri Mar 15 16:28:24 2019
     192! Time                 : Fri Mar 15 17:37:41 2019
    193193! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    194194! Equation file        : chem_gasphase_mod.kpp
     
    255255!
    256256! File                 : chem_gasphase_mod_JacobianSP.f90
    257 ! Time                 : Fri Mar 15 16:28:24 2019
     257! Time                 : Fri Mar 15 17:37:41 2019
    258258! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    259259! Equation file        : chem_gasphase_mod.kpp
     
    299299!
    300300! File                 : chem_gasphase_mod_Monitor.f90
    301 ! Time                 : Fri Mar 15 16:28:24 2019
     301! Time                 : Fri Mar 15 17:37:41 2019
    302302! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    303303! Equation file        : chem_gasphase_mod.kpp
     
    359359!
    360360! File                 : chem_gasphase_mod_Initialize.f90
    361 ! Time                 : Fri Mar 15 16:28:24 2019
     361! Time                 : Fri Mar 15 17:37:41 2019
    362362! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    363363! Equation file        : chem_gasphase_mod.kpp
     
    385385!
    386386! File                 : chem_gasphase_mod_Integrator.f90
    387 ! Time                 : Fri Mar 15 16:28:24 2019
     387! Time                 : Fri Mar 15 17:37:41 2019
    388388! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    389389! Equation file        : chem_gasphase_mod.kpp
     
    443443!
    444444! File                 : chem_gasphase_mod_LinearAlgebra.f90
    445 ! Time                 : Fri Mar 15 16:28:24 2019
     445! Time                 : Fri Mar 15 17:37:41 2019
    446446! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    447447! Equation file        : chem_gasphase_mod.kpp
     
    470470!
    471471! File                 : chem_gasphase_mod_Jacobian.f90
    472 ! Time                 : Fri Mar 15 16:28:24 2019
     472! Time                 : Fri Mar 15 17:37:41 2019
    473473! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    474474! Equation file        : chem_gasphase_mod.kpp
     
    497497!
    498498! File                 : chem_gasphase_mod_Function.f90
    499 ! Time                 : Fri Mar 15 16:28:24 2019
     499! Time                 : Fri Mar 15 17:37:41 2019
    500500! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    501501! Equation file        : chem_gasphase_mod.kpp
     
    526526!
    527527! File                 : chem_gasphase_mod_Rates.f90
    528 ! Time                 : Fri Mar 15 16:28:24 2019
     528! Time                 : Fri Mar 15 17:37:41 2019
    529529! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    530530! Equation file        : chem_gasphase_mod.kpp
     
    552552!
    553553! File                 : chem_gasphase_mod_Util.f90
    554 ! Time                 : Fri Mar 15 16:28:24 2019
     554! Time                 : Fri Mar 15 17:37:41 2019
    555555! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    556556! Equation file        : chem_gasphase_mod.kpp
     
    687687
    688688! Following line is just to avoid compiler message about unused variables
    689 IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     689   IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
    690690
    691691
     
    775775
    776776! Following line is just to avoid compiler message about unused variables
    777 IF ( f(nfix) > 0.0_dp )  CONTINUE
     777   IF ( f(nfix) > 0.0_dp )  CONTINUE
    778778
    779779! Computation of equation rates
     
    820820!
    821821! Following line is just to avoid compiler message about unused variables
    822 IF ( f(nfix) > 0.0_dp )  CONTINUE
     822   IF ( f(nfix) > 0.0_dp )  CONTINUE
    823823
    824824! B(1) = dA(1)/dV(3)
     
    962962
    963963! Following line is just to avoid compiler message about unused variables
    964 IF ( incx == 0 )  CONTINUE
     964   IF ( incx == 0 )  CONTINUE
    965965
    966966      IF (alpha .eq. one)RETURN
     
    10281028
    10291029! Following line is just to avoid compiler message about unused variables
    1030 IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
     1030   IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    10311031      IF (alpha .eq. zero)RETURN
    10321032      IF (n .le. 0)RETURN
     
    17631763
    17641764! Following line is just to avoid compiler message about unused variables
    1765 IF ( pivot(1) == 0 )  CONTINUE
     1765   IF ( pivot(1) == 0 )  CONTINUE
    17661766
    17671767#ifdef full_algebra   
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstatp/chem_gasphase_mod.f90

    r3799 r3800  
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 16:28:29 2019
     116! Time                 : Fri Mar 15 17:37:46 2019
    117117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
     
    191191!
    192192! File                 : chem_gasphase_mod_Global.f90
    193 ! Time                 : Fri Mar 15 16:28:29 2019
     193! Time                 : Fri Mar 15 17:37:46 2019
    194194! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    195195! Equation file        : chem_gasphase_mod.kpp
     
    256256!
    257257! File                 : chem_gasphase_mod_JacobianSP.f90
    258 ! Time                 : Fri Mar 15 16:28:29 2019
     258! Time                 : Fri Mar 15 17:37:46 2019
    259259! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    260260! Equation file        : chem_gasphase_mod.kpp
     
    300300!
    301301! File                 : chem_gasphase_mod_Monitor.f90
    302 ! Time                 : Fri Mar 15 16:28:29 2019
     302! Time                 : Fri Mar 15 17:37:46 2019
    303303! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    304304! Equation file        : chem_gasphase_mod.kpp
     
    362362!
    363363! File                 : chem_gasphase_mod_Initialize.f90
    364 ! Time                 : Fri Mar 15 16:28:29 2019
     364! Time                 : Fri Mar 15 17:37:46 2019
    365365! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    366366! Equation file        : chem_gasphase_mod.kpp
     
    388388!
    389389! File                 : chem_gasphase_mod_Integrator.f90
    390 ! Time                 : Fri Mar 15 16:28:29 2019
     390! Time                 : Fri Mar 15 17:37:46 2019
    391391! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    392392! Equation file        : chem_gasphase_mod.kpp
     
    446446!
    447447! File                 : chem_gasphase_mod_LinearAlgebra.f90
    448 ! Time                 : Fri Mar 15 16:28:29 2019
     448! Time                 : Fri Mar 15 17:37:46 2019
    449449! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    450450! Equation file        : chem_gasphase_mod.kpp
     
    473473!
    474474! File                 : chem_gasphase_mod_Jacobian.f90
    475 ! Time                 : Fri Mar 15 16:28:29 2019
     475! Time                 : Fri Mar 15 17:37:46 2019
    476476! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    477477! Equation file        : chem_gasphase_mod.kpp
     
    500500!
    501501! File                 : chem_gasphase_mod_Function.f90
    502 ! Time                 : Fri Mar 15 16:28:29 2019
     502! Time                 : Fri Mar 15 17:37:46 2019
    503503! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    504504! Equation file        : chem_gasphase_mod.kpp
     
    529529!
    530530! File                 : chem_gasphase_mod_Rates.f90
    531 ! Time                 : Fri Mar 15 16:28:29 2019
     531! Time                 : Fri Mar 15 17:37:46 2019
    532532! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    533533! Equation file        : chem_gasphase_mod.kpp
     
    555555!
    556556! File                 : chem_gasphase_mod_Util.f90
    557 ! Time                 : Fri Mar 15 16:28:29 2019
     557! Time                 : Fri Mar 15 17:37:46 2019
    558558! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    559559! Equation file        : chem_gasphase_mod.kpp
     
    690690
    691691! Following line is just to avoid compiler message about unused variables
    692 IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     692   IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
    693693
    694694
     
    778778
    779779! Following line is just to avoid compiler message about unused variables
    780 IF ( f(nfix) > 0.0_dp )  CONTINUE
     780   IF ( f(nfix) > 0.0_dp )  CONTINUE
    781781
    782782! Computation of equation rates
     
    825825!
    826826! Following line is just to avoid compiler message about unused variables
    827 IF ( f(nfix) > 0.0_dp )  CONTINUE
     827   IF ( f(nfix) > 0.0_dp )  CONTINUE
    828828
    829829! B(1) = dA(1)/dV(3)
     
    972972
    973973! Following line is just to avoid compiler message about unused variables
    974 IF ( incx == 0 )  CONTINUE
     974   IF ( incx == 0 )  CONTINUE
    975975
    976976      IF (alpha .eq. one)RETURN
     
    10381038
    10391039! Following line is just to avoid compiler message about unused variables
    1040 IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
     1040   IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    10411041      IF (alpha .eq. zero)RETURN
    10421042      IF (n .le. 0)RETURN
     
    17731773
    17741774! Following line is just to avoid compiler message about unused variables
    1775 IF ( pivot(1) == 0 )  CONTINUE
     1775   IF ( pivot(1) == 0 )  CONTINUE
    17761776
    17771777#ifdef full_algebra   
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+phstat/chem_gasphase_mod.f90

    r3799 r3800  
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 16:28:26 2019
     116! Time                 : Fri Mar 15 17:37:43 2019
    117117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
     
    190190!
    191191! File                 : chem_gasphase_mod_Global.f90
    192 ! Time                 : Fri Mar 15 16:28:26 2019
     192! Time                 : Fri Mar 15 17:37:43 2019
    193193! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    194194! Equation file        : chem_gasphase_mod.kpp
     
    264264!
    265265! File                 : chem_gasphase_mod_JacobianSP.f90
    266 ! Time                 : Fri Mar 15 16:28:26 2019
     266! Time                 : Fri Mar 15 17:37:43 2019
    267267! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    268268! Equation file        : chem_gasphase_mod.kpp
     
    308308!
    309309! File                 : chem_gasphase_mod_Monitor.f90
    310 ! Time                 : Fri Mar 15 16:28:26 2019
     310! Time                 : Fri Mar 15 17:37:43 2019
    311311! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    312312! Equation file        : chem_gasphase_mod.kpp
     
    368368!
    369369! File                 : chem_gasphase_mod_Initialize.f90
    370 ! Time                 : Fri Mar 15 16:28:26 2019
     370! Time                 : Fri Mar 15 17:37:43 2019
    371371! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    372372! Equation file        : chem_gasphase_mod.kpp
     
    394394!
    395395! File                 : chem_gasphase_mod_Integrator.f90
    396 ! Time                 : Fri Mar 15 16:28:26 2019
     396! Time                 : Fri Mar 15 17:37:43 2019
    397397! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    398398! Equation file        : chem_gasphase_mod.kpp
     
    452452!
    453453! File                 : chem_gasphase_mod_LinearAlgebra.f90
    454 ! Time                 : Fri Mar 15 16:28:26 2019
     454! Time                 : Fri Mar 15 17:37:43 2019
    455455! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    456456! Equation file        : chem_gasphase_mod.kpp
     
    479479!
    480480! File                 : chem_gasphase_mod_Jacobian.f90
    481 ! Time                 : Fri Mar 15 16:28:26 2019
     481! Time                 : Fri Mar 15 17:37:43 2019
    482482! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    483483! Equation file        : chem_gasphase_mod.kpp
     
    506506!
    507507! File                 : chem_gasphase_mod_Function.f90
    508 ! Time                 : Fri Mar 15 16:28:26 2019
     508! Time                 : Fri Mar 15 17:37:43 2019
    509509! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    510510! Equation file        : chem_gasphase_mod.kpp
     
    535535!
    536536! File                 : chem_gasphase_mod_Rates.f90
    537 ! Time                 : Fri Mar 15 16:28:26 2019
     537! Time                 : Fri Mar 15 17:37:43 2019
    538538! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    539539! Equation file        : chem_gasphase_mod.kpp
     
    561561!
    562562! File                 : chem_gasphase_mod_Util.f90
    563 ! Time                 : Fri Mar 15 16:28:26 2019
     563! Time                 : Fri Mar 15 17:37:43 2019
    564564! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    565565! Equation file        : chem_gasphase_mod.kpp
     
    696696
    697697! Following line is just to avoid compiler message about unused variables
    698 IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     698   IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
    699699
    700700
     
    784784
    785785! Following line is just to avoid compiler message about unused variables
    786 IF ( f(nfix) > 0.0_dp )  CONTINUE
     786   IF ( f(nfix) > 0.0_dp )  CONTINUE
    787787
    788788! Computation of equation rates
     
    829829!
    830830! Following line is just to avoid compiler message about unused variables
    831 IF ( f(nfix) > 0.0_dp )  CONTINUE
     831   IF ( f(nfix) > 0.0_dp )  CONTINUE
    832832
    833833! B(1) = dA(1)/dV(3)
     
    971971
    972972! Following line is just to avoid compiler message about unused variables
    973 IF ( incx == 0 )  CONTINUE
     973   IF ( incx == 0 )  CONTINUE
    974974
    975975      IF (alpha .eq. one)RETURN
     
    10371037
    10381038! Following line is just to avoid compiler message about unused variables
    1039 IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
     1039   IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    10401040      IF (alpha .eq. zero)RETURN
    10411041      IF (n .le. 0)RETURN
     
    17721772
    17731773! Following line is just to avoid compiler message about unused variables
    1774 IF ( pivot(1) == 0 )  CONTINUE
     1774   IF ( pivot(1) == 0 )  CONTINUE
    17751775
    17761776#ifdef full_algebra   
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple/chem_gasphase_mod.f90

    r3799 r3800  
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 16:28:26 2019
     116! Time                 : Fri Mar 15 17:37:44 2019
    117117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
     
    202202!
    203203! File                 : chem_gasphase_mod_Global.f90
    204 ! Time                 : Fri Mar 15 16:28:26 2019
     204! Time                 : Fri Mar 15 17:37:44 2019
    205205! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    206206! Equation file        : chem_gasphase_mod.kpp
     
    273273!
    274274! File                 : chem_gasphase_mod_JacobianSP.f90
    275 ! Time                 : Fri Mar 15 16:28:26 2019
     275! Time                 : Fri Mar 15 17:37:44 2019
    276276! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    277277! Equation file        : chem_gasphase_mod.kpp
     
    325325!
    326326! File                 : chem_gasphase_mod_Monitor.f90
    327 ! Time                 : Fri Mar 15 16:28:26 2019
     327! Time                 : Fri Mar 15 17:37:44 2019
    328328! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    329329! Equation file        : chem_gasphase_mod.kpp
     
    399399!
    400400! File                 : chem_gasphase_mod_Initialize.f90
    401 ! Time                 : Fri Mar 15 16:28:26 2019
     401! Time                 : Fri Mar 15 17:37:44 2019
    402402! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    403403! Equation file        : chem_gasphase_mod.kpp
     
    425425!
    426426! File                 : chem_gasphase_mod_Integrator.f90
    427 ! Time                 : Fri Mar 15 16:28:26 2019
     427! Time                 : Fri Mar 15 17:37:44 2019
    428428! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    429429! Equation file        : chem_gasphase_mod.kpp
     
    483483!
    484484! File                 : chem_gasphase_mod_LinearAlgebra.f90
    485 ! Time                 : Fri Mar 15 16:28:26 2019
     485! Time                 : Fri Mar 15 17:37:44 2019
    486486! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    487487! Equation file        : chem_gasphase_mod.kpp
     
    510510!
    511511! File                 : chem_gasphase_mod_Jacobian.f90
    512 ! Time                 : Fri Mar 15 16:28:26 2019
     512! Time                 : Fri Mar 15 17:37:44 2019
    513513! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    514514! Equation file        : chem_gasphase_mod.kpp
     
    537537!
    538538! File                 : chem_gasphase_mod_Function.f90
    539 ! Time                 : Fri Mar 15 16:28:26 2019
     539! Time                 : Fri Mar 15 17:37:44 2019
    540540! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    541541! Equation file        : chem_gasphase_mod.kpp
     
    566566!
    567567! File                 : chem_gasphase_mod_Rates.f90
    568 ! Time                 : Fri Mar 15 16:28:26 2019
     568! Time                 : Fri Mar 15 17:37:44 2019
    569569! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    570570! Equation file        : chem_gasphase_mod.kpp
     
    592592!
    593593! File                 : chem_gasphase_mod_Util.f90
    594 ! Time                 : Fri Mar 15 16:28:26 2019
     594! Time                 : Fri Mar 15 17:37:44 2019
    595595! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    596596! Equation file        : chem_gasphase_mod.kpp
     
    727727
    728728! Following line is just to avoid compiler message about unused variables
    729 IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     729   IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
    730730
    731731
     
    815815
    816816! Following line is just to avoid compiler message about unused variables
    817 IF ( f(nfix) > 0.0_dp )  CONTINUE
     817   IF ( f(nfix) > 0.0_dp )  CONTINUE
    818818
    819819! Computation of equation rates
     
    888888!
    889889! Following line is just to avoid compiler message about unused variables
    890 IF ( f(nfix) > 0.0_dp )  CONTINUE
     890   IF ( f(nfix) > 0.0_dp )  CONTINUE
    891891
    892892! B(1) = dA(1)/dV(10)
     
    11291129
    11301130! Following line is just to avoid compiler message about unused variables
    1131 IF ( incx == 0 )  CONTINUE
     1131   IF ( incx == 0 )  CONTINUE
    11321132
    11331133      IF (alpha .eq. one)RETURN
     
    11951195
    11961196! Following line is just to avoid compiler message about unused variables
    1197 IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
     1197   IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    11981198      IF (alpha .eq. zero)RETURN
    11991199      IF (n .le. 0)RETURN
     
    19301930
    19311931! Following line is just to avoid compiler message about unused variables
    1932 IF ( pivot(1) == 0 )  CONTINUE
     1932   IF ( pivot(1) == 0 )  CONTINUE
    19331933
    19341934#ifdef full_algebra   
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsagas/chem_gasphase_mod.f90

    r3799 r3800  
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 16:28:25 2019
     116! Time                 : Fri Mar 15 17:37:42 2019
    117117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
     
    192192!
    193193! File                 : chem_gasphase_mod_Global.f90
    194 ! Time                 : Fri Mar 15 16:28:25 2019
     194! Time                 : Fri Mar 15 17:37:42 2019
    195195! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    196196! Equation file        : chem_gasphase_mod.kpp
     
    259259!
    260260! File                 : chem_gasphase_mod_JacobianSP.f90
    261 ! Time                 : Fri Mar 15 16:28:25 2019
     261! Time                 : Fri Mar 15 17:37:42 2019
    262262! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    263263! Equation file        : chem_gasphase_mod.kpp
     
    303303!
    304304! File                 : chem_gasphase_mod_Monitor.f90
    305 ! Time                 : Fri Mar 15 16:28:25 2019
     305! Time                 : Fri Mar 15 17:37:42 2019
    306306! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    307307! Equation file        : chem_gasphase_mod.kpp
     
    367367!
    368368! File                 : chem_gasphase_mod_Initialize.f90
    369 ! Time                 : Fri Mar 15 16:28:25 2019
     369! Time                 : Fri Mar 15 17:37:42 2019
    370370! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    371371! Equation file        : chem_gasphase_mod.kpp
     
    393393!
    394394! File                 : chem_gasphase_mod_Integrator.f90
    395 ! Time                 : Fri Mar 15 16:28:25 2019
     395! Time                 : Fri Mar 15 17:37:42 2019
    396396! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    397397! Equation file        : chem_gasphase_mod.kpp
     
    451451!
    452452! File                 : chem_gasphase_mod_LinearAlgebra.f90
    453 ! Time                 : Fri Mar 15 16:28:25 2019
     453! Time                 : Fri Mar 15 17:37:42 2019
    454454! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    455455! Equation file        : chem_gasphase_mod.kpp
     
    478478!
    479479! File                 : chem_gasphase_mod_Jacobian.f90
    480 ! Time                 : Fri Mar 15 16:28:25 2019
     480! Time                 : Fri Mar 15 17:37:42 2019
    481481! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    482482! Equation file        : chem_gasphase_mod.kpp
     
    505505!
    506506! File                 : chem_gasphase_mod_Function.f90
    507 ! Time                 : Fri Mar 15 16:28:25 2019
     507! Time                 : Fri Mar 15 17:37:42 2019
    508508! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    509509! Equation file        : chem_gasphase_mod.kpp
     
    534534!
    535535! File                 : chem_gasphase_mod_Rates.f90
    536 ! Time                 : Fri Mar 15 16:28:25 2019
     536! Time                 : Fri Mar 15 17:37:42 2019
    537537! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    538538! Equation file        : chem_gasphase_mod.kpp
     
    560560!
    561561! File                 : chem_gasphase_mod_Util.f90
    562 ! Time                 : Fri Mar 15 16:28:25 2019
     562! Time                 : Fri Mar 15 17:37:42 2019
    563563! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    564564! Equation file        : chem_gasphase_mod.kpp
     
    695695
    696696! Following line is just to avoid compiler message about unused variables
    697 IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     697   IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
    698698
    699699
     
    783783
    784784! Following line is just to avoid compiler message about unused variables
    785 IF ( f(nfix) > 0.0_dp )  CONTINUE
     785   IF ( f(nfix) > 0.0_dp )  CONTINUE
    786786
    787787! Computation of equation rates
     
    828828!
    829829! Following line is just to avoid compiler message about unused variables
    830 IF ( f(nfix) > 0.0_dp )  CONTINUE
     830   IF ( f(nfix) > 0.0_dp )  CONTINUE
    831831
    832832! B(1) = dA(1)/dV(2)
     
    969969
    970970! Following line is just to avoid compiler message about unused variables
    971 IF ( incx == 0 )  CONTINUE
     971   IF ( incx == 0 )  CONTINUE
    972972
    973973      IF (alpha .eq. one)RETURN
     
    10351035
    10361036! Following line is just to avoid compiler message about unused variables
    1037 IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
     1037   IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    10381038      IF (alpha .eq. zero)RETURN
    10391039      IF (n .le. 0)RETURN
     
    17701770
    17711771! Following line is just to avoid compiler message about unused variables
    1772 IF ( pivot(1) == 0 )  CONTINUE
     1772   IF ( pivot(1) == 0 )  CONTINUE
    17731773
    17741774#ifdef full_algebra   
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simple/chem_gasphase_mod.f90

    r3799 r3800  
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 16:28:27 2019
     116! Time                 : Fri Mar 15 17:37:44 2019
    117117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
     
    198198!
    199199! File                 : chem_gasphase_mod_Global.f90
    200 ! Time                 : Fri Mar 15 16:28:27 2019
     200! Time                 : Fri Mar 15 17:37:44 2019
    201201! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    202202! Equation file        : chem_gasphase_mod.kpp
     
    263263!
    264264! File                 : chem_gasphase_mod_JacobianSP.f90
    265 ! Time                 : Fri Mar 15 16:28:27 2019
     265! Time                 : Fri Mar 15 17:37:44 2019
    266266! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    267267! Equation file        : chem_gasphase_mod.kpp
     
    313313!
    314314! File                 : chem_gasphase_mod_Monitor.f90
    315 ! Time                 : Fri Mar 15 16:28:27 2019
     315! Time                 : Fri Mar 15 17:37:44 2019
    316316! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    317317! Equation file        : chem_gasphase_mod.kpp
     
    382382!
    383383! File                 : chem_gasphase_mod_Initialize.f90
    384 ! Time                 : Fri Mar 15 16:28:27 2019
     384! Time                 : Fri Mar 15 17:37:44 2019
    385385! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    386386! Equation file        : chem_gasphase_mod.kpp
     
    408408!
    409409! File                 : chem_gasphase_mod_Integrator.f90
    410 ! Time                 : Fri Mar 15 16:28:27 2019
     410! Time                 : Fri Mar 15 17:37:44 2019
    411411! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    412412! Equation file        : chem_gasphase_mod.kpp
     
    466466!
    467467! File                 : chem_gasphase_mod_LinearAlgebra.f90
    468 ! Time                 : Fri Mar 15 16:28:27 2019
     468! Time                 : Fri Mar 15 17:37:44 2019
    469469! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    470470! Equation file        : chem_gasphase_mod.kpp
     
    493493!
    494494! File                 : chem_gasphase_mod_Jacobian.f90
    495 ! Time                 : Fri Mar 15 16:28:27 2019
     495! Time                 : Fri Mar 15 17:37:44 2019
    496496! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    497497! Equation file        : chem_gasphase_mod.kpp
     
    520520!
    521521! File                 : chem_gasphase_mod_Function.f90
    522 ! Time                 : Fri Mar 15 16:28:27 2019
     522! Time                 : Fri Mar 15 17:37:44 2019
    523523! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    524524! Equation file        : chem_gasphase_mod.kpp
     
    549549!
    550550! File                 : chem_gasphase_mod_Rates.f90
    551 ! Time                 : Fri Mar 15 16:28:27 2019
     551! Time                 : Fri Mar 15 17:37:44 2019
    552552! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    553553! Equation file        : chem_gasphase_mod.kpp
     
    575575!
    576576! File                 : chem_gasphase_mod_Util.f90
    577 ! Time                 : Fri Mar 15 16:28:27 2019
     577! Time                 : Fri Mar 15 17:37:44 2019
    578578! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    579579! Equation file        : chem_gasphase_mod.kpp
     
    710710
    711711! Following line is just to avoid compiler message about unused variables
    712 IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     712   IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
    713713
    714714
     
    798798
    799799! Following line is just to avoid compiler message about unused variables
    800 IF ( f(nfix) > 0.0_dp )  CONTINUE
     800   IF ( f(nfix) > 0.0_dp )  CONTINUE
    801801
    802802! Computation of equation rates
     
    863863!
    864864! Following line is just to avoid compiler message about unused variables
    865 IF ( f(nfix) > 0.0_dp )  CONTINUE
     865   IF ( f(nfix) > 0.0_dp )  CONTINUE
    866866
    867867! B(1) = dA(1)/dV(7)
     
    10841084
    10851085! Following line is just to avoid compiler message about unused variables
    1086 IF ( incx == 0 )  CONTINUE
     1086   IF ( incx == 0 )  CONTINUE
    10871087
    10881088      IF (alpha .eq. one)RETURN
     
    11501150
    11511151! Following line is just to avoid compiler message about unused variables
    1152 IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
     1152   IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    11531153      IF (alpha .eq. zero)RETURN
    11541154      IF (n .le. 0)RETURN
     
    18851885
    18861886! Following line is just to avoid compiler message about unused variables
    1887 IF ( pivot(1) == 0 )  CONTINUE
     1887   IF ( pivot(1) == 0 )  CONTINUE
    18881888
    18891889#ifdef full_algebra   
  • 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   
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/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:46 2019
    117117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
     
    206206!
    207207! File                 : chem_gasphase_mod_Global.f90
    208 ! Time                 : Fri Mar 15 16:28:28 2019
     208! Time                 : Fri Mar 15 17:37:46 2019
    209209! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    210210! Equation file        : chem_gasphase_mod.kpp
     
    271271!
    272272! File                 : chem_gasphase_mod_JacobianSP.f90
    273 ! Time                 : Fri Mar 15 16:28:28 2019
     273! Time                 : Fri Mar 15 17:37:46 2019
    274274! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    275275! Equation file        : chem_gasphase_mod.kpp
     
    327327!
    328328! File                 : chem_gasphase_mod_Monitor.f90
    329 ! Time                 : Fri Mar 15 16:28:28 2019
     329! Time                 : Fri Mar 15 17:37:46 2019
    330330! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    331331! Equation file        : chem_gasphase_mod.kpp
     
    403403!
    404404! File                 : chem_gasphase_mod_Initialize.f90
    405 ! Time                 : Fri Mar 15 16:28:28 2019
     405! Time                 : Fri Mar 15 17:37:46 2019
    406406! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    407407! Equation file        : chem_gasphase_mod.kpp
     
    429429!
    430430! File                 : chem_gasphase_mod_Integrator.f90
    431 ! Time                 : Fri Mar 15 16:28:28 2019
     431! Time                 : Fri Mar 15 17:37:46 2019
    432432! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    433433! Equation file        : chem_gasphase_mod.kpp
     
    487487!
    488488! File                 : chem_gasphase_mod_LinearAlgebra.f90
    489 ! Time                 : Fri Mar 15 16:28:28 2019
     489! Time                 : Fri Mar 15 17:37:46 2019
    490490! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    491491! Equation file        : chem_gasphase_mod.kpp
     
    514514!
    515515! File                 : chem_gasphase_mod_Jacobian.f90
    516 ! Time                 : Fri Mar 15 16:28:28 2019
     516! Time                 : Fri Mar 15 17:37:46 2019
    517517! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    518518! Equation file        : chem_gasphase_mod.kpp
     
    541541!
    542542! File                 : chem_gasphase_mod_Function.f90
    543 ! Time                 : Fri Mar 15 16:28:28 2019
     543! Time                 : Fri Mar 15 17:37:46 2019
    544544! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    545545! Equation file        : chem_gasphase_mod.kpp
     
    570570!
    571571! File                 : chem_gasphase_mod_Rates.f90
    572 ! Time                 : Fri Mar 15 16:28:28 2019
     572! Time                 : Fri Mar 15 17:37:46 2019
    573573! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    574574! Equation file        : chem_gasphase_mod.kpp
     
    596596!
    597597! File                 : chem_gasphase_mod_Util.f90
    598 ! Time                 : Fri Mar 15 16:28:28 2019
     598! Time                 : Fri Mar 15 17:37:46 2019
    599599! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    600600! Equation file        : chem_gasphase_mod.kpp
     
    731731
    732732! Following line is just to avoid compiler message about unused variables
    733 IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     733   IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
    734734
    735735
     
    823823
    824824! Following line is just to avoid compiler message about unused variables
    825 IF ( f(nfix) > 0.0_dp )  CONTINUE
     825   IF ( f(nfix) > 0.0_dp )  CONTINUE
    826826
    827827! Computation of equation rates
     
    904904!
    905905! Following line is just to avoid compiler message about unused variables
    906 IF ( f(nfix) > 0.0_dp )  CONTINUE
     906   IF ( f(nfix) > 0.0_dp )  CONTINUE
    907907
    908908! B(1) = dA(1)/dV(13)
     
    11941194
    11951195! Following line is just to avoid compiler message about unused variables
    1196 IF ( incx == 0 )  CONTINUE
     1196   IF ( incx == 0 )  CONTINUE
    11971197
    11981198      IF (alpha .eq. one)RETURN
     
    12601260
    12611261! Following line is just to avoid compiler message about unused variables
    1262 IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
     1262   IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    12631263      IF (alpha .eq. zero)RETURN
    12641264      IF (n .le. 0)RETURN
     
    19951995
    19961996! Following line is just to avoid compiler message about unused variables
    1997 IF ( pivot(1) == 0 )  CONTINUE
     1997   IF ( pivot(1) == 0 )  CONTINUE
    19981998
    19991999#ifdef full_algebra   
Note: See TracChangeset for help on using the changeset viewer.