Return the number of registers used.
Number of registers used.
pure function registers_number()
!< Return the number of registers used.
integer(I_P) :: registers_number !< Number of registers used.
registers_number = registers
endfunction registers_number