Searched defs:initBCt (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | bctint.f | 128 subroutine initBCt( x, iBC, BC ) subroutine
133 real*8 x(numnp,nsd), BC(nshg,ndofBC), rj1,rj2,rj3,rj4,distd,epsd
134 integer iBC(nshg)
135 character*80 card
136 real*8 distds
137 real*8 dd
139 integer irstart
140 real(kind=8),allocatable,dimension(:) :: bcttest
142 real*8 t0,tlen,t1,tstart,tend
143 integer i0,ilen,i1,nper,istart,iend
|