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.
subroutine unravel_3D(vector,cube,dim_v,dim_y,dim_x)implicit noneinteger,intent(in)::dim_v,dim_y,dim_xreal(xp),intent(in),dimension(:),allocatable::vectorreal(xp),intent(inout),dimension(:,:,:),allocatable::cubeinteger::i,j,k,i__i__=1do k=1,dim_xdo j=1,dim_ydo i=1,dim_vcube(i,j,k)=vector(i__)i__=i__+1end do end do end do end subroutine unravel_3D