File indexing completed on 2024-04-06 12:13:38
0001 subroutine uppydump
0002 implicit double precision(a-h, o-z)
0003 implicit integer(i-n)
0004
0005 dimension ihi(10)
0006
0007 ihi(1)=1
0008 call pydump(3,4,1,ihi)
0009 ihi(1)=2
0010 call pydump(3,5,1,ihi)
0011 ihi(1)=3
0012 call pydump(3,16,1,ihi)
0013 ihi(1)=4
0014 call pydump(3,7,1,ihi)
0015 ihi(1)=5
0016 call pydump(3,8,1,ihi)
0017 ihi(1)=6
0018 call pydump(3,9,1,ihi)
0019
0020 ihi(1)=11
0021 call pydump(3,21,1,ihi)
0022 ihi(1)=12
0023 call pydump(3,22,1,ihi)
0024 ihi(1)=13
0025 call pydump(3,23,1,ihi)
0026 ihi(1)=14
0027 call pydump(3,24,1,ihi)
0028 ihi(1)=15
0029 call pydump(3,25,1,ihi)
0030
0031 ihi(1)=21
0032 call pydump(3,31,1,ihi)
0033 ihi(1)=22
0034 call pydump(3,32,1,ihi)
0035 ihi(1)=23
0036 call pydump(3,33,1,ihi)
0037 ihi(1)=24
0038 call pydump(3,34,1,ihi)
0039 ihi(1)=25
0040 call pydump(3,35,1,ihi)
0041
0042 ihi(1)=31
0043 call pydump(3,41,1,ihi)
0044 ihi(1)=32
0045 call pydump(3,42,1,ihi)
0046 ihi(1)=33
0047 call pydump(3,43,1,ihi)
0048 ihi(1)=34
0049 call pydump(3,44,1,ihi)
0050 ihi(1)=35
0051 call pydump(3,45,1,ihi)
0052
0053 ihi(1)=41
0054 call pydump(3,51,1,ihi)
0055 ihi(1)=42
0056 call pydump(3,52,1,ihi)
0057 ihi(1)=43
0058 call pydump(3,53,1,ihi)
0059 ihi(1)=44
0060 call pydump(3,54,1,ihi)
0061 ihi(1)=45
0062 call pydump(3,55,1,ihi)
0063
0064 ihi(1)=52
0065 call pydump(3,62,1,ihi)
0066 ihi(1)=53
0067 call pydump(3,63,1,ihi)
0068 ihi(1)=54
0069 call pydump(3,64,1,ihi)
0070 ihi(1)=55
0071 call pydump(3,65,1,ihi)
0072
0073 end
0074
