started fortran call functions