User Subroutine Interface
subroutine ufluidconnectorloss (
C Write only -
* ak1, ak2,
C Read only -
* coords, flow, rho, visc,
* dia, area,
* ndim, jelno, kStep, kInc,
* time,
* nIarray,
* i_array,
* nRarray,
* r_array,
* ncarray,
* c_array)
C
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 connector friction values
return
end