fdds_mod - initialize DDS dictionary for modification

SYNOPSIS

#include <fdds.h> (fixed-format sources)
#include <f90dds.h> (free-format sources)

integer function fdds_mod(dict, alias, value, title, hist)

character*(*) dict
character*(*) alias
character*(*) value
character*(*) title
character*(*) hist

[ Description | Input | Output | Examples ]

DESCRIPTION

fdds_mod initializes dictionaries to modify data. End users may define the dictionary name via alias. Programmers may provide a default dictionary name via value. If the dictionary doesn't exist, it is created and initialized using the hist dictionary. If it does exist, the title and bootstrap (par:) dictionaries are appended to it.

INPUT

Alias is a list of definition names, delimited by white space. If a name is specified, the bootstrap dictionaries are searched. If a definition is found, its value specifies a dictionary name.

Value provides a default name for the dictionary. It is used if a name can't be retrieved via alias. Title provides a brief description of the application program. It is inserted into the processing history to mark the beginning of parameters for a step.

Hist provides a dictionary name. If specified, the dictionary should contain the processing history. It is used to initialize output and modified dictionaries.

OUTPUT

The name(s) of the resulting dictionaries are returned in dict. The function always "0".

The dictionaries returned by fdds_mod are open in "print" mode. Modes are described in fdds_dict.

EXAMPLES

      character*1024 in, in, out, mod
      character*100 title
      title = 'XXX processing step'
      ...
      ! open input dictionary
      j = fdds_in(in, 'in', 'stdin:', title)
      ...
      ! start new history (no input data)
      j = fdds_in(in, ' ', ' ', title)
      ...
      ! open output dictionary
      j = fdds_out(out, 'out', 'stdout:', in)
      ...
      ! modify (or create) dictionary
      j = fdds_mod(mod, 'vel', ' ', title, in)
      ...

SEE ALSO

fdds_dict
fdds_in
fdds_out
fdds_mod

AUTHOR

R. L. Selzler, EPTG (May, 1994)