1016   while(!feof(in) && strcasestr(line, "<break>") == 0)  in read_geo_positions()
1026     if (strcasestr(line, "<grid>"))  in read_geo_positions()
1041     else if (strcasestr(line, "<break>"))  in read_geo_positions()
1046     else if (strcasestr(line, "<end>"))  in read_geo_positions()
1098     if (strcasestr(line, "<end>")) m_igrid++;  in read_all_grids_from_all_sections()
1099     if (strcasestr(line, "<grid>"))  in read_all_grids_from_all_sections()
1121            if (strcasestr(line, "<atom>")) read_additional_atom_block(in, mp);  in read_section()
1122       else if (strcasestr(line, "<energy>")) read_energy_block(in, mp);  in read_section()
1123       else if (strcasestr(line, "<rms_grad>")) read_rms_grad_block(in, mp);  in read_section()
1124       else if (strcasestr(line, "<max_grad>")) read_max_grad_block(in, mp);  in read_section()
1125       else if (strcasestr(line, "<bond>")) read_bond_block(in, mp);  in read_section()
1126       else if (strcasestr(line, "<dipole>")) read_dipole_block(in, mp);  in read_section()
1127       else if (strcasestr(line, "<vector>")) read_vector_block(in, mp);  in read_section()
1128       else if (strcasestr(line, "<triangle>")) read_triangle_block(in, mp);  in read_section()
1129       else if (strcasestr(line, "<sphere>")) read_sphere_block(in, mp);  in read_section()
1130       else if (strcasestr(line, "<surface>")) read_surface_block(in, mp);  in read_section()
1131       else if (strcasestr(line, "<cell>")) read_cell_block(in, mp);  in read_section()
1132       else if (strcasestr(line, "<textbox>")) read_textbox_block(in, mp);  in read_section()
1133       else if (strcasestr(line, "<grid>")) read_grid_block(in, mp);  in read_section()
1134       else if (strcasestr(line, "<vibration>")) read_vibration_block(in, mp);  in read_section()
1135 …    else if (strcasestr(line, "<editable>")) read_editable_block(in, mp); /*19.02.2013 new block!*/  in read_section()
1136       else if (strcasestr(line, "<sleep>")) read_sleep_block(in);  in read_section()
1137       else if (strcasestr(line, "<write>")) read_write_block(in);  in read_section()
1138       else if (strcasestr(line, "<end>")) next = 0;  in read_section()
1221       if (strcasestr(line, "</atom>")) next = 0;  in read_additional_atom_block()
1222       if (strcasestr(line,"name"))  in read_additional_atom_block()
1224        	mp->name[iatom] = my_read_str_value((char*) strcasestr(line,"name"));  in read_additional_atom_block()
1227       if ((char*) strcasestr(line,"mulliken_charge"))  in read_additional_atom_block()
1229        	mp->charge_m[iatom] = my_read_dble_value((char*) strcasestr(line,"mulliken_charge"));  in read_additional_atom_block()
1232       if (strcasestr(line,"loprop_charge"))  in read_additional_atom_block()
1234        	mp->charge_l[iatom] = my_read_dble_value((char*) strcasestr(line,"loprop_charge"));  in read_additional_atom_block()
1237       if (strcasestr(line,"number"))  in read_additional_atom_block()
1239        	mp->additional_numeration[iatom] = my_read_int_value((char*) strcasestr(line,"number"));  in read_additional_atom_block()
1242       if (strcasestr(line,"symmetry"))  in read_additional_atom_block()
1244        	mp->symmetry[iatom] = my_read_int_value((char*) strcasestr(line,"symmetry"));  in read_additional_atom_block()
1248       if (strcasestr(line,"red"))  in read_additional_atom_block()
1250        	mp->elem[iatom].color[0] = my_read_dble_value((char*) strcasestr(line,"red"));  in read_additional_atom_block()
1253       if (strcasestr(line,"green"))  in read_additional_atom_block()
1255        	mp->elem[iatom].color[1] = my_read_dble_value((char*) strcasestr(line,"green"));  in read_additional_atom_block()
1258       if (strcasestr(line,"blue"))  in read_additional_atom_block()
1260        	mp->elem[iatom].color[2] = my_read_dble_value((char*) strcasestr(line,"blue"));  in read_additional_atom_block()
1305 …if (my_read_int_value((char*) strcasestr(line,"automatic")) == 0) should_bonding_be_determined = 0;  in read_bond_block()
1315       if (strcasestr(line, "</bond>")) next = 0;  in read_bond_block()
1520   if (strcasestr(line,"red"))  in read_vector_block()
1521     mp->vector_color[nvec-1][0] = my_read_dble_value((char*) strcasestr(line,"red"));  in read_vector_block()
1522   if (strcasestr(line,"green"))  in read_vector_block()
1523     mp->vector_color[nvec-1][1] = my_read_dble_value((char*) strcasestr(line,"green"));  in read_vector_block()
1524   if (strcasestr(line,"blue"))  in read_vector_block()
1525     mp->vector_color[nvec-1][2] = my_read_dble_value((char*) strcasestr(line,"blue"));  in read_vector_block()
1526   if (strcasestr(line,"transparency"))  in read_vector_block()
1527     mp->vector_color[nvec-1][3] = my_read_dble_value((char*) strcasestr(line,"transparency"));  in read_vector_block()
1528   if (strcasestr(line,"radius"))  in read_vector_block()
1529     mp->radius[nvec-1] = my_read_dble_value((char*) strcasestr(line,"radius"));  in read_vector_block()
1530   if (strcasestr(line,"sharpness"))  in read_vector_block()
1531     mp->sharpness[nvec-1] = my_read_dble_value((char*) strcasestr(line,"sharpness"));  in read_vector_block()
1563   if (strcasestr(line,"red"))  in read_triangle_block()
1564     mp->triangle_color[ntriang-1][0] = my_read_dble_value((char*) strcasestr(line,"red"));  in read_triangle_block()
1565   if (strcasestr(line,"green"))  in read_triangle_block()
1566     mp->triangle_color[ntriang-1][1] = my_read_dble_value((char*) strcasestr(line,"green"));  in read_triangle_block()
1567   if (strcasestr(line,"blue"))  in read_triangle_block()
1568     mp->triangle_color[ntriang-1][2] = my_read_dble_value((char*) strcasestr(line,"blue"));  in read_triangle_block()
1569   if (strcasestr(line,"transparency"))  in read_triangle_block()
1570     mp->triangle_color[ntriang-1][3] = my_read_dble_value((char*) strcasestr(line,"transparency"));  in read_triangle_block()
1603   if (strcasestr(line,"red"))  in read_sphere_block()
1604     mp->sphere_color[nspheres-1][0] = my_read_dble_value((char*) strcasestr(line,"red"));  in read_sphere_block()
1605   if (strcasestr(line,"green"))  in read_sphere_block()
1606     mp->sphere_color[nspheres-1][1] = my_read_dble_value((char*) strcasestr(line,"green"));  in read_sphere_block()
1607   if (strcasestr(line,"blue"))  in read_sphere_block()
1608     mp->sphere_color[nspheres-1][2] = my_read_dble_value((char*) strcasestr(line,"blue"));  in read_sphere_block()
1609   if (strcasestr(line,"transparency"))  in read_sphere_block()
1610     mp->sphere_color[nspheres-1][3] = my_read_dble_value((char*) strcasestr(line,"transparency"));  in read_sphere_block()
1611   if (strcasestr(line,"radius"))  in read_sphere_block()
1612     mp->sphere_radius[nspheres-1] = my_read_dble_value((char*) strcasestr(line,"radius"));  in read_sphere_block()
1639   if (strcasestr(line,"red"))  in read_surface_block()
1640     mp->surf_color[nsurf-1][0] = my_read_dble_value((char*) strcasestr(line,"red"));  in read_surface_block()
1641   if (strcasestr(line,"green"))  in read_surface_block()
1642     mp->surf_color[nsurf-1][1] = my_read_dble_value((char*) strcasestr(line,"green"));  in read_surface_block()
1643   if (strcasestr(line,"blue"))  in read_surface_block()
1644     mp->surf_color[nsurf-1][2] = my_read_dble_value((char*) strcasestr(line,"blue"));  in read_surface_block()
1645   if (strcasestr(line,"transparency"))  in read_surface_block()
1646     mp->surf_color[nsurf-1][3] = my_read_dble_value((char*) strcasestr(line,"transparency"));  in read_surface_block()
1685   if (strcasestr(line,"red"))  in read_cell_block()
1686     mp->cell_color[ncell-1][0] = my_read_dble_value((char*) strcasestr(line,"red"));  in read_cell_block()
1687   if (strcasestr(line,"green"))  in read_cell_block()
1688     mp->cell_color[ncell-1][1] = my_read_dble_value((char*) strcasestr(line,"green"));  in read_cell_block()
1689   if (strcasestr(line,"blue"))  in read_cell_block()
1690     mp->cell_color[ncell-1][2] = my_read_dble_value((char*) strcasestr(line,"blue"));  in read_cell_block()
1691   if (strcasestr(line,"transparency"))  in read_cell_block()
1692     mp->cell_color[ncell-1][3] = my_read_dble_value((char*) strcasestr(line,"transparency"));  in read_cell_block()
1732   if (strcasestr(line,"red"))  in read_textbox_block()
1733     mp->textboxes[itb].color[0] = my_read_dble_value((char*) strcasestr(line,"red"));  in read_textbox_block()
1734   if (strcasestr(line,"green"))  in read_textbox_block()
1735     mp->textboxes[itb].color[1] = my_read_dble_value((char*) strcasestr(line,"green"));  in read_textbox_block()
1736   if (strcasestr(line,"blue"))  in read_textbox_block()
1737     mp->textboxes[itb].color[2] = my_read_dble_value((char*) strcasestr(line,"blue"));  in read_textbox_block()
1738   if (strcasestr(line,"x"))  in read_textbox_block()
1739     mp->textboxes[itb].coord_x = my_read_int_value((char*) strcasestr(line,"x"));  in read_textbox_block()
1740   if (strcasestr(line,"y"))  in read_textbox_block()
1741     mp->textboxes[itb].coord_y = my_read_int_value((char*) strcasestr(line,"y"));  in read_textbox_block()
1798   if (strcasestr(line,"N_OF_MO"))  in read_grid_block()
1799     mp->grid.nmo = my_read_int_value((char*) strcasestr(line,"N_OF_MO"));  in read_grid_block()
1800   if (strcasestr(line,"N_of_Grids"))  in read_grid_block()
1801     mp->ngrids = mp->grid.ngrid = my_read_int_value((char*) strcasestr(line,"N_of_Grids"));  in read_grid_block()
1802   if (strcasestr(line,"N_of_Points"))  in read_grid_block()
1803     mp->grid.npoints = my_read_int_value((char*) strcasestr(line,"N_of_Points"));  in read_grid_block()
1804   if (strcasestr(line,"Block_Size"))  in read_grid_block()
1805     mp->grid.block_size = my_read_int_value((char*) strcasestr(line,"Block_Size"));  in read_grid_block()
1806   if (strcasestr(line,"N_Blocks"))  in read_grid_block()
1807     mp->grid.nBlock = my_read_int_value((char*) strcasestr(line,"N_Blocks"));  in read_grid_block()
1808   if (strcasestr(line,"Is_cutoff"))  in read_grid_block()
1809     mp->grid.isCutOff = my_read_int_value((char*) strcasestr(line,"Is_cutoff"));  in read_grid_block()
1810   if (strcasestr(line,"CutOff"))  in read_grid_block()
1811     mp->grid.CutOff = my_read_dble_value((char*) strcasestr(line,"CutOff"));  in read_grid_block()
1812   if (strcasestr(line,"N_P"))  in read_grid_block()
1813     mp->grid.nPointsCutOff = my_read_int_value((char*) strcasestr(line,"N_P"));  in read_grid_block()
1814   if (strcasestr(line,"BOHR")) myR529 = R529;  in read_grid_block()
2019     if (strcasestr(line,"GridName"))  in read_grid_block()
2021       mp->grid.titlesArr[i] = my_read_str_value((char*) strcasestr(line,"GridName"));  in read_grid_block()
2022       if (strcasestr(line, "Orbital"))  in read_grid_block()
2025         if (strcasestr(line, "sym"))  in read_grid_block()
2026           mp->grid_symmetry[i] = my_read_int_value((char*) strcasestr(line,"sym"));  in read_grid_block()
2030         if (strcasestr(line, "index"))  in read_grid_block()
2031           mp->grid_index[i] = my_read_int_value((char*) strcasestr(line,"index"));  in read_grid_block()
2035         if (strcasestr(line, "Energ"))  in read_grid_block()
2036           mp->grid_energy[i] = my_read_dble_value((char*) strcasestr(line,"energ"));  in read_grid_block()
2040         if (strcasestr(line, "OCc"))  in read_grid_block()
2041           mp->grid_occ[i] = my_read_dble_value((char*) strcasestr(line,"occ"));  in read_grid_block()
2045         if (strcasestr(line, "type"))  in read_grid_block()
2047           for(ptr = (char*) strcasestr(line, "type"); ptr[0] != '='; ptr++);  in read_grid_block()
2065       else if (strcasestr(line, "Electrostatic"))  in read_grid_block()
2103     if (strcasestr(line, "density")) next = 0;  in read_grid_block()
2104     if (strcasestr(line, "/grid") || feof(in))  in read_grid_block()
2158     if (strcasestr(line, "/grid")) next = 0;  in read_grid_block()
2284   if (strcasestr(line,"freq"))  in read_vibration_block()
2285     mp->freq[nvibs-1] = my_read_dble_value((char*) strcasestr(line,"freq"));  in read_vibration_block()
2286   if (strcasestr(line,"ir_int"))  in read_vibration_block()
2288     mp->ir_intensity[nvibs-1] = my_read_dble_value((char*) strcasestr(line,"ir_int"));  in read_vibration_block()
2291   if (strcasestr(line,"raman_int"))  in read_vibration_block()
2293     mp->raman_intensity[nvibs-1] = my_read_dble_value((char*) strcasestr(line,"raman_int"));  in read_vibration_block()
2311   if (strcasestr(line,"yes")) mp->editable=1;  in read_editable_block()
2312   else if (strcasestr(line,"no")) mp->editable=0;  in read_editable_block()
2340   } while(!strcasestr(line,"write") && feof(in));  in read_write_block()