single page | use frames summary class fields routine details file attributes
result = positive(w_in)
******* ******** ** User callable ** Transform an integer*2 unsigned array in a long positive one. ** Call: W1 = POSITIVE( W1 )