corrected truss.f90