# | 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 |