Expanded description
| Topic |
Description |
| Name |
getdateid |
| Synopsis |
/infobank/programs/html/ongoing/getdateid.for |
| Description |
Subroutine to get the data and ID from a record for ongoing.for
|
| Author |
Clint Steele 3/24/2008
|
| Reads |
read (TempUnit, '(a47,1x,a7)', end = 99)
* DatesLine, ShortID
|
| Writes |
write (DatesLine, '(47x)')
write (ShortID, '(7x)')
write (LongID, '(10x)')
|
| Calls |
call stringlen (ShortID, IDLength)
|
|