Searched defs:BCprofileInit (Results 1 – 1 of 1) sorted by relevance
77 subroutine BCprofileInit(vbc_prof,x) subroutine81 real*8 vbc_prof(nshg,3), x(numnp,nsd)82 real*8 rcenter(3),rnorml(3)106 987 format(i6,3(2x,e14.7))