Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
elemental function bctoi_I1P(bstr,knd)result(n)!< Convert bit-string to integer.!<!<```fortran!< use penf!< print FI1P, bcton('00000001', knd=1_I1P)!<```!=> 1 <<<character(*),intent(in)::bstr!< String containing input number.integer(I1P),intent(in)::knd!< Number kind.integer(I1P)::n!< Number returned.read(bstr,'(B'//trim(str(bit_size(knd),.true.))//'.'//trim(str(bit_size(knd),.true.))//')')nendfunction bctoi_I1P