Skip to content

Usage of "open"

Ondřej Čertík edited this page Jan 3, 2020 · 5 revisions

Below we gather all different usage of open from projects at List-of-popular-open-source-Fortran-projects using:

git grep "open(" '*.[fF]90'

ElmerFEM

open(io,file=trim(Filename))
open(IO,file=trim(ObsFileName),status = 'old',iostat = ok)
open(io,file=trim(NormFile),position='append')
open(unit=10, file="save.dat", status='old', action="read")
open(newunit=iu, file=f, action='read', status='old')

WRF

open(10, file='KPP_ROOT.dat')
open(2)
open(unit=1,file='./p3_lookup_table_1.dat-v4.1',status='unknown')
open(11,file='time_window.nl',status='old',iostat=istatus)
open(10, file='soundings.little_r', form='formatted', status='replace')
open(12,file='filtered_obs',status='old')
open(unit=12,file='scor.asc',form='formatted')
open(unit=nml_unit, file='namelist.da_rad_diags', status='old', form='formatted')
open(unit_all,   file=trim(outname_all),  form='formatted', status='unknown')
open(unit=unit, file='gen_be_ensmean_nl.nl', &
     form='formatted', status='old', action='read')
open(unit = namelist_unit, file = trim(namelist_file), &  
     status = 'old' , access = 'sequential', &  
     form   = 'formatted', action = 'read', &
     iostat = io_status )
open(grads_dat_unit, file=trim(datfile), form="unformatted",access="direct",  &
      recl=rec_length,status='unknown')
open(109,form="unformatted",file=filename_factor,access="direct",recl=8)
open(19,file='plumegen9.'//cixx//'.gra',         &
     form='unformatted',access='direct',status='unknown',  &
     recl=4*nrectotal)
Clone this wiki locally