procedure, public mo_optical_props::ty_optical_props_arry::increment | ( | class(ty_optical_props_arry), intent(in) | op_in, |
class(ty_optical_props_arry), intent(inout) | op_io ) |
Routines for array classes: incrementing aincrement(b) adds the values of a to b, changing b and leaving a untouched