RosettaCodeData/Task/Tree-traversal/Fortran/tree-traversal-2.f
2016-12-05 22:15:40 +01:00

3 lines
67 B
Fortran

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