]>
Commit | Line | Data |
---|---|---|
eb86c378 JB |
1 | --- psplot/psplot.txt.orig 2001-08-10 16:12:09.000000000 +0200 |
2 | +++ psplot/psplot.txt 2013-03-06 20:50:24.569471004 +0100 | |
3 | @@ -7439,6 +7439,7 @@ | |
4 | character*132 cmdstr,curfnt | |
5 | character*80 fileout | |
6 | character tim*8,dat*9 | |
7 | + character zone*5 | |
8 | character*1 timer(8),dater(9) | |
9 | equivalence(timer(1),tim),(dater(1),dat) | |
10 | common/conre1/ioffp,spval | |
11 | @@ -7493,8 +7494,7 @@ | |
12 | cmdstr= '%%Title: '//fileout(1:lenstr(fileout,80)) | |
13 | ||
14 | call filler | |
15 | - call time(tim) | |
16 | - call date(dat) | |
17 | + call date_and_time(dat, tim, zone) | |
18 | if(timer(1).eq.' ')timer(1)='0' | |
19 | if(dater(1).eq.' ')dater(1)='0' | |
20 | cmdstr= '%%CreationDate: '//DAT//' '//TIM |