Added some fortran and C codes