两空间直线求交点，fortran编制

Intersection程序说明 该程序是应聘同豪土木工程咨询公司时出的一个小题目。 该程序使用Fortran编制，用于判断由空间四点表示的两直线是否相交,若相交则求出交点. 输入说明: 输入文件名为input.txt; 其中数据分别为:确定直线1所需两点坐标(x1,y1,z1),(x2,y2,z2); 确定直线2所需两点坐标(x3,y3,z3),(x4,y4,z4). 输出说明: 分别输出至屏幕及文件; 输出文件名为output.txt; 输出读入的四点坐标,以检查数据; 输出两直线向量及参数方程; 输出两直线的空间相对位置(共面或异面); 若共面,输出两直线的平面相对位置(重合、平行或相交); 若相交,输出交点坐标. 步骤: 1.判断是否共面 2.若共面，判断平行、重合还是相交 3.若相交，求交点