getmsr.f:c (this ring correction is too simple: the total ring getmsr.f:c perhaps ring can be subtracted from measurements?) getrng.f:c interpolate appropriate Ring corrections in reflectivity and pres getrng.f:c ramcor r*4 i raman scattering corrections getrng.f:c lmdain references al 12 wavelngths ring is for the longest 8 glnchk.f:c ramcor r*4 i raman scattering correction interp.f:c iss r*8 o single scattering intensity due to atmospheric rdcons.f:c ramcor(8,6) r*4 i raman scattering correction factors rdcons.f: 3 ' raman scattering corrections:'/1x, reflam.f:c ramcor r*4 i raman scattering correction reflec.f:c ramcor r*4 i raman scattering corrections reflp.f:c ramcor r*4 i raman scattering correction residue.f:c ramcor r*4 i raman scattering correction rfl331.f:c ramcor r*4 i raman scattering corrections rfnams.f:c* idlen - length of substring of id to be compared with input identifier rfnams.f:c** equal sign character "=" and then comparing the string to the left of sbvmain.f:c (in this engineering version some functions are omitted) sbvmain.f:c updhdr makes a string containing the time of last data record spline.f:c !note: this ordering, viz., x0 -> -x0 while y0 -> y0,