RosettaCodeData/Task/Documentation/Fortran/documentation.f
2023-07-01 13:44:08 -04: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.