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

added leading blanks to dummy statements

File:
1 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 ]]
Note: See TracChangeset for help on using the changeset viewer.