bin/BCVEGPY/upclosepyfile.F

0001         subroutine upclosepyfile
0002       implicit double precision(a-h, o-z)
0003         implicit integer(i-n)
0004
0005         close(4)
0006         close(5)
0007 c...note: the label 6 is the default label of screen.

0008         close(16)
0009         close(7)
0010         close(8)
0011         close(9)
0012
0013       close(21)
0014         close(22)
0015         close(23)
0016         close(24)
0017         close(25)
0018
0019       close(31)
0020         close(32)
0021         close(33)
0022         close(34)
0023         close(35)
0024
0025       close(41)
0026         close(42)
0027         close(43)
0028         close(44)
0029         close(45)
0030
0031       close(51)
0032         close(52)
0033         close(53)
0034         close(54)
0035         close(55)
0036
0037         close(62)
0038         close(63)
0039         close(64)
0040         close(65)
0041
0042         end