Placed subroutine four_strucf into a seperate module in prepartion for parallel computing via OpenMP and / or GPU