RosettaCodeData/Task/Documentation/Fortran/documentation.f

4 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.