RosettaCodeData/Task/Documentation/Fortran/documentation.f

4 lines
161 B
FortranFixed
Raw Permalink Normal View History

2023-07-01 11:58:00 -04: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.