From cd9cc82985152727ceee8d89c68e381ec7780384 Mon Sep 17 00:00:00 2001 From: Scott R Charlton Date: Fri, 21 May 2010 07:09:24 +0000 Subject: [PATCH] put KIND in DVALUE git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@4451 1feff8c3-07ed-0310-ac33-dd36852eb9cd --- include/IPhreeqc.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/include/IPhreeqc.h b/include/IPhreeqc.h index cf40d234..036b6b01 100644 --- a/include/IPhreeqc.h +++ b/include/IPhreeqc.h @@ -667,7 +667,7 @@ Headings * INTEGER(KIND=4), INTENT(IN) :: ROW * INTEGER(KIND=4), INTENT(IN) :: COL * INTEGER(KIND=4), INTENT(OUT) :: VTYPE - * REAL*8, INTENT(OUT) :: DVALUE + * REAL(KIND=8), INTENT(OUT) :: DVALUE * CHARACTER(LEN=*), INTENT(OUT) :: SVALUE * INTEGER(KIND=4) :: GetSelectedOutputValue * END FUNCTION GetSelectedOutputValue