@@ -681,23 +681,23 @@ void IRICLIBDLL FMNAME(cg_iric_read_grid_functional_real_cell_mul_f, CG_IRIC_REA
681681}
682682
683683void IRICLIBDLL FMNAME (cg_iric_writegridcoord1d_mul_f , CG_IRIC_WRITEGRIDCOORD1D_MUL_F ) (int * fid , int * isize , double * x , int * ier ) {
684- int c_isize ;
684+ cgsize_t c_isize ;
685685 c_isize = (cgsize_t )(* isize );
686686 * ier = cg_iRIC_WriteGridCoord1d_Mul (* fid , c_isize , x );
687687}
688688
689689void IRICLIBDLL FMNAME (cg_iric_writegridcoord2d_mul_f , CG_IRIC_WRITEGRIDCOORD2D_MUL_F ) (int * fid , int * isize , int * jsize , double * x , double * y , int * ier ) {
690- int c_isize ;
691- int c_jsize ;
690+ cgsize_t c_isize ;
691+ cgsize_t c_jsize ;
692692 c_isize = (cgsize_t )(* isize );
693693 c_jsize = (cgsize_t )(* jsize );
694694 * ier = cg_iRIC_WriteGridCoord2d_Mul (* fid , c_isize , c_jsize , x , y );
695695}
696696
697697void IRICLIBDLL FMNAME (cg_iric_writegridcoord3d_mul_f , CG_IRIC_WRITEGRIDCOORD3D_MUL_F ) (int * fid , int * isize , int * jsize , int * ksize , double * x , double * y , double * z , int * ier ) {
698- int c_isize ;
699- int c_jsize ;
700- int c_ksize ;
698+ cgsize_t c_isize ;
699+ cgsize_t c_jsize ;
700+ cgsize_t c_ksize ;
701701 c_isize = (cgsize_t )(* isize );
702702 c_jsize = (cgsize_t )(* jsize );
703703 c_ksize = (cgsize_t )(* ksize );
@@ -774,6 +774,28 @@ void IRICLIBDLL FMNAME(cg_iric_read_sol_baseiterative_real_mul_f, CG_IRIC_READ_S
774774 * ier = cg_iRIC_Read_Sol_BaseIterative_Real_Mul (* fid , * step , c_name , value );
775775}
776776
777+ void IRICLIBDLL FMNAME (cg_iric_read_sol_baseiterative_stringlen_mul_f , CG_IRIC_READ_SOL_BASEITERATIVE_STRINGLEN_MUL_F ) (int * fid , int * step , STR_PSTR (name ), int * length , int * ier STR_PLEN (name )) {
778+ char c_name [CGIO_MAX_NAME_LENGTH + 1 ];
779+ string_2_C_string (STR_PTR (name ), STR_LEN (name ),
780+ c_name , CGIO_MAX_NAME_LENGTH , ier );
781+ if (* ier ) return ;
782+
783+ * ier = cg_iRIC_Read_Sol_BaseIterative_StringLen_Mul (* fid , * step , c_name , length );
784+ }
785+
786+ void IRICLIBDLL FMNAME (cg_iric_read_sol_baseiterative_string_mul_f , CG_IRIC_READ_SOL_BASEITERATIVE_STRING_MUL_F ) (int * fid , int * step , STR_PSTR (name ), STR_PSTR (strvalue ), int * ier STR_PLEN (name ) STR_PLEN (strvalue )) {
787+ char c_name [CGIO_MAX_NAME_LENGTH + 1 ];
788+ char c_strvalue [STRINGMAXLEN + 1 ];
789+ string_2_C_string (STR_PTR (name ), STR_LEN (name ),
790+ c_name , CGIO_MAX_NAME_LENGTH , ier );
791+ if (* ier ) return ;
792+
793+ * ier = cg_iRIC_Read_Sol_BaseIterative_String_Mul (* fid , * step , c_name , c_strvalue );
794+
795+ if (* ier ) return ;
796+ string_2_F_string (c_strvalue , STR_PTR (strvalue ), STR_LEN (strvalue ), ier );
797+ }
798+
777799void IRICLIBDLL FMNAME (cg_iric_read_sol_gridcoord2d_mul_f , CG_IRIC_READ_SOL_GRIDCOORD2D_MUL_F ) (int * fid , int * step , double * x , double * y , int * ier ) {
778800 * ier = cg_iRIC_Read_Sol_GridCoord2d_Mul (* fid , * step , x , y );
779801}
@@ -880,6 +902,19 @@ void IRICLIBDLL FMNAME(cg_iric_write_sol_baseiterative_real_mul_f, CG_IRIC_WRITE
880902 * ier = cg_iRIC_Write_Sol_BaseIterative_Real_Mul (* fid , c_name , * value );
881903}
882904
905+ void IRICLIBDLL FMNAME (cg_iric_write_sol_baseiterative_string_mul_f , CG_IRIC_WRITE_SOL_BASEITERATIVE_STRING_MUL_F ) (int * fid , STR_PSTR (name ), STR_PSTR (strvalue ), int * ier STR_PLEN (name ) STR_PLEN (strvalue )) {
906+ char c_name [CGIO_MAX_NAME_LENGTH + 1 ];
907+ char c_strvalue [CGIO_MAX_NAME_LENGTH + 1 ];
908+ string_2_C_string (STR_PTR (name ), STR_LEN (name ),
909+ c_name , CGIO_MAX_NAME_LENGTH , ier );
910+ if (* ier ) return ;
911+ string_2_C_string (STR_PTR (strvalue ), STR_LEN (strvalue ),
912+ c_strvalue , CGIO_MAX_NAME_LENGTH , ier );
913+ if (* ier ) return ;
914+
915+ * ier = cg_iRIC_Write_Sol_BaseIterative_String_Mul (* fid , c_name , c_strvalue );
916+ }
917+
883918void IRICLIBDLL FMNAME (cg_iric_write_sol_gridcoord2d_mul_f , CG_IRIC_WRITE_SOL_GRIDCOORD2D_MUL_F ) (int * fid , double * x , double * y , int * ier ) {
884919 * ier = cg_iRIC_Write_Sol_GridCoord2d_Mul (* fid , x , y );
885920}
@@ -1200,13 +1235,13 @@ void IRICLIBDLL FMNAME(cg_iric_write_bc_functionalwithname_string_mul_f, CG_IRIC
12001235}
12011236
12021237void IRICLIBDLL FMNAME (cg_iric_write_sol_particle_pos2d_mul_f , CG_IRIC_WRITE_SOL_PARTICLE_POS2D_MUL_F ) (int * fid , int * count , double * x , double * y , int * ier ) {
1203- int c_count ;
1238+ cgsize_t c_count ;
12041239 c_count = (cgsize_t )(* count );
12051240 * ier = cg_iRIC_Write_Sol_Particle_Pos2d_Mul (* fid , c_count , x , y );
12061241}
12071242
12081243void IRICLIBDLL FMNAME (cg_iric_write_sol_particle_pos3d_mul_f , CG_IRIC_WRITE_SOL_PARTICLE_POS3D_MUL_F ) (int * fid , int * count , double * x , double * y , double * z , int * ier ) {
1209- int c_count ;
1244+ cgsize_t c_count ;
12101245 c_count = (cgsize_t )(* count );
12111246 * ier = cg_iRIC_Write_Sol_Particle_Pos3d_Mul (* fid , c_count , x , y , z );
12121247}
@@ -1980,23 +2015,23 @@ void IRICLIBDLL FMNAME(cg_iric_read_grid_functional_real_cell_f, CG_IRIC_READ_GR
19802015}
19812016
19822017void IRICLIBDLL FMNAME (cg_iric_writegridcoord1d_f , CG_IRIC_WRITEGRIDCOORD1D_F ) (int * isize , double * x , int * ier ) {
1983- int c_isize ;
2018+ cgsize_t c_isize ;
19842019 c_isize = (cgsize_t )(* isize );
19852020 * ier = cg_iRIC_WriteGridCoord1d (c_isize , x );
19862021}
19872022
19882023void IRICLIBDLL FMNAME (cg_iric_writegridcoord2d_f , CG_IRIC_WRITEGRIDCOORD2D_F ) (int * isize , int * jsize , double * x , double * y , int * ier ) {
1989- int c_isize ;
1990- int c_jsize ;
2024+ cgsize_t c_isize ;
2025+ cgsize_t c_jsize ;
19912026 c_isize = (cgsize_t )(* isize );
19922027 c_jsize = (cgsize_t )(* jsize );
19932028 * ier = cg_iRIC_WriteGridCoord2d (c_isize , c_jsize , x , y );
19942029}
19952030
19962031void IRICLIBDLL FMNAME (cg_iric_writegridcoord3d_f , CG_IRIC_WRITEGRIDCOORD3D_F ) (int * isize , int * jsize , int * ksize , double * x , double * y , double * z , int * ier ) {
1997- int c_isize ;
1998- int c_jsize ;
1999- int c_ksize ;
2032+ cgsize_t c_isize ;
2033+ cgsize_t c_jsize ;
2034+ cgsize_t c_ksize ;
20002035 c_isize = (cgsize_t )(* isize );
20012036 c_jsize = (cgsize_t )(* jsize );
20022037 c_ksize = (cgsize_t )(* ksize );
@@ -2073,6 +2108,28 @@ void IRICLIBDLL FMNAME(cg_iric_read_sol_baseiterative_real_f, CG_IRIC_READ_SOL_B
20732108 * ier = cg_iRIC_Read_Sol_BaseIterative_Real (* step , c_name , value );
20742109}
20752110
2111+ void IRICLIBDLL FMNAME (cg_iric_read_sol_baseiterative_stringlen_f , CG_IRIC_READ_SOL_BASEITERATIVE_STRINGLEN_F ) (int * step , STR_PSTR (name ), int * length , int * ier STR_PLEN (name )) {
2112+ char c_name [CGIO_MAX_NAME_LENGTH + 1 ];
2113+ string_2_C_string (STR_PTR (name ), STR_LEN (name ),
2114+ c_name , CGIO_MAX_NAME_LENGTH , ier );
2115+ if (* ier ) return ;
2116+
2117+ * ier = cg_iRIC_Read_Sol_BaseIterative_StringLen (* step , c_name , length );
2118+ }
2119+
2120+ void IRICLIBDLL FMNAME (cg_iric_read_sol_baseiterative_string_f , CG_IRIC_READ_SOL_BASEITERATIVE_STRING_F ) (int * step , STR_PSTR (name ), STR_PSTR (strvalue ), int * ier STR_PLEN (name ) STR_PLEN (strvalue )) {
2121+ char c_name [CGIO_MAX_NAME_LENGTH + 1 ];
2122+ char c_strvalue [STRINGMAXLEN + 1 ];
2123+ string_2_C_string (STR_PTR (name ), STR_LEN (name ),
2124+ c_name , CGIO_MAX_NAME_LENGTH , ier );
2125+ if (* ier ) return ;
2126+
2127+ * ier = cg_iRIC_Read_Sol_BaseIterative_String (* step , c_name , c_strvalue );
2128+
2129+ if (* ier ) return ;
2130+ string_2_F_string (c_strvalue , STR_PTR (strvalue ), STR_LEN (strvalue ), ier );
2131+ }
2132+
20762133void IRICLIBDLL FMNAME (cg_iric_read_sol_gridcoord2d_f , CG_IRIC_READ_SOL_GRIDCOORD2D_F ) (int * step , double * x , double * y , int * ier ) {
20772134 * ier = cg_iRIC_Read_Sol_GridCoord2d (* step , x , y );
20782135}
@@ -2179,6 +2236,19 @@ void IRICLIBDLL FMNAME(cg_iric_write_sol_baseiterative_real_f, CG_IRIC_WRITE_SOL
21792236 * ier = cg_iRIC_Write_Sol_BaseIterative_Real (c_name , * value );
21802237}
21812238
2239+ void IRICLIBDLL FMNAME (cg_iric_write_sol_baseiterative_string_f , CG_IRIC_WRITE_SOL_BASEITERATIVE_STRING_F ) (STR_PSTR (name ), STR_PSTR (strvalue ), int * ier STR_PLEN (name ) STR_PLEN (strvalue )) {
2240+ char c_name [CGIO_MAX_NAME_LENGTH + 1 ];
2241+ char c_strvalue [CGIO_MAX_NAME_LENGTH + 1 ];
2242+ string_2_C_string (STR_PTR (name ), STR_LEN (name ),
2243+ c_name , CGIO_MAX_NAME_LENGTH , ier );
2244+ if (* ier ) return ;
2245+ string_2_C_string (STR_PTR (strvalue ), STR_LEN (strvalue ),
2246+ c_strvalue , CGIO_MAX_NAME_LENGTH , ier );
2247+ if (* ier ) return ;
2248+
2249+ * ier = cg_iRIC_Write_Sol_BaseIterative_String (c_name , c_strvalue );
2250+ }
2251+
21822252void IRICLIBDLL FMNAME (cg_iric_write_sol_gridcoord2d_f , CG_IRIC_WRITE_SOL_GRIDCOORD2D_F ) (double * x , double * y , int * ier ) {
21832253 * ier = cg_iRIC_Write_Sol_GridCoord2d (x , y );
21842254}
@@ -2499,13 +2569,13 @@ void IRICLIBDLL FMNAME(cg_iric_write_bc_functionalwithname_string_f, CG_IRIC_WRI
24992569}
25002570
25012571void IRICLIBDLL FMNAME (cg_iric_write_sol_particle_pos2d_f , CG_IRIC_WRITE_SOL_PARTICLE_POS2D_F ) (int * count , double * x , double * y , int * ier ) {
2502- int c_count ;
2572+ cgsize_t c_count ;
25032573 c_count = (cgsize_t )(* count );
25042574 * ier = cg_iRIC_Write_Sol_Particle_Pos2d (c_count , x , y );
25052575}
25062576
25072577void IRICLIBDLL FMNAME (cg_iric_write_sol_particle_pos3d_f , CG_IRIC_WRITE_SOL_PARTICLE_POS3D_F ) (int * count , double * x , double * y , double * z , int * ier ) {
2508- int c_count ;
2578+ cgsize_t c_count ;
25092579 c_count = (cgsize_t )(* count );
25102580 * ier = cg_iRIC_Write_Sol_Particle_Pos3d (c_count , x , y , z );
25112581}
0 commit comments