| # | Line 12 | Line 12 | if ( $#argv < 1 ) then | |
|---|---|---|
| 12 | endif | |
| 13 | set cal = . | |
| 14 | foreach illum ($*) | |
| 15 | < | set spc=(`sed -e 1d -e 's/^[ ]*\([1-9][0-9]*\)[ ].*$/\1/' -e 3q $illum`) |
| 15 | > | set spc=(`sed -e 1d -e 's/^[ ]*\([1-9][.0-9]*\)[ ].*$/\1/' -e 3q $illum`) |
| 16 | rcalc -f $cal/cieresp.cal -f $cal/stdrefl.cal -e "intvl=abs($spc[2]-$spc[1])" \ | |
| 17 | -f $cal/conv1.cal $illum | total >> /tmp/il$$.dat | |
| 18 | end | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |