Searched defs:geniBC (Results 1 – 1 of 1) sorted by relevance
1 subroutine geniBC (iBC) subroutine40 integer, allocatable :: iBCpart(:)72 9999 if(ideformwall.eq.1) then100 999 call error ('geniBC ','end file',ibndc) argument102 1000 format(a80,//,105 1100 format(2x,i5,10x,5i10)