Hetval subroutine

Hi 

can anyone share a simple sample Hetval subroutine with written output for STATEV(1).