cn_in_part subroutine re-worked into simplerform-- currently resulting in infinite loop
write statements added to vol fxns mod