program linear implicit none !*** Declaration of variables ***! real::l_b !left boundary real::r_b !right boundary real::L