diff --git a/test/kinn.f b/test/kinn.f index 5a0162f1..7f5b733f 100644 --- a/test/kinn.f +++ b/test/kinn.f @@ -23,7 +23,7 @@ CALL EQUILIBRIUM_PHASES('calcite', 0.0, 0.010) CALL USER_PUNCH('Ca', 10) !!!! CALL OutputLines - iresult = Run(.FALSE., .FALSE., .FALSE., .TRUE.) + iresult = RunAccumulated() IF (iresult.NE.VR_OK) THEN CALL OutputLastError STOP