Nodes of different colours represent the following:
Solid arrows point from a file to a file which depends upon it. A file is dependent upon another if the latter must be compiled before the former can be.
program volatile_doctest use befor64_pack_data_m use befor64 use penf real(R8P) :: a1(1) real(R4P) :: a2(1) integer(I1P), allocatable :: pack(:) a1(1) = 0 a2(1) = 1 call pack_data(a1=a1, a2=a2, packed=pack) print *, pack(size(pack, dim=1)) endprogram volatile_doctest