@@ -681,23 +681,23 @@ void IRICLIBDLL FMNAME(cg_iric_read_grid_functional_real_cell_mul_f, CG_IRIC_REA
681
681
}
682
682
683
683
void 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 ;
685
685
c_isize = (cgsize_t )(* isize );
686
686
* ier = cg_iRIC_WriteGridCoord1d_Mul (* fid , c_isize , x );
687
687
}
688
688
689
689
void 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 ;
692
692
c_isize = (cgsize_t )(* isize );
693
693
c_jsize = (cgsize_t )(* jsize );
694
694
* ier = cg_iRIC_WriteGridCoord2d_Mul (* fid , c_isize , c_jsize , x , y );
695
695
}
696
696
697
697
void 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 ;
701
701
c_isize = (cgsize_t )(* isize );
702
702
c_jsize = (cgsize_t )(* jsize );
703
703
c_ksize = (cgsize_t )(* ksize );
@@ -774,6 +774,28 @@ void IRICLIBDLL FMNAME(cg_iric_read_sol_baseiterative_real_mul_f, CG_IRIC_READ_S
774
774
* ier = cg_iRIC_Read_Sol_BaseIterative_Real_Mul (* fid , * step , c_name , value );
775
775
}
776
776
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
+
777
799
void 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 ) {
778
800
* ier = cg_iRIC_Read_Sol_GridCoord2d_Mul (* fid , * step , x , y );
779
801
}
@@ -880,6 +902,19 @@ void IRICLIBDLL FMNAME(cg_iric_write_sol_baseiterative_real_mul_f, CG_IRIC_WRITE
880
902
* ier = cg_iRIC_Write_Sol_BaseIterative_Real_Mul (* fid , c_name , * value );
881
903
}
882
904
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
+
883
918
void IRICLIBDLL FMNAME (cg_iric_write_sol_gridcoord2d_mul_f , CG_IRIC_WRITE_SOL_GRIDCOORD2D_MUL_F ) (int * fid , double * x , double * y , int * ier ) {
884
919
* ier = cg_iRIC_Write_Sol_GridCoord2d_Mul (* fid , x , y );
885
920
}
@@ -1200,13 +1235,13 @@ void IRICLIBDLL FMNAME(cg_iric_write_bc_functionalwithname_string_mul_f, CG_IRIC
1200
1235
}
1201
1236
1202
1237
void 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 ;
1204
1239
c_count = (cgsize_t )(* count );
1205
1240
* ier = cg_iRIC_Write_Sol_Particle_Pos2d_Mul (* fid , c_count , x , y );
1206
1241
}
1207
1242
1208
1243
void 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 ;
1210
1245
c_count = (cgsize_t )(* count );
1211
1246
* ier = cg_iRIC_Write_Sol_Particle_Pos3d_Mul (* fid , c_count , x , y , z );
1212
1247
}
@@ -1980,23 +2015,23 @@ void IRICLIBDLL FMNAME(cg_iric_read_grid_functional_real_cell_f, CG_IRIC_READ_GR
1980
2015
}
1981
2016
1982
2017
void 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 ;
1984
2019
c_isize = (cgsize_t )(* isize );
1985
2020
* ier = cg_iRIC_WriteGridCoord1d (c_isize , x );
1986
2021
}
1987
2022
1988
2023
void 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 ;
1991
2026
c_isize = (cgsize_t )(* isize );
1992
2027
c_jsize = (cgsize_t )(* jsize );
1993
2028
* ier = cg_iRIC_WriteGridCoord2d (c_isize , c_jsize , x , y );
1994
2029
}
1995
2030
1996
2031
void 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 ;
2000
2035
c_isize = (cgsize_t )(* isize );
2001
2036
c_jsize = (cgsize_t )(* jsize );
2002
2037
c_ksize = (cgsize_t )(* ksize );
@@ -2073,6 +2108,28 @@ void IRICLIBDLL FMNAME(cg_iric_read_sol_baseiterative_real_f, CG_IRIC_READ_SOL_B
2073
2108
* ier = cg_iRIC_Read_Sol_BaseIterative_Real (* step , c_name , value );
2074
2109
}
2075
2110
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
+
2076
2133
void IRICLIBDLL FMNAME (cg_iric_read_sol_gridcoord2d_f , CG_IRIC_READ_SOL_GRIDCOORD2D_F ) (int * step , double * x , double * y , int * ier ) {
2077
2134
* ier = cg_iRIC_Read_Sol_GridCoord2d (* step , x , y );
2078
2135
}
@@ -2179,6 +2236,19 @@ void IRICLIBDLL FMNAME(cg_iric_write_sol_baseiterative_real_f, CG_IRIC_WRITE_SOL
2179
2236
* ier = cg_iRIC_Write_Sol_BaseIterative_Real (c_name , * value );
2180
2237
}
2181
2238
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
+
2182
2252
void IRICLIBDLL FMNAME (cg_iric_write_sol_gridcoord2d_f , CG_IRIC_WRITE_SOL_GRIDCOORD2D_F ) (double * x , double * y , int * ier ) {
2183
2253
* ier = cg_iRIC_Write_Sol_GridCoord2d (x , y );
2184
2254
}
@@ -2499,13 +2569,13 @@ void IRICLIBDLL FMNAME(cg_iric_write_bc_functionalwithname_string_f, CG_IRIC_WRI
2499
2569
}
2500
2570
2501
2571
void 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 ;
2503
2573
c_count = (cgsize_t )(* count );
2504
2574
* ier = cg_iRIC_Write_Sol_Particle_Pos2d (c_count , x , y );
2505
2575
}
2506
2576
2507
2577
void 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 ;
2509
2579
c_count = (cgsize_t )(* count );
2510
2580
* ier = cg_iRIC_Write_Sol_Particle_Pos3d (c_count , x , y , z );
2511
2581
}
0 commit comments