subroutine udempotential (
C Write only -
* vecPot,
C Read only -
* coords, nBlock,
* i_array, niarray,
* r_array, nrarray,
* c_array, ncarray )
C
include 'aba_param.inc'
C
dimension vecPot(nBlock,*),
* coords(nBlock,*),
* i_array(*),
* r_array(*)
C
character*80 c_array(*)
C
parameter( i_udempot_kstep = 1,
* i_udempot_kinc = 2,
* i_udempot_noel = 3,
* i_udempot_currtyp = 4,
* i_udempot_phase = 5,
* i_udempot_proc = 6)
C
parameter( ir_udempot_time_1 = 1,
* ir_udempot_time_2 = 2,
* ir_udempot_time_3 = 3 )
C
parameter( ic_udempot_surf = 1)
C
parameter( i_pottyp_mvp = 1 )
C
parameter( i_proc_lf_th = 1,
* i_proc_lf_td = 2,
* i_proc_ms = 3 )
C
parameter( i_udempot_phase_real = 1,
* i_udempot_phase_imag = 2 )
C
user coding to define vecPot
return
end