openfilefluid.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	openfilefluid (jobname)

Function/Subroutine Documentation

openfilefluid()

subroutine openfilefluid

(

character*132

jobname

)

!
      implicit none
!
      character*132 jobname,fnfrd,fncvg
      integer i
!
!     opening frd file
!
      do i=1,132
         if(jobname(i:i).eq.' ') exit
      enddo
      i=i-1
      if(i.gt.128) then
         write(*,*) 
     &     '*ERROR in openfilefluid: input file name is too long:'
         write(*,'(a132)') jobname(1:132)
         write(*,*) '       exceeds 128 characters'
         call exit(201)
      endif
!
      fnfrd=jobname(1:i)//'f.frd'
      open(13,file=fnfrd(1:i+5),status='unknown',position='append')
!
      return