Fix incorrect name/label in F90 sample

Cantera · Aug 9, 2022 · 9747fe8 · 9747fe8
1 parent 9b25602
commit 9747fe8
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/samples/f90/demo.f90 b/samples/f90/demo.f90
@@ -155,19 +155,19 @@ subroutine demo_surf(surf, nsp, nrxn)
   type(phase_t) surf
   integer :: nsp, nrxn, i
   character*40 equation
-  double precision :: kf(nrxn), ropnet(nrxn)
+  double precision :: ropf(nrxn), ropnet(nrxn)
 
   write(*,*)
   write(*,*) '********   Interface Kinetics Test   ********'
   write(*,*)
 
-  call getFwdRatesOfProgress(surf, kf)
+  call getFwdRatesOfProgress(surf, ropf)
   call getNetRatesOfProgress(surf, ropnet)
 
-  write(*,*) 'Equation                                     k_fwd        Net rate'
+  write(*,*) 'Equation                                    Fwd rate      Net rate'
   do i = 1, nrxn
     call getReactionString(surf, i, equation)
-    write(*,60) equation, kf(i), ropnet(i)
+    write(*,60) equation, ropf(i), ropnet(i)
 60  format(' ',a40, e14.5, e14.5)
   end do
 end subroutine demo_surf
diff --git a/test_problems/fortran/f90_demo_blessed.txt b/test_problems/fortran/f90_demo_blessed.txt
@@ -81,7 +81,7 @@ Thermal conductivity:     0.16396      W/m/K
 
  ********   Interface Kinetics Test   ********
 
- Equation                                     k_fwd        Net rate
+ Equation                                    Fwd rate      Net rate
  H2 + 2 PT(S) => 2 H(S)                     0.33954E-01   0.33954E-01
  2 H(S) => H2 + 2 PT(S)                     0.00000E+00   0.00000E+00
  H + PT(S) => H(S)                          0.00000E+00   0.00000E+00