cpp-fortran edited