subroutine setfis

c set up ISC phase identifications with upper and lower case

c piphas upped to 0:150 from 0:100 - Oct 28th 2004 - new codes
c added

      common /piphas2/ piphas(0:150)
      character*7 piphas

      piphas(  0) = 'P      '
      piphas(  1) = 'PP     '
      piphas(  2) = 'PPP    '
      piphas(  3) = 'PcP    '
      piphas(  4) = 'PKP    '
      piphas(  5) = 'PKP2   '
      piphas(  6) = 'PKPPKP '
      piphas(  7) = 'PcPPKP '
      piphas(  8) = 'PS     '
      piphas(  9) = 'PPS    '
      piphas( 10) = 'PcS    '
      piphas( 11) = 'PKS    '
      piphas( 12) = 'PKKS   '
      piphas( 13) = 'PcSPKP '
      piphas( 14) = 'PKPPKS '
      piphas( 15) = 'PKPSKS '
      piphas( 16) = 'PKKP   '
      piphas( 17) = '3PKP   '
      piphas( 18) = 'PKIKP  '
      piphas( 19) = 'PP2    '
      piphas( 20) = 'PPP2   '
      piphas( 21) = 'PKS2   '
      piphas( 22) = 'PSS    '
      piphas( 23) = 'PSS2   '
      piphas( 24) = 'SSP2   '
      piphas( 25) = 'PcPPKP2'
      piphas( 26) = 'PcSPKP2'
      piphas( 27) = 'SS2    '
      piphas( 28) = 'PKKP2  '
      piphas( 29) = 'PKKS2  '
      piphas( 30) = 'ScSPKP3'
      piphas( 31) = 'ScSPKP2'
      piphas( 32) = 'ScSP2  '
      piphas( 33) = 'SKSP2  '
      piphas( 34) = 'SSS2   '
      piphas( 35) = 'S      '
      piphas( 36) = 'SS     '
      piphas( 37) = 'SSS    '
      piphas( 38) = 'ScS    '
      piphas( 39) = 'SKS    '
      piphas( 40) = 'SKKS   '
      piphas( 41) = 'SKKKS  '
      piphas( 42) = 'ScSPKP '
      piphas( 43) = 'SKSSKS '
      piphas( 44) = 'ScSP   '
      piphas( 45) = 'SKSP   '
      piphas( 46) = 'ScP    '
      piphas( 47) = 'SP     '
      piphas( 48) = 'SKP    '
      piphas( 49) = 'SKKP   '
      piphas( 50) = 'SKPPKP '
      piphas( 51) = 'SSP    '
      piphas( 52) = 'SKP2   '
      piphas( 53) = 'SKS2   '
      piphas( 54) = 'SKKS2  '
      piphas( 55) = 'SKKS3  '
      piphas( 56) = 'SKKKS2 '
      piphas( 57) = 'sPKP2  '
      piphas( 58) = 'pPcP   '
      piphas( 59) = 'pPKP   '
      piphas( 60) = 'pP     '
      piphas( 61) = 'pPP    '
      piphas( 62) = 'sP     '
      piphas( 63) = 'sPKP   '
      piphas( 64) = 'sS     '
      piphas( 65) = 'sSS    '
      piphas( 66) = 'sPP    '
      piphas( 67) = 'sPcP   '
      piphas( 68) = 'sScS   '
      piphas( 69) = 'pPKP2  '
      piphas( 70) = 'P*     '
      piphas( 71) = 'S*     '
      piphas( 72) = 'Pg     '
      piphas( 73) = 'Sg     '
      piphas( 74) = 'Pn     '
      piphas( 75) = 'Sn     '
      piphas( 76) = 'PgPg   '
      piphas( 77) = 'SgSg   '
      piphas( 78) = 'LR     '
      piphas( 79) = 'LQ     '
      piphas( 80) = 'L      '
      piphas( 81) = 'PKKP3  '
      piphas( 82) = 'PKKS3  '
      piphas( 83) = 'SPP    '
      piphas( 84) = 'Phase84'
      piphas( 85) = 'P diff '
      piphas( 86) = 'QM     '
      piphas( 87) = 'RM     '
      piphas( 88) = 'T      '
      piphas( 89) = 'T(Max) '
      piphas( 90) = 'North  '
      piphas( 91) = 'South  '
      piphas( 92) = 'East   '
      piphas( 93) = 'West   '
      piphas( 94) = 'Up     '
      piphas( 95) = 'Down   '
      piphas( 96) = 'e      '
      piphas( 97) = 'i      '
      piphas( 98) = 'Maximum'
      piphas( 99) = 'Final  '
      piphas(100) = 'S/SKS  '
      piphas(101) = '       '      
      piphas(102) = 'PX     '
      piphas(103) = '       '      
      piphas(104) = '       '
      piphas(105) = 'SX     '      
      piphas(106) = '       '
      piphas(107) = '       '          
      piphas(108) = '       '
      piphas(109) = '       '      
      piphas(110) = '       '
      piphas(111) = '       '      
      piphas(112) = 'A      '
      piphas(113) = 'AMB    '      
      piphas(114) = 'AML    '
      piphas(115) = 'AMS    '          
      piphas(116) = 'Lg     '
      piphas(117) = 'MLR    '      
      piphas(118) = 'Px     '
      piphas(119) = 'PSP    '      
      piphas(120) = 'PSS    '
      piphas(121) = 'rx     '      
      piphas(122) = 'SPS    '
      piphas(123) = 'Sx     '          
      piphas(124) = 'tx     '
      piphas(125) = 'x      '      
      piphas(126) = '       '
      piphas(127) = '       '      
      piphas(128) = '       '
      piphas(129) = '       '      
      piphas(130) = '       '
      piphas(131) = '       '      
      piphas(132) = '       '
      piphas(133) = '       '          
      piphas(134) = '       '
      piphas(135) = '       '      
      piphas(136) = '       '
      piphas(137) = '       '      
      piphas(138) = '       '
      piphas(139) = '       '
      piphas(140) = '       '
      piphas(141) = '       '      
      piphas(142) = '       '
      piphas(143) = '       '          
      piphas(144) = '       '
      piphas(145) = '       '      
      piphas(146) = '       '
      piphas(147) = '       '      
      piphas(148) = '       '
      piphas(149) = '       '
      piphas(150) = '       '
               
      return
      end