--- DarthVader/TrackerLevel2/src/F77/readallparam.f 2007/10/09 15:54:38 1.8 +++ DarthVader/TrackerLevel2/src/F77/readallparam.f 2008/03/05 17:00:20 1.9 @@ -9,6 +9,7 @@ c2f_error = 0 + c if(C2F_DEBUG.EQ.1.eq.1)print * if(verbose.eq.1)print * $ ,c2f_path(1:c2f_pathlen)//'trk-maskvk.dat' @@ -36,6 +37,7 @@ c2f_error = 1 goto 1000 endif + if(verbose.eq.1)print*,'view ',iv,': ',(mask_vk(iv,i),i=1,24) enddo 1000 close(10) 1001 continue