Merge branch 'master' of a75436.berlin.ptb.de:vaclab/vlr

cal/fm3.temperature.r

@@ -20,7 +20,7 @@ fm3.temperature <- function(doc){
 
 ### Tfm                            
     k101   <-  getConstVal(a$cco,"agilentCorrCh101")
-    k102   <-  getConstVal(a$cco,"agilentCorrCh101")
+    k102   <-  getConstVal(a$cco,"agilentCorrCh102")
     Tfm    <- (#getConstVal(a$cmv$Temperature,"agilentCh101_before_lw")
                #+ k101
                + getConstVal(a$cmv$Temperature,"agilentCh101_after_lw")