/dports/science/cgnslib/CGNS-4.1.2/src/Test_UserGuideCode/C_code/ |
H A D | write_con2zn_genrl_str.c | 56 for (index_zone=0; index_zone < nzone; ++index_zone) in main() 58 iz=index_zone+1; in main() 68 ilo[index_zone]=1; in main() 70 jlo[index_zone]=1; in main() 72 klo[index_zone]=1; in main() 76 for (index_zone=0; index_zone < nzone; ++index_zone) in main() 78 iz=index_zone+1; in main() 97 for (j=jlo[index_zone]; j <= jhi[index_zone]; j++) in main() 99 for (k=klo[index_zone]; k <= khi[index_zone]; k++) in main() 120 for (j=jlo[index_zone]; j <= jhi[index_zone]; j++) in main() [all …]
|
H A D | write_con2zn_str.c | 52 for (index_zone=0; index_zone < nzone; ++index_zone) in main() 54 iz=index_zone+1; in main() 56 if (index_zone == 0) in main() 64 ilo[index_zone]=1; in main() 65 ihi[index_zone]=isize[0][0]; in main() 66 jlo[index_zone]=1; in main() 67 jhi[index_zone]=isize[0][1]; in main() 68 klo[index_zone]=1; in main() 72 for (index_zone=0; index_zone < nzone; ++index_zone) in main() 74 iz=index_zone+1; in main() [all …]
|
H A D | write_floweqn_str.c | 27 int idata[6],index_file,index_base,index_zone,ieq_dim; in main() local 42 index_zone=1; in main() 45 cg_goto(index_file,index_base,"Zone_t",index_zone,"end"); in main() 51 cg_goto(index_file,index_base,"Zone_t",index_zone,"FlowEquationSet_t",1,"end"); in main() 54 cg_goto(index_file,index_base,"Zone_t",index_zone,"FlowEquationSet_t",1, in main() 66 cg_goto(index_file,index_base,"Zone_t",index_zone,"FlowEquationSet_t",1,"end"); in main() 69 cg_goto(index_file,index_base,"Zone_t",index_zone,"FlowEquationSet_t",1, in main() 73 cg_goto(index_file,index_base,"Zone_t",index_zone,"FlowEquationSet_t",1, in main() 78 cg_goto(index_file,index_base,"Zone_t",index_zone,"FlowEquationSet_t",1,"end"); in main() 81 cg_goto(index_file,index_base,"Zone_t",index_zone,"FlowEquationSet_t",1, in main() [all …]
|
H A D | read_grid2zn_str.c | 38 int index_file,index_base,nzone,index_zone,i,j,k; in main() local 54 for (index_zone=1; index_zone <= nzone; index_zone++) in main() 57 cg_zone_read(index_file,index_base,index_zone,zonename,isize[0]); in main() 67 cg_coord_read(index_file,index_base,index_zone,"CoordinateX", \ in main() 69 cg_coord_read(index_file,index_base,index_zone,"CoordinateY", \ in main() 71 cg_coord_read(index_file,index_base,index_zone,"CoordinateZ", \ in main() 80 xsav[index_zone-1][k][j][i]=x[k][j][i]; in main() 81 ysav[index_zone-1][k][j][i]=y[k][j][i]; in main() 82 zsav[index_zone-1][k][j][i]=z[k][j][i]; in main()
|
H A D | read_floweqn_str.c | 28 int index_file,index_base,index_zone; in main() local 40 index_zone=1; in main() 43 cg_goto(index_file,index_base,"Zone_t",index_zone,"end"); in main() 53 cg_goto(index_file,index_base,"Zone_t",index_zone,"FlowEquationSet_t",1,"end"); in main() 57 cg_goto(index_file,index_base,"Zone_t",index_zone,"FlowEquationSet_t",1, \ in main() 66 cg_goto(index_file,index_base,"Zone_t",index_zone,"FlowEquationSet_t",1,"end"); in main() 69 cg_goto(index_file,index_base,"Zone_t",index_zone,"FlowEquationSet_t",1, \ in main() 77 cg_goto(index_file,index_base,"Zone_t",index_zone,"FlowEquationSet_t",1,"end"); in main() 80 cg_goto(index_file,index_base,"Zone_t",index_zone,"FlowEquationSet_t",1, \ in main() 87 cg_goto(index_file,index_base,"Zone_t",index_zone,"FlowEquationSet_t",1,"end"); in main()
|
H A D | read_grid_unst.c | 29 int index_file,index_base,index_zone; in main() local 42 index_zone=1; in main() 44 cg_zone_read(index_file,index_base,index_zone,zonename,isize[0]); in main() 50 cg_coord_read(index_file,index_base,index_zone,"CoordinateX", in main() 52 cg_coord_read(index_file,index_base,index_zone,"CoordinateY", in main() 54 cg_coord_read(index_file,index_base,index_zone,"CoordinateZ", in main() 57 cg_nsections(index_file,index_base,index_zone,&nsections); in main() 62 cg_section_read(index_file,index_base,index_zone,index_sect,sectionname, in main() 71 cg_elements_read(index_file,index_base,index_zone,index_sect,ielem[0], \ in main()
|
H A D | write_timevert_str.c | 45 int ni,nj,nk,i,j,k,index_file,index_base,index_zone; in main() local 87 index_zone=1; in main() 98 cg_sol_write(index_file,index_base,index_zone,sn[n],CGNS_ENUMV(Vertex),&index_flow); in main() 103 cg_field_write(index_file,index_base,index_zone,index_flow,CGNS_ENUMV(RealDouble),"Density", in main() 105 … cg_field_write(index_file,index_base,index_zone,index_flow,CGNS_ENUMV(RealDouble),"Pressure", in main() 110 cg_field_write(index_file,index_base,index_zone,index_flow,CGNS_ENUMV(RealDouble),"Density", in main() 112 … cg_field_write(index_file,index_base,index_zone,index_flow,CGNS_ENUMV(RealDouble),"Pressure", in main() 117 cg_field_write(index_file,index_base,index_zone,index_flow,CGNS_ENUMV(RealDouble),"Density", in main() 119 … cg_field_write(index_file,index_base,index_zone,index_flow,CGNS_ENUMV(RealDouble),"Pressure", in main() 131 cg_ziter_write(index_file,index_base,index_zone,"ZoneIterativeData"); in main() [all …]
|
H A D | read_timevert_str.c | 45 int index_file,index_base,index_zone,nsteps,narrays; in main() local 62 index_zone=1; in main() 64 cg_zone_read(index_file,index_base,index_zone,zonename,isize[0]); in main() 102 cg_ziter_read(index_file,index_base,index_zone,zitername); in main() 135 cg_sol_info(index_file,index_base,index_zone,n,solname2,&loc); in main() 151 cg_field_read(index_file,index_base,index_zone,n,"Density", in main() 153 cg_field_read(index_file,index_base,index_zone,n,"Pressure", in main() 158 cg_field_read(index_file,index_base,index_zone,n,"Density", in main() 160 cg_field_read(index_file,index_base,index_zone,n,"Pressure", in main() 165 cg_field_read(index_file,index_base,index_zone,n,"Density", in main() [all …]
|
H A D | read_con2zn_str.c | 30 int index_file,index_base,nzone,index_zone,n1to1,index_conn; in main() local 47 for (index_zone=1; index_zone <= nzone; ++index_zone) in main() 51 cg_n1to1(index_file,index_base,index_zone,&n1to1); in main() 59 cg_1to1_read(index_file,index_base,index_zone,index_conn,connectname,donorname, in main() 61 printf("\nIn zone %i:\n",index_zone); in main()
|
H A D | write_bc_str.c | 32 int index_file,index_base,index_zone,index_bc; in main() local 44 index_zone=1; in main() 46 cg_zone_read(index_file,index_base,index_zone,zonename,isize[0]); in main() 64 cg_boco_write(index_file,index_base,index_zone,"Ilo",CGNS_ENUMV(BCTunnelInflow), in main() 76 cg_boco_write(index_file,index_base,index_zone,"Ihi",CGNS_ENUMV(BCExtrapolate), in main() 88 cg_boco_write(index_file,index_base,index_zone,"Jlo",CGNS_ENUMV(BCWallInviscid), in main() 100 cg_boco_write(index_file,index_base,index_zone,"Jhi",CGNS_ENUMV(BCWallInviscid), in main() 112 cg_boco_write(index_file,index_base,index_zone,"Klo",CGNS_ENUMV(BCWallInviscid), in main() 124 cg_boco_write(index_file,index_base,index_zone,"Khi",CGNS_ENUMV(BCWallInviscid), in main()
|
H A D | write_grid2zn_str.c | 39 int index_zone,index_coord; in main() local 88 cg_zone_write(index_file,index_base,zonename,*isize,CGNS_ENUMV(Structured),&index_zone); in main() 90 cg_coord_write(index_file,index_base,index_zone,CGNS_ENUMV(RealDouble),"CoordinateX", in main() 92 cg_coord_write(index_file,index_base,index_zone,CGNS_ENUMV(RealDouble),"CoordinateY", in main() 94 cg_coord_write(index_file,index_base,index_zone,CGNS_ENUMV(RealDouble),"CoordinateZ", in main() 99 cg_zone_write(index_file,index_base,zonename,*isize,CGNS_ENUMV(Structured),&index_zone); in main() 101 cg_coord_write(index_file,index_base,index_zone,CGNS_ENUMV(RealDouble),"CoordinateX", in main() 103 cg_coord_write(index_file,index_base,index_zone,CGNS_ENUMV(RealDouble),"CoordinateY", in main() 105 cg_coord_write(index_file,index_base,index_zone,CGNS_ENUMV(RealDouble),"CoordinateZ", in main()
|
H A D | read_con2zn_genrl_str.c | 32 int i,index_file,index_base,nzone,index_zone,nconns,index_conn; in main() local 55 for (index_zone=1; index_zone <= nzone; ++index_zone) in main() 59 cg_nconns(index_file,index_base,index_zone,&nconns); in main() 67 cg_conn_info(index_file,index_base,index_zone,index_conn,connectname,&location, in main() 75 cg_conn_read(index_file,index_base,index_zone,index_conn,ipnts[0], in main() 77 printf("\nIn zone %i:\n",index_zone); in main()
|
H A D | read_flowcentrind_str.c | 42 int index_file,index_base,index_zone,index_flow; in main() local 53 index_zone=1; in main() 57 cg_zone_read(index_file,index_base,index_zone,zonename,isize[0]); in main() 59 cg_goto(index_file,index_base,"Zone_t",index_zone,"FlowSolution_t",index_flow,"end"); in main() 68 cg_sol_info(index_file,index_base,index_zone,index_flow,solname,&loc); in main() 79 cg_field_read(index_file,index_base,index_zone,index_flow,"Density", in main() 81 cg_field_read(index_file,index_base,index_zone,index_flow,"Pressure", in main()
|
/dports/science/cgnslib/CGNS-4.1.2/src/Test_UserGuideCode/Fortran_code/ |
H A D | write_con2zn_genrl_str.F90 | 55 do index_zone=1,nzone 58 ilo(index_zone)=1 59 ihi(index_zone)=isize(1,1) 60 jlo(index_zone)=1 61 jhi(index_zone)=isize(2,1) 62 klo(index_zone)=1 66 do index_zone=1,nzone 83 do j=jlo(index_zone),jhi(index_zone) 84 do k=klo(index_zone),khi(index_zone) 102 do j=jlo(index_zone),jhi(index_zone) [all …]
|
H A D | write_con2zn_str.F90 | 30 integer index_zone,index_base,index_file,ier variable 53 do index_zone=1,nzone 55 zonename(index_zone),isize,ier) 56 ilo(index_zone)=1 57 ihi(index_zone)=isize(1,1) 58 jlo(index_zone)=1 59 jhi(index_zone)=isize(2,1) 60 klo(index_zone)=1 61 khi(index_zone)=isize(3,1) 64 do index_zone=1,nzone [all …]
|
H A D | write_floweqn_str.F90 | 27 integer ieq_dim,index_zone,index_base,index_file,ier variable 45 index_zone=1 48 call cg_goto_f(index_file,index_base,ier,'Zone_t',index_zone,'end') 54 call cg_goto_f(index_file,index_base,ier,'Zone_t',index_zone, & 58 call cg_goto_f(index_file,index_base,ier,'Zone_t',index_zone, & 70 call cg_goto_f(index_file,index_base,ier,'Zone_t',index_zone, & 74 call cg_goto_f(index_file,index_base,ier,'Zone_t',index_zone, & 78 call cg_goto_f(index_file,index_base,ier,'Zone_t',index_zone, & 83 call cg_goto_f(index_file,index_base,ier,'Zone_t',index_zone, & 87 call cg_goto_f(index_file,index_base,ier,'Zone_t',index_zone, & [all …]
|
H A D | read_floweqn_str.F90 | 28 integer index_zone,index_base,index_file,ier variable 37 index_zone=1 40 call cg_goto_f(index_file,index_base,ier,'Zone_t',index_zone,'end') 49 call cg_goto_f(index_file,index_base,ier,'Zone_t',index_zone, & 54 call cg_goto_f(index_file,index_base,ier,'Zone_t',index_zone, & 62 call cg_goto_f(index_file,index_base,ier,'Zone_t',index_zone, & 66 call cg_goto_f(index_file,index_base,ier,'Zone_t',index_zone, & 73 call cg_goto_f(index_file,index_base,ier,'Zone_t',index_zone, & 78 call cg_goto_f(index_file,index_base,ier,'Zone_t',index_zone, & 84 call cg_goto_f(index_file,index_base,ier,'Zone_t',index_zone, &
|
H A D | read_timevert_str.F90 | 42 integer index_zone,index_base,index_file,ier variable 54 index_zone=1 56 call cg_zone_read_f(index_file,index_base,index_zone,zonename, & 92 call cg_ziter_read_f(index_file,index_base,index_zone,zitername,ier) 94 index_zone,'ZoneIterativeData_t',1,'end') 121 call cg_sol_info_f(index_file,index_base,index_zone,n, & 133 call cg_field_read_f(index_file,index_base,index_zone,n, & 135 call cg_field_read_f(index_file,index_base,index_zone,n, & 138 call cg_field_read_f(index_file,index_base,index_zone,n, & 140 call cg_field_read_f(index_file,index_base,index_zone,n, & [all …]
|
H A D | write_timevert_str.F90 | 40 integer nsteps,index_field,n,index_zone,ier,index_file variable 83 index_zone=1 91 call cg_sol_write_f(index_file,index_base,index_zone,solname(n), & 96 call cg_field_write_f(index_file,index_base,index_zone,index_flow, & 98 call cg_field_write_f(index_file,index_base,index_zone,index_flow, & 101 call cg_field_write_f(index_file,index_base,index_zone,index_flow, & 103 call cg_field_write_f(index_file,index_base,index_zone,index_flow, & 106 call cg_field_write_f(index_file,index_base,index_zone,index_flow, & 108 call cg_field_write_f(index_file,index_base,index_zone,index_flow, & 120 call cg_ziter_write_f(index_file,index_base,index_zone, & [all …]
|
H A D | read_grid2zn_str.F90 | 34 integer nzone,i,j,k,index_zone,index_base,index_file,ier variable 51 do index_zone=1,nzone 53 call cg_zone_read_f(index_file,index_base,index_zone, & 64 call cg_coord_read_f(index_file,index_base,index_zone, & 66 call cg_coord_read_f(index_file,index_base,index_zone, & 68 call cg_coord_read_f(index_file,index_base,index_zone, & 74 xsav(i,j,k,index_zone)=x(i,j,k) 75 ysav(i,j,k,index_zone)=y(i,j,k) 76 zsav(i,j,k,index_zone)=z(i,j,k)
|
H A D | read_grid_unst.F90 | 29 integer index_zone,index_base,index_file,ier variable 39 index_zone=1 41 call cg_zone_read_f(index_file,index_base,index_zone,zonename, & 48 call cg_coord_read_f(index_file,index_base,index_zone, & 50 call cg_coord_read_f(index_file,index_base,index_zone, & 52 call cg_coord_read_f(index_file,index_base,index_zone, & 55 call cg_nsections_f(index_file,index_base,index_zone,nsections,ier) 59 call cg_section_read_f(index_file,index_base,index_zone, & 68 call cg_elements_read_f(index_file,index_base,index_zone, &
|
H A D | write_bc_str.F90 | 30 integer index_zone,index_base,index_file,index_bc,ier variable 46 index_zone=1 48 call cg_zone_read_f(index_file,index_base,index_zone,zonename, & 67 call cg_boco_write_f(index_file,index_base,index_zone,'Ilo', & 79 call cg_boco_write_f(index_file,index_base,index_zone,'Ihi', & 91 call cg_boco_write_f(index_file,index_base,index_zone,'Jlo', & 103 call cg_boco_write_f(index_file,index_base,index_zone,'Jhi', & 115 call cg_boco_write_f(index_file,index_base,index_zone,'Klo', & 127 call cg_boco_write_f(index_file,index_base,index_zone,'Khi', &
|
H A D | write_grid2zn_str.F90 | 31 integer index_coord,index_zone,index_base,ier variable 85 Structured,index_zone,ier) 87 call cg_coord_write_f(index_file,index_base,index_zone,RealDouble, & 89 call cg_coord_write_f(index_file,index_base,index_zone,RealDouble, & 91 call cg_coord_write_f(index_file,index_base,index_zone,RealDouble, & 97 Structured,index_zone,ier) 99 call cg_coord_write_f(index_file,index_base,index_zone,RealDouble, & 101 call cg_coord_write_f(index_file,index_base,index_zone,RealDouble, & 103 call cg_coord_write_f(index_file,index_base,index_zone,RealDouble, &
|
H A D | read_flowcentrind_str.F90 | 39 integer loc,index_flow,index_zone,index_base,index_file,ier variable 49 index_zone=1 53 call cg_zone_read_f(index_file,index_base,index_zone,zonename,isize,ier) 55 call cg_goto_f(index_file,index_base,ier,'Zone_t',index_zone, & 65 call cg_sol_info_f(index_file,index_base,index_zone,index_flow, & 76 call cg_field_read_f(index_file,index_base,index_zone,index_flow, & 78 call cg_field_read_f(index_file,index_base,index_zone,index_flow, &
|
/dports/science/cgnslib/CGNS-4.1.2/src/Test_UserGuideCode/C_code_parallel/ |
H A D | write_grid_str_paroverzone.c | 32 int index_zone, index_grid, index_coordx, index_coordy, index_coordz; in main() local 59 &index_zone)) cg_error_exit(); in main() 60 if (cg_grid_write(index_file, index_base, index_zone, in main() 64 if (cgp_coord_write(index_file, index_base, index_zone, in main() 67 if (cgp_coord_write(index_file, index_base, index_zone, in main() 70 if (cgp_coord_write(index_file, index_base, index_zone, in main() 147 index_zone = (idxGlobalZone < numZone) ? idxGlobalZone + 1 : 1; in main() 149 if (cgp_coord_general_write_data(index_file, index_base, index_zone, 1, in main() 153 if (cgp_coord_general_write_data(index_file, index_base, index_zone, 2, in main() 157 if (cgp_coord_general_write_data(index_file, index_base, index_zone, 3, in main()
|