SUBROUTINE MASTAB(ITABLE)
C
C ROUTINE RETURNS A MASS LOOK UP TABLE CONTAINING MASS SETTINGS
C FOR D.E. RIMS INSTRUMENT FOR THE SPECIES (IN THE HIGH MASS
C DETECTOR) INDICATED ABOVE THE DATA STATEMENT.
C
C NOTE THIS ROUTINE IS/WILL BE CALLED BY THE FOLLOWING ROUTINES,
C BEFORE MODIFYING TABLE ENTRIES CHECK THAT THERE ARE NO IMPLICATIONS
C OF YOUR PROPOSED CHANGES:
C
C       DERPMS            MASTXT            MASSET            MODMSH
C
C V1.0 JFE JOHNSON 18 FEB 82
C      JFEJ        26 FEB 82 UPDATED MASS SETTINGS TABLE
C      JHWJR       5  OCT 82 UPDATED MASS SETTINGS,ADDED N+
C
      INTEGER*4 ITABLE(2,4),JTABLE(2,4)
C
C                   ---HE+--- --O+--- ---O++--- ---N+---
C
      DATA JTABLE/3500,3730,810,935,1690,1870,980,1050/
C
      DO 10 I=1,2
      DO 20 J=1,4
         ITABLE(I,J)=JTABLE(I,J)
   20 CONTINUE
   10 CONTINUE
      RETURN
      END