This involves four lines of input data. Apart from the comments that are appended to the above lines of data, the format does not associate optical properties with wavelength. This 'Tlgamplc k /' Grid info:', 4x, 'initial,', 6x, 'final,', k Bx, 'increment' ) 102 format ( 3x, i4, ') ', 3fl3.4, t ' ' for:', i5, ', ', a6) 103 format (/' scan2g, error: inconsistent data input') 104 format (/' number of grid points scanned, kt = ', ilO k /'population along the minimum, kts = ', ilO k /' norm of residual, |g| = ', lpel3.5, ft ' (degrees) ') 105 format (/' Model pareuneter value along the minimum:') 106 format (lx,i4, ')', lplel5.6, ' ' for:', i5, ', ', a6, ft al , ' ' boundary ' 107 format (/' Note that the minimum point is near a boundary.') 108 format (/' output sritten to: x.plot') 111 format (li, i4,lx, 2il0, lplelB.6, ' ' mvary, kt, kts, b(min)') 112 format (Ix, 2(i4,lx), Ip2el5.6, ' ' i, ip, p, p(min)') 113 format (/' The attempted restart sas SOT acceptable.') 114 format (/' The attempted restart was acceptable.') 115 format (/' Ifote: NO attempt was made to restart.') 116 format ( ' wall clock: time = ', a8, Ix, ' ' hh:mm:ss ' ft / ' date = ', a9, ' ' dd-mmm-yy' ) 121 format (' ') 211 format (/' ... oops, we consider only: ID or 2D plots, ' ft / ' we allow only : mvary ' 1 or 2 '212 format ( Ix, 2i4, ' ' mx,mu / (i, x, u(x)'lgl) ') 213 format ( Ix, 3i4, ' ' mx(2),mx(l), mu /(i, x(2),x(l), u'Igl)') 214 format ( Ix, i6, Ip3el5.6) end 125