home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programmer 7500
/
MAX_PROGRAMMERS.iso
/
INFO
/
PROGJRN
/
PJ_6_1.ARC
/
WHETLIN.ARC
/
SECONDP.FOR
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1987-12-22
|
272 b
|
12 lines
* a SECOND function for Prospero Fortran 77
* Author: M. Steven Baker
* Date: May 20, 1987
*
real function second()
integer*4 hh,mm,ss,hd
call TIME(hh,mm,ss,hd)
second = float(hh)*3600 + float(mm*60+ss) + float(hd)/100
end