223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fixed integer type clash in Get_Unit function

This commit is contained in:
Philip Eisenlohr 2014-01-16 22:02:03 +00:00
parent 68bfd79044
commit fdd4e224ce
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Lib_VTK_IO.f90
View File

@ -481,7 +481,7 @@ contains
integer function Get_Unit(Free_Unit) integer function Get_Unit(Free_Unit)
!--------------------------------------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------------------------------------
implicit none implicit none
integer, intent(OUT), optional:: Free_Unit !< Free logic unit. integer(I4P), intent(OUT), optional:: Free_Unit !< Free logic unit.
integer:: n1 !< Counter. integer:: n1 !< Counter.
integer:: ios !< Inquiring flag. integer:: ios !< Inquiring flag.
logical:: lopen !< Inquiring flag. logical:: lopen !< Inquiring flag.