do k=1,NUSERCOST
_RL mult_usercost(NUSERCOST)
character*(MAX_LEN_FNAM) usercost_errfile(NUSERCOST)
character*(MAX_LEN_FNAM) usercost_datafile(NUSERCOST)
INTEGER NUSERCOST
PARAMETER ( NUSERCOST=10 )
_RL objf_usercost(NUSERCOST,nsx,nsy)
_RL num_usercost(NUSERCOST,nsx,nsy)