c c ::::: cuser.i: user parameters for specific problem c parameter( lengrkw = 580, lenint = 21 ) parameter( logout = 10 ) c common /grkArrays/ grkwork(lengrkw), igrkwork(lenint)