PPT Slide

keyparse.f

example: matthews_coef.f

WRITE(6,*)' Keywords: CELL SYMM MOLW NMOL END'

C

10 CALL MEMOPARSE(.TRUE.)

C

C Cell

C

CALL PARSECELL (CELL)

C

C Symm

C

CALL PARSESYMM(SPGNAM, NUMSGP, PGNAME, NSYM, NSYMP, RSYM)

C

C Molecular weight

C

CALL PARSEREAL('MOLW',WEIGHT)

C

C Number of Molecules per asymmetric unit

C

CALL PARSEINT('NMOL',NMOL)

C

C Test data input

C

CALL PARSEDIAGNOSE(CONT)

IF (CONT) GOTO 10

C

C---- End of input keywords

C

Previous slide

Next slide

Back to first slide

View graphic version