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)
subroutine fortran_open(filename, lunit, format, position, iret)