max/iphreeqc
1
0
Fork 0
mirror of https://git.gfz-potsdam.de/naaice/iphreeqc.git synced 2025-12-16 08:38:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

added code to initialize slength to zero for Fortran GetSelectedOutputValue

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@10768 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2016-01-30 01:24:53 +00:00
parent 0c8eb2c8c2
commit 993349370d
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/IPhreeqc_interface.F90
View File

@ -655,7 +655,7 @@ INTEGER FUNCTION GetSelectedOutputRowCount(id)
return return
END FUNCTION GetSelectedOutputRowCount 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 USE ISO_C_BINDING
IMPLICIT NONE IMPLICIT NONE
INTERFACE INTERFACE
@ -674,14 +674,17 @@ INTEGER FUNCTION GetSelectedOutputValue(id, row, col, vtype, dvalue, svalue, c_l
INTEGER, INTENT(out) :: vtype INTEGER, INTENT(out) :: vtype
DOUBLE PRECISION, INTENT(out) :: dvalue DOUBLE PRECISION, INTENT(out) :: dvalue
CHARACTER(len=*), INTENT(out) :: svalue CHARACTER(len=*), INTENT(out) :: svalue
INTEGER, INTENT(out), OPTIONAL :: c_length INTEGER, INTENT(out), OPTIONAL :: slength
INTEGER :: sz, sz_fortran INTEGER :: sz, sz_fortran
sz = len(svalue) sz = len(svalue)
sz_fortran = sz sz_fortran = sz
GetSelectedOutputValue = GetSelectedOutputValueF(id, row, col, vtype, dvalue, svalue, sz) GetSelectedOutputValue = GetSelectedOutputValueF(id, row, col, vtype, dvalue, svalue, sz)
if (sz > sz_fortran .and. present(c_length)) then if (present(slength)) then
c_length = sz slength = 0
endif if (sz > sz_fortran) then
slength = sz
endif
endif
return return
END FUNCTION GetSelectedOutputValue END FUNCTION GetSelectedOutputValue