program Truss implicit none integer :: Nnodes open(unit=1,file=\'data.txt\') open(unit=2,file=\'output.txt\') read(1,1) Nnodes write(2,2) Nnodes 1 format(7x) 2 format(\'Nu
