Searched defs:genBC (Results 1 – 1 of 1) sorted by relevance
1 subroutine genBC (iBC, BC, x, ilwork, iper) subroutine144 1000 format(a80,//,148 1100 format(1p,2x,i5,3x,6(e12.5,1x))