How can i impose the boundary condition of pore??

[hengine]

When i use the u-p element, i have to impose some nodes the boundary condition of pore. Because pore is the third ndf , i use the command below:

set sin "Sine $istart $iend $period "
pattern Plain $i $sin {
#apply pore
sp $snodenum 3 $A

}

Those nodes have been set drainage before !
But the output of those nodes is cos not sine, and also the max pore is amplified by 3.1415926/$period times.　

How should i impose the pore boundary condition of this kind??

[silvia]

you should contact the element authors.