Select Code to Download

Select or download this

use warnings;
use strict;
...
    }
    close $ifh;
}

Select or download this

'Node ID            X              Y              Z    BC    
 NODE               1        4.51000        0.00000       79.00000
...
 BEAM              2        3        2        2       36       1
 PIPE            19       4.489       0.022
 PIPE            20       4.488       0.021

Select or download this

 NODE              32        0.00000        0.00000       -1.90000
 NODE              33        0.00000        0.00000       -5.50000
 BEAM              26        27       26        1       14       1

Select or download this

'Node ID            X              Y              Z    BC    
 NODE               1        4.51000        0.00000       79.00000
...
 BEAM              2        3        2        2       36       1
 PIPE            19       4.489       0.022
 PIPE            20       4.488       0.021