55 lines
1.8 KiB
Fortran
55 lines
1.8 KiB
Fortran
!================================================================================
|
|
! M_IO - module that contains the I/O related subroutines.
|
|
!
|
|
! Time-stamp: <2008-11-04 15:31:31 (chumakov)>
|
|
!================================================================================
|
|
|
|
module m_io
|
|
|
|
use m_openmpi
|
|
implicit none
|
|
|
|
character*6 :: file_ext, ex_file_ext
|
|
character*80 :: fname
|
|
! output file handle
|
|
integer :: in=10, out=11
|
|
|
|
|
|
|
|
!================================================================================
|
|
contains
|
|
!================================================================================
|
|
!================================================================================
|
|
subroutine m_io_init
|
|
|
|
implicit none
|
|
|
|
file_ext(:) = '0'
|
|
ex_file_ext(:) = '0'
|
|
write(fname,"('d',i4.4,'.txt')") myid_world
|
|
open(out,file=fname,position="append")
|
|
write(out,"('-------------------------------------')")
|
|
write(out,"('Process ',i4,' of ',i4,'(',i4.4,') is alive.')") &
|
|
myid_world, numprocs_world, numprocs_world-1
|
|
write(out,"('My task is ""',a5,'"", my id is',i4)") task, myid
|
|
call flush(out)
|
|
|
|
return
|
|
end subroutine m_io_init
|
|
|
|
!================================================================================
|
|
!================================================================================
|
|
subroutine m_io_exit
|
|
implicit none
|
|
write(out,"('Done.')")
|
|
close(out)
|
|
return
|
|
end subroutine m_io_exit
|
|
|
|
!================================================================================
|
|
!================================================================================
|
|
|
|
|
|
!================================================================================
|
|
!================================================================================
|
|
end module m_io
|