From: hadaq <hadaq@hades33.gsi.de>
Date: Tue, 28 Nov 2023 21:38:37 +0000 (+0100)
Subject: longer wait time for more stable operation
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=b3e634ac85f63ad4e485201ae936e9233fb9f229;p=daqtools.git

longer wait time for more stable operation
---

diff --git a/tools/dac_program.pl b/tools/dac_program.pl
index 49bd95e..ed016af 100755
--- 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);