Fortran - crear diagrama de flujo a partir de codigo fuente

Buenas noches quiero ver quien me puede ayudar a crear un diagrama de flujo a partir de un código fuente de fortran 4.0

Manda tu código!

PROGRAM Suma_de_Vectores
call sumavec()
END PROGRAM

SUBROUTINE sumavec()
INTEGER n, i
REAL, dimension (:), allocatable :: V1(:), V2(:), VR(:)
WRITE(*,*) "Recuerda que los vectores deben tener el mismo tamaño"
WRITE(*,*) "Tamaño de los vectores: Cantidad de números"
READ*, n
ALLOCATE (V1(n))
WRITE(*,*) "Dame datos del primer vector"
DO i=1, n, 1
READ*, V1(i)
END DO
ALLOCATE (V2(n))
WRITE(*,*) "Dame datos del segundo vector"
DO i=1, n, 1
READ*, V2(i)
END DO
ALLOCATE (VR(n))
DO i=1, n, 1
VR(i)=V1(i)+V2(i)
END DO
WRITE(*,*) "El vector resultante es:"
DO i=1, n, 1
WRITE(*,*) VR(i)
END DO
RETURN
END SUBROUTINE

La version 4.1 trae un code view, con este se puede generar un diagrama de flujo en base al codigo fuente.

digraph proceso_comercial_ron_bacardi {
node [shape=box];

subgraph cluster_ingredientes {
label = "Importación de ingredientes";
materia_prima [label="Materia prima\n(caña de azúcar, levadura, agua)"];
}

subgraph cluster_produccion {
label = "Producción de ron";
destilacion [label="Destilación y envejecimiento"];
}

subgraph cluster_embotellado {
label = "Embotellado y empaquetado";
embotellado [label="Embotellado y etiquetado"];
}

subgraph cluster_exportacion {
label = "Exportación";
exportacion [label="Exportación a diferentes países"];
}

subgraph cluster_complementarios {
label = "Importación de productos complementarios";
complementarios [label="Productos complementarios\n(mejcladores, frutas, adornos)"];
}

subgraph cluster_venta {
label = "Venta al público";
venta [label="Venta directa al público"];
}

materia_prima -> destilacion;
destilacion -> embotellado;
embotellado -> exportacion;
exportacion -> complementarios;
complementarios -> venta;
}