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

added (I4P) to output integer type of Get_Unit function since plain integer resulted in compiler error (with ifort 14)

This commit is contained in:
Philip Eisenlohr 2014-01-13 16:52:06 +00:00
parent 0f101c8dbf
commit ddc88d4cd6
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.