subroutine second( time ) * * HSL compatible timing routine * real time real tarray(2), etime external etime time = 1000.0 * etime(tarray) return end