 program OW_arealsht
 use sep 
 call sep_init()
 call sep_begin_prog()
 call owparam()
 call owctrlwei()
 call sep_end_prog()
 end program OW_arealsht
