longer wait time for more stable operation

diff --git a/tools/dac_program.pl b/tools/dac_program.pl
index 49bd95e52ee7cfcd3629767f35a6482af9b4df8c..ed016afb02b0a49acc962f122e1407bb4a328680 100755 (executable)
--- a/tools/dac_program.pl
+++ b/tools/dac_program.pl
@@ -53,7 +53,7 @@ while (my $a = <$fh>) {
       printf(STDERR "Error, value %i with offset %i is higher or lower than reference %i\n",$val,$offset,$reference);
       next;
       }
-    
+
     $o = $cmd << 20;
     $o |= $chan << 16;
     $o |= (($val*1.+$offset)/$reference*65536.) & 0xFFFF;
@@ -68,8 +68,8 @@ while (my $a = <$fh>) {
       $values[17] = 16;
       trb_register_write($board,0xd417, $chain | ($chain << 16));
       trb_register_write_mem($board,0xd400,0,\@values,18) or die "trb_register_write_mem: ", trb_strerror(); 
-      usleep(5*$chainlen);
-      }    
+      usleep(50*$chainlen);
+      }
 
 
     foreach my $i (0..15) {
@@ -80,7 +80,7 @@ while (my $a = <$fh>) {
 #    print Dumper @values;
 #    print "\n";
     trb_register_write_mem($board,0xd400,0,\@values,18) or die "trb_register_write_mem: ", trb_strerror(); 
-    usleep(5*$chainlen);
+    usleep(50*$chainlen);
 
     if($dac == 16) {
       trb_register_write($board,0xd417,0);