--- DarthVader/TrackerLevel2/src/F77/functions.f	2007/04/27 10:39:58	1.2
+++ DarthVader/TrackerLevel2/src/F77/functions.f	2007/05/24 16:45:48	1.4
@@ -163,9 +163,9 @@
       
       if(mod(view,2).eq.0) then !X view
 
-        if((is.le.3).or.(is.ge.1022)) then !X has 1018 strips...
-          print*,'functions: WARNING: false X strip: strip ',is
-        endif
+c        if((is.le.3).or.(is.ge.1022)) then !X has 1018 strips...
+c          print*,'functions: WARNING: false X strip: strip ',is
+c        endif
 
         is=is-3                 !4 =< is =< 1021 --> 1 =< is =< 1018
 
@@ -234,9 +234,9 @@
       
       if(mod(view,2).eq.0) then !X view
 
-        if((is.le.3).or.(is.ge.1022)) then !X has 1018 strips...
-          print*,'functions: WARNING: false X strip: strip ',is
-        endif
+c        if((is.le.3).or.(is.ge.1022)) then !X has 1018 strips...
+c          print*,'functions: WARNING: false X strip: strip ',is
+c        endif
 
         is=is-3                 !4 =< is =< 1021 --> 1 =< is =< 1018
 
@@ -358,10 +358,25 @@
 
       dcoord=0.
       
+      if(
+     $     ladder.lt.1.or.
+     $     ladder.gt.nladders_view.or.
+     $     sen.lt.1.or.
+     $     sen.gt.2.or.
+     $     view.lt.1.or.
+     $     view.gt.nviews.or.
+     $     .false.)then
+         print*,'dcoord ---> wrong input: ladder ',ladder
+     $        ,' sensor ',sen
+     $        ,' view ',view
+         return
+      endif
+
       sx=ladder
       sy=sen
       sz=npl(view)
 
+
       if(mod(view,2).eq.0) then !X view
 
         trasl=x_mech_sensor(sz,sx,sy) !in mm
@@ -509,10 +524,10 @@
             endif
          endif
          
-         if(ncog.ge.5)then
-            print*,'function CLBAD(NCOG,IC) ==> WARNING!! NCOG=',NCOG
-     $           ,' not implemented'
-         endif
+c         if(ncog.ge.5)then
+c            print*,'function CLBAD(NCOG,IC) ==> WARNING!! NCOG=',NCOG
+c     $           ,' not implemented'
+c         endif
             
       elseif(ncog.eq.0)then
 *     =========================
@@ -554,8 +569,8 @@
          
       else
          
-         print*,'function CLBAD(NCOG,IC) ==> WARNING!! NCOG=',NCOG
-     $        ,' not implemented'
+c         print*,'function CLBAD(NCOG,IC) ==> WARNING!! NCOG=',NCOG
+c     $        ,' not implemented'
          
 
       endif