RosettaCodeData/Task/Tree-traversal/Fortran/tree-traversal-2.f

4 lines
67 B
Fortran

DO GASP = 1,MAXLEVEL
CALL TARZAN(1,HOW)
END DO