--- DarthVader/TrackerLevel2/src/F77/functions.f 2007/04/27 10:39:58 1.2 +++ DarthVader/TrackerLevel2/src/F77/functions.f 2007/04/27 12:11:03 1.3 @@ -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 @@ -509,10 +509,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 +554,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