User Subroutine Interface
subroutine ufluidpipefriction (
C Write only -
* friction,
C Read only -
* flow, rho, visc, rough,
* dia, area,
* ndim, jelno, kstep, kinc,
* time, coords,
* niarray,
* i_array,
* nrarray,
* r_array,
* ncarray,
* c_array)
include 'aba_param.inc'
C
dimension time(2),
* coords(2*ndim),
* i_array(niarray),
* r_array(nrarray)
C
character*80 c_array(ncarray)
C
user coding to define friction
return
end