writeview.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	writeview (ntr, adview, auview, fenv, nzsrad, jobnamef)

Function/Subroutine Documentation

writeview()

subroutine writeview	(	integer	ntr,
		real*8, dimension(*)	adview,
		real*8, dimension(*)	auview,
		real*8, dimension(*)	fenv,
		integer	nzsrad,
		character*132, dimension(*)	jobnamef
	)

!     
!     writing the viewfactors to file
!
      implicit none
!
      character*132 jobnamef(*),fnvw
!     
      integer ntr,nzsrad,i,k
!
      real*8 adview(*),auview(*),fenv(*)
!     
      write(*,*) 'Writing the viewfactors to file'
      write(*,*)
!     
      if(jobnamef(3)(1:1).eq.' ') then
         do i=1,132
            if(jobnamef(1)(i:i).eq.' ') exit
         enddo
         i=i-1
         fnvw=jobnamef(1)(1:i)//'.vwf'
      else
         fnvw=jobnamef(3)
      endif
      open(10,file=fnvw,status='unknown',form='unformatted',
     &     access='sequential',err=10)
!     
      write(10) (adview(k),k=1,ntr)
      write(10) (auview(k),k=1,2*nzsrad)
      write(10)(fenv(k),k=1,ntr)
      close(10)
!     
      return
!
 10   write(*,*) '*ERROR in radmatrix: could not open file ',fnvw
      call exit(201)