NCEPLIBS-bufr  11.5.0
 All Data Structures Files Functions Variables Pages
fortran_open.f90
Go to the documentation of this file.
1 
3 
13 
14 subroutine fortran_open(filename, lunit, format, position, iret)
15  implicit none
16  character*(*), intent(in) :: filename, format, position
17  integer, intent(in) :: lunit
18  integer, intent(out) :: iret
19  open(lunit, file=trim(filename), form=trim(format), &
20  position=trim(position), iostat=iret)
21  return
22 end
subroutine fortran_open(filename, lunit, format, position, iret)