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
pure subroutine b64_decode_I2_a(code,n)!< Decode a base64 code into an array numbers (I2P).!<!<```fortran!< use befor64!< use penf!< integer(I2P) :: array_I2(1:2)!< call b64_decode(code='Nf/2/w==',n=array_I2)!< print "(L1)", str(n=array_I2)==str(n=[-203_I2P,-10_I2P])!<```!=> T <<<character(*),intent(in)::code!< Encoded array.integer(I2P),intent(out)::n(1:)!< Array of numbers to be decoded.integer(I1P),allocatable::nI1P(:)!< One byte integer array containing n.allocate(nI1P(1:size(n,dim=1)*BYI2P));nI1P=0_I1Pcall decode_bits(code=code,bits=nI1P)n=transfer(nI1P,n)endsubroutine b64_decode_I2_a