C ELM10C FITTING NAME C C FTNAME NAME OF CONSTRAINT C CHARACTER*8 FTNAME C COMMON /ELM10C/ FTNAME