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