Changeset 3800 for palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm

Timestamp:

Mar 15, 2019 4:40:25 PM (6 years ago)

Author:

forkel

Message:

added leading blanks to dummy statements

File:

• palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/bin/kpp4palm.ksh (modified) (5 diffs)

palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/bin/kpp4palm.ksh

@@ -41 +41 @@
 # $Id$ 
 # Removed edit of phot(nphot) for version edit phot(nphot), now done in fortran_file.C (15.03.2019, forkel)
-# Editing with sed to add dummy statements toavoud unused variables
+# Editing with sed to add dummy statements toavoud unused variables (15.03.2019, forkel)
 # 
 # 3780 2019-03-05 11:19:45Z forkel
@@ -344 +344 @@
 #
 sed -i -e '/cfactor =/a !  ' kk_kpp.f90
-sed -i -e '/cfactor =/a    IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE ' kk_kpp.f90
+sed -i -e '/cfactor =/a BLANKS  IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE ' kk_kpp.f90
 sed -i -e '/cfactor =/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
 sed -i -e '/cfactor =/a !  ' kk_kpp.f90
@@ -351 +351 @@
 then
 sed -i -e '/! Computation of equation rates/i ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
-sed -i -e '/! Computation of equation rates/i IF ( f(vl,nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
+sed -i -e '/! Computation of equation rates/i BLANKS  IF ( f(vl,nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
 sed -i -e '/! Computation of equation rates/i !  ' kk_kpp.f90
 else
 sed -i -e '/! Computation of equation rates/i ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
-sed -i -e '/! Computation of equation rates/i IF ( f(nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
+sed -i -e '/! Computation of equation rates/i BLANKS  IF ( f(nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
 sed -i -e '/! Computation of equation rates/i !  ' kk_kpp.f90
 fi
@@ -361 +361 @@
 if [[ $MODE = "vector" ]]
 then
-sed -i -e '/REAL(kind=dp) :: b/a   IF ( f(vl,nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
+sed -i -e '/REAL(kind=dp) :: b/a  BLANKS  IF ( f(vl,nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
 sed -i -e '/REAL(kind=dp) :: b/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
 sed -i -e '/REAL(kind=dp):: b/a !' kk_kpp.f90
 else
-sed -i -e '/REAL(kind=dp):: b/a   IF ( f(nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
+sed -i -e '/REAL(kind=dp):: b/a BLANKS  IF ( f(nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
 sed -i -e '/REAL(kind=dp):: b/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
 sed -i -e '/REAL(kind=dp):: b/a !' kk_kpp.f90
 fi
 
-sed -i -e '/one=1.0_dp/a       IF ( incx == 0 )  CONTINUE' kk_kpp.f90
+sed -i -e '/one=1.0_dp/a BLANKS  IF ( incx == 0 )  CONTINUE' kk_kpp.f90
 sed -i -e '/one=1.0_dp/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
 sed -i -e '/one=1.0_dp/a !  ' kk_kpp.f90
@@ -376 +376 @@
 sed -i -e '/IF (alpha .eq. zero)RETURN/i !  ' kk_kpp.f90
 sed -i -e '/IF (alpha .eq. zero)RETURN/i ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
-sed -i -e '/IF (alpha .eq. zero)RETURN/i     IF ( incx == 0  .OR.  incy == 0 )  CONTINUE' kk_kpp.f90
-
-sed -i -e '/INTENT(INOUT):: b(n)/a       IF ( pivot(1) == 0 )  CONTINUE' kk_kpp.f90
+sed -i -e '/IF (alpha .eq. zero)RETURN/i BLANKS  IF ( incx == 0  .OR.  incy == 0 )  CONTINUE' kk_kpp.f90
+
+sed -i -e '/INTENT(INOUT):: b(n)/a BLANKS  IF ( pivot(1) == 0 )  CONTINUE' kk_kpp.f90
 sed -i -e '/INTENT(INOUT):: b(n)/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
 sed -i -e '/INTENT(INOUT):: b(n)/a !  ' kk_kpp.f90
+
+sed -i -e '1,$s/BLANKS /  /  ' kk_kpp.f90
 
 if [[ -e $OUTDIR/${OUTFILE}.f90 ]]