2 c -----------------------------------------------------------------------------
4 c include the files with the various keywords and
integer flags.
9 c include the files specifying the array dimensions and the
common blocks.
18 c include
file with version string
22 character(len=80)::buffer
24 c -----------------------------------------------------------------------------
26 call writebuffer(buffer)
27 213
format(
'SCREAMER is now writing to the output file')
30 if (iset .eq. all_cycles)
then
32 c create files for future processing, one
file for each request.
38 c create screamer compatible tables, one
file for each request.
50 c ------------------------- section
if pff is used ------------------
62 c -------------------------
End pff section --------------
65 c create comma separated variable(csv)
file
71 c create standard de fichiers communs(sfc)
file
77 c now delete the screamer output
parameter file
82 close (iunit,status=
'delete')
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numpff
subroutine open_outfile(iunit, status, ierr)
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numtab
c *****************************************************************************c Common blocks for SCREAMER output and tabling c & numufo
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numcsv
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line c
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numfil
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character numsfc
c This is a Fortran header file