2 ! PR69110 ICE with NEWUNIT
3 subroutine open_file_safe(fname
, fstatus
, faction
, fposition
, funit
)
4 character(*), intent(in
) :: fname
, fstatus
, faction
, fposition
5 integer, intent(out
) :: funit
6 open(newunit
=funit
, status
=fstatus
)
7 end subroutine open_file_safe
