1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
subroutine fmtdat(date, time, now, form)
integer date(100), time(100)
integer now(7), form
date(1) = now(2) / 10 + 48
date(2) = mod(now(2), 10) + 48
date(3) = 47
date(4) = now(3) / 10 + 48
date(5) = mod(now(3), 10) + 48
date(6) = 47
date(7) = mod(now(1), 100) / 10 + 48
date(8) = mod(now(1), 10) + 48
date(9) = -2
time(1) = now(4) / 10 + 48
time(2) = mod(now(4), 10) + 48
time(3) = 58
time(4) = now(5) / 10 + 48
time(5) = mod(now(5), 10) + 48
time(6) = 58
time(7) = now(6) / 10 + 48
time(8) = mod(now(6), 10) + 48
time(9) = -2
return
end
|
