hex_ph_23_c.f90

!c

BV(1)=(2*(2*c-abs02+abs01))/c

BV(2)=0

BV(3)=(2*(2*c-abs02+abs01))/(3*c)

BV(4)=0

BV(5)=0

BV(6)=0

BV(7)=(2*(2*c-abs02+abs01))/(3*c)

BV(8)=0

BV(9)=(2*(2*c-abs02+abs01))/(9*c)

BV(10)=((c+d)*abs02+(c-d)*abs01)/c2

BV(11)=0

BV(12)=((c+d)*abs02+(c-d)*abs01)/(3*c2)

BV(13)=0

BV(14)=0

BV(15)=0

BV(16)=((c+d)*abs02+(c-d)*abs01)/(3*c2)

BV(17)=0

BV(18)=(2*(2*c3-(c2+c*d+d2)*abs02+(c2-c*d+d2)*abs01))/(3*c3)

BV(19)=0

BV(20)=(2*(2*c3-(c2+c*d+d2)*abs02+(c2-c*d+d2)*abs01))/(9*c3)

BV(21)=0

BV(22)=0

BV(23)=(2*(2*c3-(c2+c*d+d2)*abs02+(c2-c*d+d2)*abs01))/(9*c3)