RosettaCodeData/Task/Documentation/Fortran/documentation.f

4 lines
161 B
FortranFixed
Raw Permalink Normal View History

2016-12-05 22:15:40 +01:00
SUBROUTINE SHOW(A,N) !Prints details to I/O unit LINPR.
REAL*8 A !Distance to the next node.
INTEGER N !Number of the current node.