35 logical,
intent(out),
optional:: err
36 logical,
intent(in),
optional:: global
37 character(len = *),
parameter:: subnam =
"GTVarCopyAttrAll" 38 character(len = STRING):: aname
41 if (
present(err)) err = .false.
logical function, public present_and_true(arg)
character, parameter, public gt_plus
logical function, public present_and_false(arg)
subroutine gtvarcopyattr(to, attrname, from, err)
subroutine, public dbgmessage(fmt, i, r, d, L, n, c1, c2, c3, ca)
subroutine, public beginsub(name, fmt, i, r, d, L, n, c1, c2, c3, ca, version)
Provides kind type parameter values.
subroutine gtvarcopyattrall(to, from, err, global)
subroutine, public endsub(name, fmt, i, r, d, L, n, c1, c2, c3, ca)
integer, parameter, public string
Character length for string.