------------Program statement-----------------------------------
Program coord
-------------variable declaration statements-------------------
integer node1(50000), node2(50000), i, totn, j
double precision crd1(50000,3), crd2(50000,3)
character*100 line