From 993349370d31c5228474ab536f6b1a5fd013ba5c Mon Sep 17 00:00:00 2001 From: Scott R Charlton Date: Sat, 30 Jan 2016 01:24:53 +0000 Subject: [PATCH] added code to initialize slength to zero for Fortran GetSelectedOutputValue git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@10768 1feff8c3-07ed-0310-ac33-dd36852eb9cd --- src/IPhreeqc_interface.F90 | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/src/IPhreeqc_interface.F90 b/src/IPhreeqc_interface.F90 index 8e38f3b8..c8b30e71 100644 --- a/src/IPhreeqc_interface.F90 +++ b/src/IPhreeqc_interface.F90 @@ -655,7 +655,7 @@ INTEGER FUNCTION GetSelectedOutputRowCount(id) return END FUNCTION GetSelectedOutputRowCount -INTEGER FUNCTION GetSelectedOutputValue(id, row, col, vtype, dvalue, svalue, c_length) +INTEGER FUNCTION GetSelectedOutputValue(id, row, col, vtype, dvalue, svalue, slength) USE ISO_C_BINDING IMPLICIT NONE INTERFACE @@ -674,14 +674,17 @@ INTEGER FUNCTION GetSelectedOutputValue(id, row, col, vtype, dvalue, svalue, c_l INTEGER, INTENT(out) :: vtype DOUBLE PRECISION, INTENT(out) :: dvalue CHARACTER(len=*), INTENT(out) :: svalue - INTEGER, INTENT(out), OPTIONAL :: c_length + INTEGER, INTENT(out), OPTIONAL :: slength INTEGER :: sz, sz_fortran sz = len(svalue) sz_fortran = sz GetSelectedOutputValue = GetSelectedOutputValueF(id, row, col, vtype, dvalue, svalue, sz) - if (sz > sz_fortran .and. present(c_length)) then - c_length = sz - endif + if (present(slength)) then + slength = 0 + if (sz > sz_fortran) then + slength = sz + endif + endif return END FUNCTION GetSelectedOutputValue