subroutine udsecurrent (
C Write only -
* surfacecurrent,
C Read only -
* coords, nBlock,
* i_array, niarray,
* r_array, nrarray,
* c_array, ncarray )
C
include 'aba_param.inc'
C
dimension surfacecurrent(nBlock,*),
* coords(nBlock,*),
* i_array(*),
* r_array(*)
C
character*80 c_array(*)
C
parameter( i_udsecurr_kstep = 1,
* i_udsecurr_kinc = 2,
* i_udsecurr_noel = 3,
* i_udsecurr_currtyp = 4,
* i_udsecurr_phase = 5,
* i_udsecurr_proc = 6)
C
parameter( ir_udsecurr_time_1 = 1,
* ir_udsecurr_time_2 = 2,
* ir_udsecurr_time_3 = 3 )
C
parameter( ic_udsecurr_surf = 1)
C
parameter( i_currtyp_tangential = 1 )
C
parameter( i_proc_lf_th = 1,
* i_proc_lf_td = 2,
* i_proc_ms = 3 )
C
parameter( i_udsecurr_phase_real = 1,
* i_udsecurr_phase_imag = 2 )
C
user coding to define surfacecurrent
return
end