*----------------------------------------------------------------------*
*---                                                                ---*
*--- Convert from Soudan particle codes to PDG.                     ---*
*---                                                                ---*
*---                                                                ---*
*---   Variables:                                                   ---*
*---   ----------                                                   ---*
*---                                                                ---*
*---   ipart_codes(199) - returns PDG particle code for a Soudan    ---* 
*---                      particle code                             ---*
*---   nuc_codes(138)   - returns PDG ion code for a Soudan         ---*
*---                      nucleus code                              ---*
*---  NB nuc_codes no longer used!!                                 ---*
*----------------------------------------------------------------------*
 
      INTEGER    ipart_codes(199), nuc_codes(138), jj

      DATA ipart_codes/0,0,22,12,12,-12,14,-14,16,-16,11,-11,13,-13
     &,15,-15,0,0,0
     &,-211,111,211,-321,311,-311,310,130,321,221,-213,113,213
     &,223,331,30221,333,10221,20223,30223,225,335,-10211,10111,10211
     &,-20213,20113,20213,-323,323,313,-313,-10323,10323,10313,-10313
     &,-20323,20323,20313,-20313,2212,-2212,2112,-2112,3122,-3122 
     &,3112,3212,3222,-3112,-3212,-3222,3322,3312,-3322,-3312,3334
     &,-3334,22*0
     &,441,443,10441,10443,445,20443,-411,411,421,-421,-413
     &,413,423,-423,-431,431,16*0
     &,1114,2114,2214,2224,0,12112,12212,0,0,1214,2124
     &,0,0,22112,22212,0,1112,1212,2122,2222,0,32112,32212,6*0
     &,21214,22124,0,0,2116,2216,0,0
     &,12116,12216,0,0,42112,42212,0,11114,12114,12214,12224,0,31214
     &,32124,0,21112,21212,22122,22222,1116,1216,2126,2226,1118
     &,2118,2218,2228,21114,22114,22214,22224/

c
c index to nuc_code = Code_ION-255
c
c- use STDHEP encoding of ions 1AAAZZZJJJ
c-  1=flag ion, AAA=3 digit A, ZZZ=3 digit Z, JJJ=spin
c
c- no longer used.....calculated directly!
c
c      DATA (nuc_codes(jj),jj=  1, 50) /
c     &       2212, 1002001000, 1003001000, 1003002000, 1004002000,
c     & 1005002000, 1006002000, 1005003000, 1006003000, 1007003000,
c     & 1008003000, 1008004000, 1009004000, 1010004000, 1009005000,
c     & 1010005000, 1011005000, 1012005000, 1011006000, 1012006000,
c     & 1013006000, 1014006000, 1013007000, 1014007000, 1015007000,
c     & 1016007000, 1017007000, 1015008000, 1016008000, 1017008000,
c     & 1018008000, 1018009000, 1019009000, 1020009000, 1021009000,
c     & 1019010000, 1020010000, 1021010000, 1022010000, 1022011000,
c     & 1023011000, 1024011000, 1025011000, 1023012000, 1024012000,
c     & 1025012000, 1026012000, 1026013000, 1027013000, 1028013000/
c      DATA (nuc_codes(jj),jj= 51,100) /
c     & 1029013000, 1027014000, 1028014000, 1029014000, 1030014000,
c     & 1030015000, 1031015000, 1032015000, 1033015000, 1031016000,
c     & 1032016000, 1033016000, 1034016000, 1025016000, 1026016000,
c     & 1034017000, 1035017000, 1036017000, 1037017000, 1039017000,
c     & 1038018000, 1039018000, 1040018000, 1038019000, 1039019000,
c     & 1040019000, 1041019000, 1042019000, 1043019000, 1039020000,
c     & 1040020000, 1041020000, 1042020000, 1043020000, 1044020000,
c     & 1044021000, 1045021000, 1045021000, 1047021000, 1048021000,
c     & 1049021000, 1045022000, 1046022000, 1047022000, 1048022000,
c     & 1049022000, 1050022000, 1049023000, 1050023000, 1051023000/
c      DATA (nuc_codes(jj),jj=101,138) /
c     & 1052023000, 1053023000, 1049024000, 1050024000, 1051024000,
c     & 1052024000, 1053024000, 1054024000, 1053025000, 1054025000,
c     & 1055025000, 1056025000, 1057025000, 1053026000, 1054026000,
c     & 1055026000, 1056026000, 1057026000, 1058026000, 1057027000,
c     & 1058027000, 1059027000, 1060027000, 1061027000, 1062027000,
c     & 1063027000, 1057028000, 1058028000, 1059028000, 1060028000,
c     & 1061028000, 1062028000, 1063028000, 1064028000, 1062029000,
c     & 1063029000, 1064029000, 1065029000/


c- Rob Edgecock's original scheme used 100000 + id_geant
c      DATA nuc_codes/100014,100045,100046,100049,100047,100047,100047
c     &,              100061,100061,100062,100062,100063,100064,100064
c     &,              100065,100065,100066,100066,100067,100067,100067
c     &,              100067,100068,100068,100068,100068,100068,100069
c     &,              100069,100069,100069,100070,100070,100070,100070
c     &,              100071,100071,100071,100071,100072,100072,100072
c     &,              100072,100073,100073,100073,100073,100074,100074
c     &,              100074,100074,100075,100075,100075,100075,100076
c     &,              100076,100076,100076,100077,100077,100077,100077
c     &,              100077,100077,100078,100078,100078,100078,100078
c     &,              100079,100079,100079,100080,100080,100080,100080
c     &,              100080,100080,100081,100081,100081,100081,100081
c     &,              100081,100082,100082,100082,100082,100082,100082
c     &,              100083,100083,100083,100083,100083,100083,100084
c     &,              100084,100084,100084,100084,100085,100085,100085
c     &,              100085,100085,100085,100086,100086,100086,100086
c     &,              100086,100087,100087,100087,100087,100087,100087
c     &,              100088,100088,100088,100088,100088,100088,100088
c     &,              100089,100089,100089,100089,100089,100089,100089
c     &,              100089,100090,100090,100090,100090/ 
