“…feet Dh=4. *LEArea/LEperim C********************************************** Write (7,101) , 460., 560., 660., 760., 860., 960., 1060., & 1160., 1260., 1360., 1460., 1560., 1660., 1760., 1860., & 1960., 2060., 2160., 2260., 2360., 2460., 2560., 2660., & 2760., 2860., 2960., 3160., 3360., 3560., 3760., 3960 & 0.1045,0.1075,0.1101,0.1110,0.1170,0.1200,0.1230,0.1265, & 0.1300,0.1330,0.1360,0.1420,0.1480,0.1535,0.1595,0.1655/ data pr/ 0.7710,0.7590, & 0.7390,0.7180,0.7030,0.6940,0.6860,0.6820,0.6790,0.6788, & 0.6793,0.6811,0.6865,0.6880,0.6882,0.6885,0.6887,0.6890, & 0.6891,0.6893,0.6895,0.6897,0.6899,0.6900,0.6902,0.6905, & 0.6907,0.6909,0.6910,0.6913,0.6917,0.6921,0.6925,0.6929/ data cp/ 0.247, 0.242, & 0.241, 0.240, 0.241, 0.242, 0.244, 0.246, 0.248, 0.251, & 0.254, 0.257, 0.260, 0.264, 0.267, 0.270, 0.272, 0.275, & 0.277, 0.279, 0.282, 0.284, 0.286, 0.288, 0.291, 0.293, & 0.296, 0.298, 0.300, 0.305, 0.311, 0.318, 0.326, 0.338/ c c if(t.lt.tab(1)) print 510,t,tab(1) 510 format(" in airprop ---temp=",f8.1," is less than min temp", &" of ",f8.1) if(t.gt.tab(nent)) print 520, t,tab(nent) 520 format(" in airprop ---temp=",f8.1," is greater than max", &" temp of ",f8.1) if(t-tab (1) (6,35)i,v1/a1,v2/a2,v3/a3,v4/a4,v5/a5,v6/a6 write (2,35)i,v1/a1,v2/a2,v3/a3,v4/a4,v5/a5,v6 …”