--- DarthVader/TrackerLevel2/src/F77/readB.f	2006/09/28 14:04:40	1.3
+++ DarthVader/TrackerLevel2/src/F77/readB.f	2006/11/02 15:31:06	1.5
@@ -22,15 +22,15 @@
       COMMON/DBG/DEBUG,VERBOSE,WARNING
       SAVE/DBG/
 
-      character*80 cpath
-      character*80 ppath
+      character*256 cpath
+      character*256 ppath
 
       
       b_error=0
       ppath=''
 
-      la=80
-      do i=1,80
+      la=256
+      do i=1,256
          if(cpath(i:i).eq.'/')la=i
       enddo
       ppath=cpath(1:la)
@@ -38,9 +38,6 @@
       b_path    = ppath
       b_pathlen = la
 
-c     FUNZIONAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!
-
-c      if(b_debug.eq.1)print*,'Field loaded: ',b_loaded
       if(DEBUG)print*,'Field loaded: ',b_loaded
       if(b_loaded.eq.0)then
 
@@ -95,7 +92,7 @@
       COMMON/DBG/DEBUG,VERBOSE,WARNING
       SAVE/DBG/
 
-      character*80 path
+      character*256 path
       
 C
       REAL hmemor(10000000)
@@ -467,7 +464,7 @@
       COMMON/DBG/DEBUG,VERBOSE,WARNING
       SAVE/DBG/
 
-      character*80 path
+      character*256 path
 
       REAL hmemor(10000000)
       integer Iquest(100)