mate_index = parms1(6:8)
READ (mate_index,'(I3)') mate
READ (mate_index,'(I3)') mVec
CHARACTER*3 mate_index
mate_index = gdiag(nd)(6:8)
IF ( mate_index.NE.' ' ) THEN
READ(mate_index,'(I3)') mate