Trailing-Edge
-
PDP-10 Archives
-
TRAFFIC-20_V4_840514
-
traffic-demonstrations/d132.for
There are no other files named d132.for in the archive.
PROGRAM D132
DIMENSION DATA(100)
CALL TFRSTA
CALL TFRINI(DATA,'DEM132.DAT',0,IERROR)
CALL TFRRD(0,IEND,IERROR)
CALL TFRSTP
STOP
END