123     int fnum, bnum, znum, snum, cnum;  in main()  local
131         cg_base_write (fnum, "Base", 3, 3, &bnum) ||  in main()
132         cg_goto(fnum, bnum, NULL) ||  in main()
145     if (cg_zone_write (fnum, bnum, "1:Linear", size,  in main()
147         cg_coord_write (fnum, bnum, znum, CGNS_ENUMV(RealDouble),  in main()
149         cg_goto(fnum, bnum, "Zone_t", znum, "GridCoordinates", 0,  in main()
152         cg_coord_write (fnum, bnum, znum, CGNS_ENUMV(RealDouble),  in main()
156         cg_coord_write (fnum, bnum, znum, CGNS_ENUMV(RealDouble),  in main()
165     if (cg_poly_section_write (fnum, bnum, znum, "NGON_n", CGNS_ENUMV(NGON_n),  in main()
172     if (cg_section_write (fnum, bnum, znum, "NODE", CGNS_ENUMV(NODE),  in main()
184     if (cg_section_write (fnum, bnum, znum, "BAR_2", CGNS_ENUMV(BAR_2),  in main()
196     if (cg_section_write (fnum, bnum, znum, "TRI_3", CGNS_ENUMV(TRI_3),  in main()
209     if (cg_section_write (fnum, bnum, znum, "QUAD_4", CGNS_ENUMV(QUAD_4),  in main()
221     if (cg_section_write (fnum, bnum, znum, "TETRA_4", CGNS_ENUMV(TETRA_4),  in main()
233     if (cg_section_write (fnum, bnum, znum, "PYRA_5", CGNS_ENUMV(PYRA_5),  in main()
245     if (cg_section_write (fnum, bnum, znum, "PENTA_6", CGNS_ENUMV(PENTA_6),  in main()
257     if (cg_section_write (fnum, bnum, znum, "HEXA_8", CGNS_ENUMV(HEXA_8),  in main()
269     if (cg_poly_section_write (fnum, bnum, znum, "MIXED", CGNS_ENUMV(MIXED),  in main()
276     if (cg_poly_section_write (fnum, bnum, znum, "NFACE_n", CGNS_ENUMV(NFACE_n),  in main()
285     if (cg_zone_write (fnum, bnum, "2:Quadratic", size,  in main()
287         cg_coord_write (fnum, bnum, znum, CGNS_ENUMV(RealDouble),  in main()
289         cg_goto(fnum, bnum, "Zone_t", znum, "GridCoordinates", 0,  in main()
292         cg_coord_write (fnum, bnum, znum, CGNS_ENUMV(RealDouble),  in main()
296         cg_coord_write (fnum, bnum, znum, CGNS_ENUMV(RealDouble),  in main()
305     if (cg_section_write (fnum, bnum, znum, "BAR_3", CGNS_ENUMV(BAR_3),  in main()
318     if (cg_section_write (fnum, bnum, znum, "TRI_6", CGNS_ENUMV(TRI_6),  in main()
330     if (cg_section_write (fnum, bnum, znum, "QUAD_8", CGNS_ENUMV(QUAD_8),  in main()
342     if (cg_section_write (fnum, bnum, znum, "TETRA_10", CGNS_ENUMV(TETRA_10),  in main()
354     if (cg_section_write (fnum, bnum, znum, "PYRA_13", CGNS_ENUMV(PYRA_13),  in main()
366     if (cg_section_write (fnum, bnum, znum, "PENTA_15", CGNS_ENUMV(PENTA_15),  in main()
378     if (cg_section_write (fnum, bnum, znum, "HEXA_20", CGNS_ENUMV(HEXA_20),  in main()
390     if (cg_poly_section_write (fnum, bnum, znum, "MIXED", CGNS_ENUMV(MIXED),  in main()
400     if (cg_zone_write (fnum, bnum, "3:Quadratic with mid-nodes", size,  in main()
402         cg_coord_write (fnum, bnum, znum, CGNS_ENUMV(RealDouble),  in main()
404         cg_goto(fnum, bnum, "Zone_t", znum, "GridCoordinates", 0,  in main()
407         cg_coord_write (fnum, bnum, znum, CGNS_ENUMV(RealDouble),  in main()
411         cg_coord_write (fnum, bnum, znum, CGNS_ENUMV(RealDouble),  in main()
420     if (cg_section_write (fnum, bnum, znum, "QUAD_9", CGNS_ENUMV(QUAD_9),  in main()
433     if (cg_section_write (fnum, bnum, znum, "TETRA_10", CGNS_ENUMV(TETRA_10),  in main()
445     if (cg_section_write (fnum, bnum, znum, "PYRA_14", CGNS_ENUMV(PYRA_14),  in main()
457     if (cg_section_write (fnum, bnum, znum, "PENTA_18", CGNS_ENUMV(PENTA_18),  in main()
469     if (cg_section_write (fnum, bnum, znum, "HEXA_27", CGNS_ENUMV(HEXA_27),  in main()
481     if (cg_poly_section_write (fnum, bnum, znum, "MIXED", CGNS_ENUMV(MIXED),  in main()
491     if (cg_zone_write (fnum, bnum, "4:Cubic", size,  in main()
493         cg_coord_write (fnum, bnum, znum, CGNS_ENUMV(RealDouble),  in main()
495         cg_goto(fnum, bnum, "Zone_t", znum, "GridCoordinates", 0,  in main()
498         cg_coord_write (fnum, bnum, znum, CGNS_ENUMV(RealDouble),  in main()
502         cg_coord_write (fnum, bnum, znum, CGNS_ENUMV(RealDouble),  in main()
511     if (cg_section_write (fnum, bnum, znum, "BAR_4", CGNS_ENUMV(BAR_4),  in main()
524     if (cg_section_write (fnum, bnum, znum, "TRI_9", CGNS_ENUMV(TRI_9),  in main()
536     if (cg_section_write (fnum, bnum, znum, "QUAD_12", CGNS_ENUMV(QUAD_12),  in main()
548     if (cg_section_write (fnum, bnum, znum, "TETRA_16", CGNS_ENUMV(TETRA_16),  in main()
560     if (cg_section_write (fnum, bnum, znum, "PYRA_21", CGNS_ENUMV(PYRA_21),  in main()
572     if (cg_section_write (fnum, bnum, znum, "PENTA_24", CGNS_ENUMV(PENTA_24),  in main()
584     if (cg_section_write (fnum, bnum, znum, "HEXA_32", CGNS_ENUMV(HEXA_32),  in main()
596     if (cg_poly_section_write (fnum, bnum, znum, "MIXED", CGNS_ENUMV(MIXED),  in main()