27 October 2008  10:17:36.632 AM
 
TIMESTAMP_PRB
  FORTRAN90 version
  Demonstrate the use of TIMESTAMP.
 
TEST01
  TIMESTAMP prints out the current wallclock time,
  including the year, month, day, hours, minutes,
  seconds, thousandths of a second, and AM/PM.
 
  This can be useful in keeping track of the date
  of execution of a particular program
  or to give a rough idea of the length of time
  required to run a program.
 
27 October 2008  10:17:36.633 AM
 
TEST02
  TIMESTRING returns the current wallclock time,
  including the year, month, day, hours, minutes,
  seconds, thousandths of a second, and AM/PM
  in a string, which the user may print or manipulate.
 
  TIMESTRING returned the value "27 October 2008  10:17:36.633 AM".
 
TEST03
  HMS_CURRENT_PRINT prints out the current HMS time
  (hours, minutes, seconds, thousandths of a second,
  and AM/PM) followed by a user-specified string.
 
  This might be useful in figuring out what routines
  are taking a long time.
 
Wallclock:  10:17:36.633 AM    Call random_number 1000 times.
Wallclock:  10:17:36.634 AM    Compute sine of random numbers.
Wallclock:  10:17:36.636 AM    All done!
  
   Computed value =    9606.2451    
 
TEST04
  HMS_DELTA_PRINT prints out the delta HMS time
  (hours, minutes, seconds, thousandths of a second,
  and AM/PM) followed by a user-specified string.
 
  This might be useful in figuring out what routines
  are taking a long time.
 
Delta Wallclock:  0:00:00.000    Zero out the clock.
Delta Wallclock:  0:00:00.009    Time to compute random numbers.
Delta Wallclock:  0:00:00.016    Time to compute sine of random numbers.
  
   Computed value =    95869.602    
 
TIMESTAMP_PRB
  Normal end of execution.
 
27 October 2008  10:17:36.661 AM