call COST_AVERAGESFIELDS( mytime, mythid )
CALL COST_AVERAGESFIELDS( mytime, mythid )
subroutine COST_AVERAGESFIELDS( mytime, mythid )