put KIND in DVALUE

git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@4451 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2010-05-21 07:09:24 +00:00
parent dfc8d64da2
commit cd9cc82985

View File

@ -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