fortran_open.F90

Go to the documentation of this file.

 
 
   recursive subroutine fortran_open(filename, lunit, format, position, iret)
 
      use modv_im8b
 
      implicit none
      character*(*), intent(in) :: filename, format, position
      integer, intent(in)  :: lunit
      integer, intent(out) :: iret
      integer my_lunit
 
!     check for i8 integers
 
      if(im8b) then
         im8b=.false.
 
         call x84(lunit,my_lunit,1)
         call fortran_open(filename,my_lunit,format,position,iret)
         call x48(iret,iret,1)
 
         im8b=.true.
         return
      endif
 
      open(lunit, file=trim(filename), form=trim(format), &
                  position=trim(position), iostat=iret)
 
   end subroutine