Back to home page

Project CMSSW displayed by LXR

 
 

    


File indexing completed on 2024-04-06 12:13:38

0001         subroutine upclosegradefile(iveggrade,imix,imixtype)
0002       implicit double precision(a-h, o-z)
0003         implicit integer(i-n) 
0004 
0005         close(11)
0006         if(iveggrade.eq.1) close(29)
0007 
0008       if(imix.eq.1) then
0009          if(imixtype.eq.1) then
0010           close(36)
0011           close(37)
0012           close(38)
0013           close(39)
0014         close(46)
0015           close(47)
0016           close(48)
0017           close(49)
0018          end if
0019          if(imixtype.eq.2) then
0020           close(36)
0021           close(37)
0022          end if
0023          if(imixtype.eq.3) then
0024           close(38)
0025           close(39)
0026         close(46)
0027           close(47)
0028           close(48)
0029           close(49)
0030          end if
0031         end if
0032 
0033         end
0034