
# limit of equation length. Silent truncation.
eqlim=60

!read names

!if $cmd=reply and $status!=waiting
 error=double_reply
 !exit
!endif

!if $cmd=reply and $status=waiting
 !for i=1 to $objdim+1
  l_=!line $i of $points
  !distribute items $l_ into x_$i,y_$i,z_$i,u_$i,v_$i,w_$i
 !next i
 !read proc.$eqtype
 !if $error!=$empty
  !exit
 !endif

 status=done
 module_score=0
 !if $diagnostics=good
  module_score=10
 !endif
 !if $diagnostics=redundant
  module_score=6
 !endif
 module_score=$[rint(10*$module_score/($penalty+1))/10]
 wims_module_log=score $module_score/10
!endif

