PPT Slide

30 CONTINUE

NTOK = NPARM

LINE = ' '

CALL PARSER(KEY, LINE, IBEG, IEND, ITYPE, FVALUE, CVALUE, IDEC,

+ NTOK, LEND, LPRINT)

IF (LEND) GO TO 70

C---- TITLE

IF (KEY.EQ.'TITL') THEN

TITLE = LINE(IBEG(2) :80)

C---- LABIN

ELSE IF (KEY.EQ.'LABI') THEN

LINESAV = LINE

C---- RESOlution

ELSE IF (KEY.EQ.'RESO') THEN

ITOK = 2

CALL RDRESO(ITOK, ITYPE, FVALUE, NTOK, RESMIN, RESMAX, SMIN,

+ SMAX)

WRITE (LUNOUT, FMT='(A,2F10.5)')

+ ' Resolution limits: SMIN SMAX', SMIN, SMAX

C---- CELL - can use to generate a reciprocal lattice pattern for a given cell

ELSE IF (KEY.EQ.'CELL') THEN

DO 40 II = 1, 6

CALL GTPREA(1+II, CELL(II), NTOK, ITYPE, FVALUE)

40 CONTINUE

………………..