@@ -1229,6 +1229,45 @@ void IRICLIBDLL FMNAME(cg_iric_write_sol_particle_integer_mul_f, CG_IRIC_WRITE_S
1229
1229
* ier = cg_iRIC_Write_Sol_Particle_Integer_Mul (* fid , c_name , value );
1230
1230
}
1231
1231
1232
+ void IRICLIBDLL FMNAME (cg_iric_write_sol_particlegroup_groupbegin_mul_f , CG_IRIC_WRITE_SOL_PARTICLEGROUP_GROUPBEGIN_MUL_F ) (int * fid , STR_PSTR (name ), int * ier STR_PLEN (name )) {
1233
+ char c_name [CGIO_MAX_NAME_LENGTH + 1 ];
1234
+ string_2_C_string (STR_PTR (name ), STR_LEN (name ),
1235
+ c_name , CGIO_MAX_NAME_LENGTH , ier );
1236
+ if (* ier ) return ;
1237
+
1238
+ * ier = cg_iRIC_Write_Sol_ParticleGroup_GroupBegin_Mul (* fid , c_name );
1239
+ }
1240
+
1241
+ void IRICLIBDLL FMNAME (cg_iric_write_sol_particlegroup_groupend_mul_f , CG_IRIC_WRITE_SOL_PARTICLEGROUP_GROUPEND_MUL_F ) (int * fid , int * ier ) {
1242
+ * ier = cg_iRIC_Write_Sol_ParticleGroup_GroupEnd_Mul (* fid );
1243
+ }
1244
+
1245
+ void IRICLIBDLL FMNAME (cg_iric_write_sol_particlegroup_pos2d_mul_f , CG_IRIC_WRITE_SOL_PARTICLEGROUP_POS2D_MUL_F ) (int * fid , double * x , double * y , int * ier ) {
1246
+ * ier = cg_iRIC_Write_Sol_ParticleGroup_Pos2d_Mul (* fid , * x , * y );
1247
+ }
1248
+
1249
+ void IRICLIBDLL FMNAME (cg_iric_write_sol_particlegroup_pos3d_mul_f , CG_IRIC_WRITE_SOL_PARTICLEGROUP_POS3D_MUL_F ) (int * fid , double * x , double * y , double * z , int * ier ) {
1250
+ * ier = cg_iRIC_Write_Sol_ParticleGroup_Pos3d_Mul (* fid , * x , * y , * z );
1251
+ }
1252
+
1253
+ void IRICLIBDLL FMNAME (cg_iric_write_sol_particlegroup_integer_mul_f , CG_IRIC_WRITE_SOL_PARTICLEGROUP_INTEGER_MUL_F ) (int * fid , STR_PSTR (name ), int * value , int * ier STR_PLEN (name )) {
1254
+ char c_name [CGIO_MAX_NAME_LENGTH + 1 ];
1255
+ string_2_C_string (STR_PTR (name ), STR_LEN (name ),
1256
+ c_name , CGIO_MAX_NAME_LENGTH , ier );
1257
+ if (* ier ) return ;
1258
+
1259
+ * ier = cg_iRIC_Write_Sol_ParticleGroup_Integer_Mul (* fid , c_name , * value );
1260
+ }
1261
+
1262
+ void IRICLIBDLL FMNAME (cg_iric_write_sol_particlegroup_real_mul_f , CG_IRIC_WRITE_SOL_PARTICLEGROUP_REAL_MUL_F ) (int * fid , STR_PSTR (name ), double * value , int * ier STR_PLEN (name )) {
1263
+ char c_name [CGIO_MAX_NAME_LENGTH + 1 ];
1264
+ string_2_C_string (STR_PTR (name ), STR_LEN (name ),
1265
+ c_name , CGIO_MAX_NAME_LENGTH , ier );
1266
+ if (* ier ) return ;
1267
+
1268
+ * ier = cg_iRIC_Write_Sol_ParticleGroup_Real_Mul (* fid , c_name , * value );
1269
+ }
1270
+
1232
1271
void IRICLIBDLL FMNAME (cg_iric_write_sol_polydata_groupbegin_mul_f , CG_IRIC_WRITE_SOL_POLYDATA_GROUPBEGIN_MUL_F ) (int * fid , STR_PSTR (name ), int * ier STR_PLEN (name )) {
1233
1272
char c_name [CGIO_MAX_NAME_LENGTH + 1 ];
1234
1273
string_2_C_string (STR_PTR (name ), STR_LEN (name ),
@@ -2489,6 +2528,45 @@ void IRICLIBDLL FMNAME(cg_iric_write_sol_particle_integer_f, CG_IRIC_WRITE_SOL_P
2489
2528
* ier = cg_iRIC_Write_Sol_Particle_Integer (c_name , value );
2490
2529
}
2491
2530
2531
+ void IRICLIBDLL FMNAME (cg_iric_write_sol_particlegroup_groupbegin_f , CG_IRIC_WRITE_SOL_PARTICLEGROUP_GROUPBEGIN_F ) (STR_PSTR (name ), int * ier STR_PLEN (name )) {
2532
+ char c_name [CGIO_MAX_NAME_LENGTH + 1 ];
2533
+ string_2_C_string (STR_PTR (name ), STR_LEN (name ),
2534
+ c_name , CGIO_MAX_NAME_LENGTH , ier );
2535
+ if (* ier ) return ;
2536
+
2537
+ * ier = cg_iRIC_Write_Sol_ParticleGroup_GroupBegin (c_name );
2538
+ }
2539
+
2540
+ void IRICLIBDLL FMNAME (cg_iric_write_sol_particlegroup_groupend_f , CG_IRIC_WRITE_SOL_PARTICLEGROUP_GROUPEND_F ) (int * ier ) {
2541
+ * ier = cg_iRIC_Write_Sol_ParticleGroup_GroupEnd ();
2542
+ }
2543
+
2544
+ void IRICLIBDLL FMNAME (cg_iric_write_sol_particlegroup_pos2d_f , CG_IRIC_WRITE_SOL_PARTICLEGROUP_POS2D_F ) (double * x , double * y , int * ier ) {
2545
+ * ier = cg_iRIC_Write_Sol_ParticleGroup_Pos2d (* x , * y );
2546
+ }
2547
+
2548
+ void IRICLIBDLL FMNAME (cg_iric_write_sol_particlegroup_pos3d_f , CG_IRIC_WRITE_SOL_PARTICLEGROUP_POS3D_F ) (double * x , double * y , double * z , int * ier ) {
2549
+ * ier = cg_iRIC_Write_Sol_ParticleGroup_Pos3d (* x , * y , * z );
2550
+ }
2551
+
2552
+ void IRICLIBDLL FMNAME (cg_iric_write_sol_particlegroup_integer_f , CG_IRIC_WRITE_SOL_PARTICLEGROUP_INTEGER_F ) (STR_PSTR (name ), int * value , int * ier STR_PLEN (name )) {
2553
+ char c_name [CGIO_MAX_NAME_LENGTH + 1 ];
2554
+ string_2_C_string (STR_PTR (name ), STR_LEN (name ),
2555
+ c_name , CGIO_MAX_NAME_LENGTH , ier );
2556
+ if (* ier ) return ;
2557
+
2558
+ * ier = cg_iRIC_Write_Sol_ParticleGroup_Integer (c_name , * value );
2559
+ }
2560
+
2561
+ void IRICLIBDLL FMNAME (cg_iric_write_sol_particlegroup_real_f , CG_IRIC_WRITE_SOL_PARTICLEGROUP_REAL_F ) (STR_PSTR (name ), double * value , int * ier STR_PLEN (name )) {
2562
+ char c_name [CGIO_MAX_NAME_LENGTH + 1 ];
2563
+ string_2_C_string (STR_PTR (name ), STR_LEN (name ),
2564
+ c_name , CGIO_MAX_NAME_LENGTH , ier );
2565
+ if (* ier ) return ;
2566
+
2567
+ * ier = cg_iRIC_Write_Sol_ParticleGroup_Real (c_name , * value );
2568
+ }
2569
+
2492
2570
void IRICLIBDLL FMNAME (cg_iric_write_sol_polydata_groupbegin_f , CG_IRIC_WRITE_SOL_POLYDATA_GROUPBEGIN_F ) (STR_PSTR (name ), int * ier STR_PLEN (name )) {
2493
2571
char c_name [CGIO_MAX_NAME_LENGTH + 1 ];
2494
2572
string_2_C_string (STR_PTR (name ), STR_LEN (name ),
0 commit comments