RosettaCodeData/Task/Documentation/Fortran/documentation.f
2016-12-05 22:15:40 +01:00

3 lines
161 B
Fortran

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.