11 lines
359 B
Fortran
11 lines
359 B
Fortran
!================================================================================
|
|
!================================================================================
|
|
subroutine get_file_ext
|
|
use m_parameters, only : ITIME
|
|
use m_io, only : file_ext
|
|
implicit none
|
|
|
|
write(file_ext,"(i6.6)") itime
|
|
return
|
|
end subroutine get_file_ext
|
|
|