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

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 2f2e7000c3
commit 067b4c2403
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
IPhreeqc_interface.F90
View File

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