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

fixed mismatched intents warning

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@9643 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2015-05-12 22:52:34 +00:00
parent eabcb897b1
commit 59af250088
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/IPhreeqc_interface.F90
View File

@ -183,7 +183,7 @@ SUBROUTINE GetDumpFileName(id, fname)
END SUBROUTINE GetDumpFileNameF END SUBROUTINE GetDumpFileNameF
END INTERFACE END INTERFACE
INTEGER, INTENT(in) :: id INTEGER, INTENT(in) :: id
CHARACTER(len=*), INTENT(inout) :: fname CHARACTER(len=*), INTENT(out) :: fname
call GetDumpFileNameF(id, fname, len(fname)) call GetDumpFileNameF(id, fname, len(fname))
return return
END SUBROUTINE GetDumpFileName END SUBROUTINE GetDumpFileName
@ -452,7 +452,7 @@ SUBROUTINE GetOutputFileName(id, fname)
END SUBROUTINE GetOutputFileNameF END SUBROUTINE GetOutputFileNameF
END INTERFACE END INTERFACE
INTEGER, INTENT(in) :: id INTEGER, INTENT(in) :: id
CHARACTER(len=*), INTENT(inout) :: fname CHARACTER(len=*), INTENT(out) :: fname
call GetOutputFileNameF(id, fname, len(fname)) call GetOutputFileNameF(id, fname, len(fname))
return return
END SUBROUTINE GetOutputFileName END SUBROUTINE GetOutputFileName
@ -1225,4 +1225,4 @@ INTEGER FUNCTION SetSelectedOutputStringOn(id, selected_output_string_on)
END FUNCTION SetSelectedOutputStringOn END FUNCTION SetSelectedOutputStringOn
END MODULE END MODULE
#endif #endif

8
tests/test_f90.F90
View File

@ -201,14 +201,14 @@ FUNCTION TestGetSetName(id,getFuncName,setFuncName)
INTEGER(KIND=4) TestGetSetName INTEGER(KIND=4) TestGetSetName
INTERFACE INTERFACE
SUBROUTINE getFuncName(id,fname) SUBROUTINE getFuncName(id,fname)
INTEGER(KIND=4) id INTEGER(KIND=4), INTENT(in) :: id
CHARACTER(LEN=*) fname CHARACTER(LEN=*), INTENT(out) :: fname
END SUBROUTINE getFuncName END SUBROUTINE getFuncName
END INTERFACE END INTERFACE
INTERFACE INTERFACE
FUNCTION setFuncName(id,fname) FUNCTION setFuncName(id,fname)
INTEGER(KIND=4) id INTEGER(KIND=4), INTENT(in) :: id
CHARACTER(LEN=*) fname CHARACTER(LEN=*), INTENT(in) :: fname
INTEGER(KIND=4) setFuncName INTEGER(KIND=4) setFuncName
END FUNCTION setFuncName END FUNCTION setFuncName
END INTERFACE END INTERFACE