From 9747fe8c9cab93f19d6a2efd3faaea3ccecb8d60 Mon Sep 17 00:00:00 2001 From: Ray Speth Date: Sun, 7 Aug 2022 14:33:14 -0400 Subject: [PATCH] Fix incorrect name/label in F90 sample --- samples/f90/demo.f90 | 8 ++++---- test_problems/fortran/f90_demo_blessed.txt | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/samples/f90/demo.f90 b/samples/f90/demo.f90 index 1038c0f7b..0acc922ae 100644 --- 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 index 945d5cfee..2e34c86a6 100644 --- 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