(manchmal auch schon in Fortran 77)
( als PDF-Datei )
character date*8, time*10, zone*5 integer values(8) ... call date_and_time(date,time,zone,values)Die zurückgegebenen Werte der Parameter haben das folgende Format:
date | JJJJMMTT | values(1) | Jahr | values(5) | Stunde |
time | hhmmss.sss | values(2) | Monat | values(6) | Minute |
zone | ±hhmm | values(3) | Tag | values(7) | Sekunde |
values(4) | Differenz zur Weltzeit | values(8) | Millisekunde |
integer count, count_rate, count_max ... call system_clock(count, count_rate, count_max)Bedeutung der Rückgabewerte:
count | Rechnerabhängiger Zählerwert |
count_rate | Wie oft wird count pro Sekunde erhöht |
count_max | nach Erreichen dieses Wertes beginnt count wieder bei 0 |
Beispiel:
integer start, ende, rate, cmax real time call system_clock(start,rate,cmax) ... ! Anweisungen, deren Dauer zu messen ist call system_clock(ende) time=float(ende-start)/float(rate) ! evtl. cmax beachten! write(*,*) "Zeit in Sekunden: ",time
real time ... call cpu_time(time)Rückgabewert des Parameters time ist die bisher (seit Start des Programms) verbrauchte CPU-Zeit mit der Maßeinheit ,,Sekunde''.