      SUBROUTINE SETATM(MCEL,NCEL,ZSTR,ZEND,ZA)
      DIMENSION ZA(MCEL)
      ZINC=(ZSTR-ZEND)/(NCEL-1)
      ZA(1)=ZSTR
      DO 10 IL=2,NCEL
        ZA(IL)=ZA(IL-1)-ZINC
  10  CONTINUE
      RETURN
      END
