text:       type formula_info
          integer ::
       &       nform
          type(formula_list), pointer ::
       &       form_list
          type(formula_array), pointer ::
       &       form_arr(:)
        end type formula_info
  