WRITE_FILEOUT.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	write_fileout (file_name, count, proc, nv, vec)
	Writes output results for Restart.

Function/Subroutine Documentation

write_fileout()

subroutine write_fileout	(	character*70	file_name,
		integer*4	count,
		integer*4	proc,
		integer*4	nv,
		real*8, dimension(nv)	vec
	)

Writes output results for Restart.

Author

Ilario Mazzieri

Date

September, 2013

Version

1.0

Parameters

[in,out]	file_name	directory where saving files
[in]	count	index for snapshot
[in]	proc	mpi process id
[in]	nv	number of values to print
[in]	vec	values to print

Definition at line 29 of file WRITE_FILEOUT.f90.

      
      
      character*70 :: file_name
 
      integer*4 :: count,proc,nv
      real*8, dimension(nv) :: vec
      
      character*70 :: out_file
      integer*4 :: i,lname
      
      lname = len_trim(file_name)
      out_file = file_name(1:lname) // '000000_0000.out'
      
      if (proc .lt. 10) then
         write(out_file(lname+6:lname+6),'(i1)') proc
      else if (proc .lt. 100) then
         write(out_file(lname+5:lname+6),'(i2)') proc
      else if (proc .lt. 1000) then
         write(out_file(lname+4:lname+6),'(i3)') proc     
      else if (proc .lt. 10000) then
         write(out_file(lname+3:lname+6),'(i4)') proc      
      else if (proc .lt. 100000) then
         write(out_file(lname+2:lname+6),'(i5)') proc
      else
         write(out_file(lname+1:lname+6),'(i6)') proc
      endif
      
      if (count .lt. 10) then
         write(out_file(lname+11:lname+11),'(i1)') count
      else if (proc .lt. 100) then
         write(out_file(lname+10:lname+11),'(i2)') count
      else if (proc .lt. 1000) then
         write(out_file(lname+9:lname+11),'(i3)') count    
      else
         write(out_file(lname+8:lname+11),'(i4)') count
      endif
               
      open(20+proc, file=out_file)
      
      do i = 1,nv
         write(20+proc,*) vec(i)
      enddo
      
      close(20+proc)
      
      return