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.
Source Code
elemental subroutine b64_decode_string(code,s)!< Decode a base64 code into a scalar string.!<!<```fortran!< use befor64!< use penf!< character(:), allocatable :: code64!< code64 = repeat(' ',5)!< call b64_decode(code='aGVsbG8=',s=code64)!< print "(L1)", code64=='hello'!<```!=> T <<<character(*),intent(in)::code!< Encoded scalar.character(*),intent(out)::s!< String to be decoded.integer(I1P),allocatable::nI1P(:)!< One byte integer array containing n.allocate(nI1P(1:byte_size(s)));nI1P=0_I1Pcall decode_bits(code=code,bits=nI1P)s=transfer(nI1P,s)endsubroutine b64_decode_string