File indexing completed on 2023-03-17 11:04:29
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
