399       matdat.datmat[i][0][0] = vec[i];  in input_fform()
405       matdat.datmat[i][1][0] = vec[i];  in input_fform()
411       matdat.datmat[i][2][0] = 0;  in input_fform()
417       matdat.datmat[i][3][0] = vec[i];  in input_fform()
489       matdat.datmat[i][4][0] = vec[0+i*3];  in input_fform()
490       matdat.datmat[i][4][1] = vec[1+i*3];  in input_fform()
491       matdat.datmat[i][4][2] = vec[2+i*3];  in input_fform()
497       matdat.datmat[i][6][0] = vec[0+i*3];  in input_fform()
498       matdat.datmat[i][6][1] = vec[1+i*3];  in input_fform()
499       matdat.datmat[i][6][2] = vec[2+i*3];  in input_fform()
524       matdat.datmat[0][5][0] = vec[0];  in input_fform()
525       matdat.datmat[0][5][1] = vec[1];  in input_fform()
526       matdat.datmat[0][5][2] = vec[2];  in input_fform()
531       matdat.datmat[0][5][0] = 0.;  in input_fform()
532       matdat.datmat[0][5][1] = 0.;  in input_fform()
533       matdat.datmat[0][5][2] = 0.;  in input_fform()