1 #ifndef LIDORT_INTERFACE_MASTERS_H 2 #define LIDORT_INTERFACE_MASTERS_H 5 #include <blitz/array.h> 19 void brdf_linsup_masters_m_read_wrap(
const char* filename,
const int* filename_len,
void** brdf_sup_in_in,
void** brdf_linsup_in_in,
void** brdf_sup_inputstatus_in,
void** brdf_sup_out_in,
void** brdf_linsup_out_in,
void** brdf_sup_outputstatus_in);
20 void brdf_linsup_masters_m_write_wrap(
const char* filename,
const int* filename_len,
void** brdf_sup_in_in,
void** brdf_linsup_in_in,
void** brdf_sup_inputstatus_in,
void** brdf_sup_out_in,
void** brdf_linsup_out_in,
void** brdf_sup_outputstatus_in);
22 void brdf_linsup_masters_m_brdf_lin_mainmaster_wrap(
const bool* do_debug_restoration_in,
const int* nmoments_input_in,
void** brdf_sup_in_in,
void** brdf_linsup_in_in,
void** brdf_sup_out_in,
void** brdf_linsup_out_in,
void** brdf_sup_outputstatus_in);
56 return *brdf_linsup_in_;
60 return *brdf_linsup_in_;
64 return brdf_linsup_in_;
70 return *brdf_sup_inputstatus_;
74 return *brdf_sup_inputstatus_;
78 return brdf_sup_inputstatus_;
84 return *brdf_sup_out_;
88 return *brdf_sup_out_;
98 return *brdf_linsup_out_;
102 return *brdf_linsup_out_;
106 return brdf_linsup_out_;
112 return *brdf_sup_outputstatus_;
116 return *brdf_sup_outputstatus_;
120 return brdf_sup_outputstatus_;
127 const char* filnam_lcl = filnam_in.c_str();
128 int filnam_in_len = (int) filnam_in.size();
129 void* brdf_sup_in_lcl = brdf_sup_in_->fortran_type_ptr();
130 void* brdf_linsup_in_lcl = brdf_linsup_in_->fortran_type_ptr();
131 void* brdf_sup_inputstatus_lcl = brdf_sup_inputstatus_->fortran_type_ptr();
137 void run(
const bool& do_debug_restoration_in,
const int& nmoments_input_in) {
138 void* brdf_sup_in_lcl = brdf_sup_in_->fortran_type_ptr();
139 void* brdf_linsup_in_lcl = brdf_linsup_in_->fortran_type_ptr();
140 void* brdf_sup_out_lcl = brdf_sup_out_->fortran_type_ptr();
141 void* brdf_linsup_out_lcl = brdf_linsup_out_->fortran_type_ptr();
142 void* brdf_sup_outputstatus_lcl = brdf_sup_outputstatus_->fortran_type_ptr();
152 const char* filename_lcl = filename_in.c_str();
153 int filename_in_len = (int) filename_in.size();
154 void* brdf_sup_in_lcl = brdf_sup_in_->fortran_type_ptr();
155 void* brdf_linsup_in_lcl = brdf_linsup_in_->fortran_type_ptr();
156 void* brdf_sup_inputstatus_lcl = brdf_sup_inputstatus_->fortran_type_ptr();
157 void* brdf_sup_out_lcl = brdf_sup_out_->fortran_type_ptr();
158 void* brdf_linsup_out_lcl = brdf_linsup_out_->fortran_type_ptr();
159 void* brdf_sup_outputstatus_lcl = brdf_sup_outputstatus_->fortran_type_ptr();
161 brdf_linsup_masters_m_read_wrap(filename_lcl, &filename_in_len, &brdf_sup_in_lcl, &brdf_linsup_in_lcl, &brdf_sup_inputstatus_lcl, &brdf_sup_out_lcl, &brdf_linsup_out_lcl, &brdf_sup_outputstatus_lcl);
168 const char* filename_lcl = filename_in.c_str();
169 int filename_in_len = (int) filename_in.size();
170 void* brdf_sup_in_lcl = brdf_sup_in_->fortran_type_ptr();
171 void* brdf_linsup_in_lcl = brdf_linsup_in_->fortran_type_ptr();
172 void* brdf_sup_inputstatus_lcl = brdf_sup_inputstatus_->fortran_type_ptr();
173 void* brdf_sup_out_lcl = brdf_sup_out_->fortran_type_ptr();
174 void* brdf_linsup_out_lcl = brdf_linsup_out_->fortran_type_ptr();
175 void* brdf_sup_outputstatus_lcl = brdf_sup_outputstatus_->fortran_type_ptr();
177 brdf_linsup_masters_m_write_wrap(filename_lcl, &filename_in_len, &brdf_sup_in_lcl, &brdf_linsup_in_lcl, &brdf_sup_inputstatus_lcl, &brdf_sup_out_lcl, &brdf_linsup_out_lcl, &brdf_sup_outputstatus_lcl);
182 output_stream <<
"Brdf_Linsup_Masters:" << std::endl
183 <<
" brdf_sup_in: " << obj.
brdf_sup_in() << std::endl
189 return output_stream;
207 void brdf_sup_masters_m_read_wrap(
const char* filename,
const int* filename_len,
void** brdf_sup_in_in,
void** brdf_sup_inputstatus_in,
void** brdf_sup_out_in,
void** brdf_sup_outputstatus_in);
208 void brdf_sup_masters_m_write_wrap(
const char* filename,
const int* filename_len,
void** brdf_sup_in_in,
void** brdf_sup_inputstatus_in,
void** brdf_sup_out_in,
void** brdf_sup_outputstatus_in);
210 void brdf_sup_masters_m_brdf_mainmaster_wrap(
const bool* do_debug_restoration_in,
const int* nmoments_input_in,
void** brdf_sup_in_in,
void** brdf_sup_out_in,
void** brdf_sup_outputstatus_in);
228 return *brdf_sup_in_;
232 return *brdf_sup_in_;
242 return *brdf_sup_inputstatus_;
246 return *brdf_sup_inputstatus_;
250 return brdf_sup_inputstatus_;
256 return *brdf_sup_out_;
260 return *brdf_sup_out_;
264 return brdf_sup_out_;
270 return *brdf_sup_outputstatus_;
274 return *brdf_sup_outputstatus_;
278 return brdf_sup_outputstatus_;
285 const char* filnam_lcl = filnam_in.c_str();
286 int filnam_in_len = (int) filnam_in.size();
287 void* brdf_sup_in_lcl = brdf_sup_in_->fortran_type_ptr();
288 void* brdf_sup_inputstatus_lcl = brdf_sup_inputstatus_->fortran_type_ptr();
294 void run(
const bool& do_debug_restoration_in,
const int& nmoments_input_in) {
295 void* brdf_sup_in_lcl = brdf_sup_in_->fortran_type_ptr();
296 void* brdf_sup_out_lcl = brdf_sup_out_->fortran_type_ptr();
297 void* brdf_sup_outputstatus_lcl = brdf_sup_outputstatus_->fortran_type_ptr();
307 const char* filename_lcl = filename_in.c_str();
308 int filename_in_len = (int) filename_in.size();
309 void* brdf_sup_in_lcl = brdf_sup_in_->fortran_type_ptr();
310 void* brdf_sup_inputstatus_lcl = brdf_sup_inputstatus_->fortran_type_ptr();
311 void* brdf_sup_out_lcl = brdf_sup_out_->fortran_type_ptr();
312 void* brdf_sup_outputstatus_lcl = brdf_sup_outputstatus_->fortran_type_ptr();
314 brdf_sup_masters_m_read_wrap(filename_lcl, &filename_in_len, &brdf_sup_in_lcl, &brdf_sup_inputstatus_lcl, &brdf_sup_out_lcl, &brdf_sup_outputstatus_lcl);
321 const char* filename_lcl = filename_in.c_str();
322 int filename_in_len = (int) filename_in.size();
323 void* brdf_sup_in_lcl = brdf_sup_in_->fortran_type_ptr();
324 void* brdf_sup_inputstatus_lcl = brdf_sup_inputstatus_->fortran_type_ptr();
325 void* brdf_sup_out_lcl = brdf_sup_out_->fortran_type_ptr();
326 void* brdf_sup_outputstatus_lcl = brdf_sup_outputstatus_->fortran_type_ptr();
328 brdf_sup_masters_m_write_wrap(filename_lcl, &filename_in_len, &brdf_sup_in_lcl, &brdf_sup_inputstatus_lcl, &brdf_sup_out_lcl, &brdf_sup_outputstatus_lcl);
333 output_stream <<
"Brdf_Sup_Masters:" << std::endl
334 <<
" brdf_sup_in: " << obj.
brdf_sup_in() << std::endl
338 return output_stream;
354 void lcs_masters_read_wrap(
const char* filename,
const int* filename_len,
void** lidort_fixin_in,
void** lidort_modin_in,
void** lidort_sup_in,
void** lidort_out_in,
void** lidort_linfixin_in,
void** lidort_linmodin_in,
void** lidort_linsup_in,
void** lidort_linout_in);
355 void lcs_masters_write_wrap(
const char* filename,
const int* filename_len,
void** lidort_fixin_in,
void** lidort_modin_in,
void** lidort_sup_in,
void** lidort_out_in,
void** lidort_linfixin_in,
void** lidort_linmodin_in,
void** lidort_linsup_in,
void** lidort_linout_in);
356 void lcs_masters_lcs_master_wrap(
void** lidort_fixin_in,
void** lidort_modin_in,
void** lidort_sup_in,
void** lidort_out_in,
void** lidort_linfixin_in,
void** lidort_linmodin_in,
void** lidort_linsup_in,
void** lidort_linout_in);
378 return *lidort_fixin_;
382 return *lidort_fixin_;
386 return lidort_fixin_;
391 void* dst_ptr = lidort_fixin_->fortran_type_ptr();
398 return *lidort_modin_;
402 return *lidort_modin_;
406 return lidort_modin_;
411 void* dst_ptr = lidort_modin_->fortran_type_ptr();
431 void* dst_ptr = lidort_sup_->fortran_type_ptr();
452 return *lidort_linfixin_;
456 return *lidort_linfixin_;
460 return lidort_linfixin_;
465 void* dst_ptr = lidort_linfixin_->fortran_type_ptr();
472 return *lidort_linmodin_;
476 return *lidort_linmodin_;
480 return lidort_linmodin_;
485 void* dst_ptr = lidort_linmodin_->fortran_type_ptr();
492 return *lidort_linsup_;
496 return *lidort_linsup_;
500 return lidort_linsup_;
505 void* dst_ptr = lidort_linsup_->fortran_type_ptr();
512 return *lidort_linout_;
516 return *lidort_linout_;
520 return lidort_linout_;
527 void* lidort_fixin_lcl = lidort_fixin_->fortran_type_ptr();
528 void* lidort_modin_lcl = lidort_modin_->fortran_type_ptr();
529 void* lidort_sup_lcl = lidort_sup_->fortran_type_ptr();
530 void* lidort_out_lcl = lidort_out_->fortran_type_ptr();
531 void* lidort_linfixin_lcl = lidort_linfixin_->fortran_type_ptr();
532 void* lidort_linmodin_lcl = lidort_linmodin_->fortran_type_ptr();
533 void* lidort_linsup_lcl = lidort_linsup_->fortran_type_ptr();
534 void* lidort_linout_lcl = lidort_linout_->fortran_type_ptr();
536 lcs_masters_lcs_master_wrap(&lidort_fixin_lcl, &lidort_modin_lcl, &lidort_sup_lcl, &lidort_out_lcl, &lidort_linfixin_lcl, &lidort_linmodin_lcl, &lidort_linsup_lcl, &lidort_linout_lcl);
539 if( lidort_out().status().ts_status_inputcheck() != lid_pars.
lidort_success ||
540 lidort_out().status().ts_status_calculation() != lid_pars.
lidort_success ) {
541 std::stringstream err_msg;
542 err_msg <<
"LIDORT Error at " << __FILE__ <<
":" << __LINE__ << std::endl;
545 std::cerr << err_msg.str();
546 std::cerr << lidort_out().status();
555 const char* filename_lcl = filename_in.c_str();
556 int filename_in_len = (int) filename_in.size();
557 void* lidort_fixin_lcl = lidort_fixin_->fortran_type_ptr();
558 void* lidort_modin_lcl = lidort_modin_->fortran_type_ptr();
559 void* lidort_sup_lcl = lidort_sup_->fortran_type_ptr();
560 void* lidort_out_lcl = lidort_out_->fortran_type_ptr();
561 void* lidort_linfixin_lcl = lidort_linfixin_->fortran_type_ptr();
562 void* lidort_linmodin_lcl = lidort_linmodin_->fortran_type_ptr();
563 void* lidort_linsup_lcl = lidort_linsup_->fortran_type_ptr();
564 void* lidort_linout_lcl = lidort_linout_->fortran_type_ptr();
566 lcs_masters_read_wrap(filename_lcl, &filename_in_len, &lidort_fixin_lcl, &lidort_modin_lcl, &lidort_sup_lcl, &lidort_out_lcl, &lidort_linfixin_lcl, &lidort_linmodin_lcl, &lidort_linsup_lcl, &lidort_linout_lcl);
573 const char* filename_lcl = filename_in.c_str();
574 int filename_in_len = (int) filename_in.size();
575 void* lidort_fixin_lcl = lidort_fixin_->fortran_type_ptr();
576 void* lidort_modin_lcl = lidort_modin_->fortran_type_ptr();
577 void* lidort_sup_lcl = lidort_sup_->fortran_type_ptr();
578 void* lidort_out_lcl = lidort_out_->fortran_type_ptr();
579 void* lidort_linfixin_lcl = lidort_linfixin_->fortran_type_ptr();
580 void* lidort_linmodin_lcl = lidort_linmodin_->fortran_type_ptr();
581 void* lidort_linsup_lcl = lidort_linsup_->fortran_type_ptr();
582 void* lidort_linout_lcl = lidort_linout_->fortran_type_ptr();
584 lcs_masters_write_wrap(filename_lcl, &filename_in_len, &lidort_fixin_lcl, &lidort_modin_lcl, &lidort_sup_lcl, &lidort_out_lcl, &lidort_linfixin_lcl, &lidort_linmodin_lcl, &lidort_linsup_lcl, &lidort_linout_lcl);
589 output_stream <<
"Lidort_Lcs_Masters:" << std::endl
592 <<
" lidort_sup: " << obj.
lidort_sup() << std::endl
593 <<
" lidort_out: " << obj.
lidort_out() << std::endl
598 return output_stream;
618 void lps_masters_read_wrap(
const char* filename,
const int* filename_len,
void** lidort_fixin_in,
void** lidort_modin_in,
void** lidort_sup_in,
void** lidort_out_in,
void** lidort_linfixin_in,
void** lidort_linmodin_in,
void** lidort_linsup_in,
void** lidort_linout_in);
619 void lps_masters_write_wrap(
const char* filename,
const int* filename_len,
void** lidort_fixin_in,
void** lidort_modin_in,
void** lidort_sup_in,
void** lidort_out_in,
void** lidort_linfixin_in,
void** lidort_linmodin_in,
void** lidort_linsup_in,
void** lidort_linout_in);
620 void lps_masters_lps_master_wrap(
void** lidort_fixin_in,
void** lidort_modin_in,
void** lidort_sup_in,
void** lidort_out_in,
void** lidort_linfixin_in,
void** lidort_linmodin_in,
void** lidort_linsup_in,
void** lidort_linout_in);
642 return *lidort_fixin_;
646 return *lidort_fixin_;
650 return lidort_fixin_;
655 void* dst_ptr = lidort_fixin_->fortran_type_ptr();
662 return *lidort_modin_;
666 return *lidort_modin_;
670 return lidort_modin_;
675 void* dst_ptr = lidort_modin_->fortran_type_ptr();
695 void* dst_ptr = lidort_sup_->fortran_type_ptr();
716 return *lidort_linfixin_;
720 return *lidort_linfixin_;
724 return lidort_linfixin_;
729 void* dst_ptr = lidort_linfixin_->fortran_type_ptr();
736 return *lidort_linmodin_;
740 return *lidort_linmodin_;
744 return lidort_linmodin_;
749 void* dst_ptr = lidort_linmodin_->fortran_type_ptr();
756 return *lidort_linsup_;
760 return *lidort_linsup_;
764 return lidort_linsup_;
769 void* dst_ptr = lidort_linsup_->fortran_type_ptr();
776 return *lidort_linout_;
780 return *lidort_linout_;
784 return lidort_linout_;
791 void* lidort_fixin_lcl = lidort_fixin_->fortran_type_ptr();
792 void* lidort_modin_lcl = lidort_modin_->fortran_type_ptr();
793 void* lidort_sup_lcl = lidort_sup_->fortran_type_ptr();
794 void* lidort_out_lcl = lidort_out_->fortran_type_ptr();
795 void* lidort_linfixin_lcl = lidort_linfixin_->fortran_type_ptr();
796 void* lidort_linmodin_lcl = lidort_linmodin_->fortran_type_ptr();
797 void* lidort_linsup_lcl = lidort_linsup_->fortran_type_ptr();
798 void* lidort_linout_lcl = lidort_linout_->fortran_type_ptr();
800 lps_masters_lps_master_wrap(&lidort_fixin_lcl, &lidort_modin_lcl, &lidort_sup_lcl, &lidort_out_lcl, &lidort_linfixin_lcl, &lidort_linmodin_lcl, &lidort_linsup_lcl, &lidort_linout_lcl);
803 if( lidort_out().status().ts_status_inputcheck() != lid_pars.
lidort_success ||
804 lidort_out().status().ts_status_calculation() != lid_pars.
lidort_success ) {
805 std::stringstream err_msg;
806 err_msg <<
"LIDORT Error at " << __FILE__ <<
":" << __LINE__ << std::endl;
809 std::cerr << err_msg.str();
810 std::cerr << lidort_out().status();
819 const char* filename_lcl = filename_in.c_str();
820 int filename_in_len = (int) filename_in.size();
821 void* lidort_fixin_lcl = lidort_fixin_->fortran_type_ptr();
822 void* lidort_modin_lcl = lidort_modin_->fortran_type_ptr();
823 void* lidort_sup_lcl = lidort_sup_->fortran_type_ptr();
824 void* lidort_out_lcl = lidort_out_->fortran_type_ptr();
825 void* lidort_linfixin_lcl = lidort_linfixin_->fortran_type_ptr();
826 void* lidort_linmodin_lcl = lidort_linmodin_->fortran_type_ptr();
827 void* lidort_linsup_lcl = lidort_linsup_->fortran_type_ptr();
828 void* lidort_linout_lcl = lidort_linout_->fortran_type_ptr();
830 lps_masters_read_wrap(filename_lcl, &filename_in_len, &lidort_fixin_lcl, &lidort_modin_lcl, &lidort_sup_lcl, &lidort_out_lcl, &lidort_linfixin_lcl, &lidort_linmodin_lcl, &lidort_linsup_lcl, &lidort_linout_lcl);
837 const char* filename_lcl = filename_in.c_str();
838 int filename_in_len = (int) filename_in.size();
839 void* lidort_fixin_lcl = lidort_fixin_->fortran_type_ptr();
840 void* lidort_modin_lcl = lidort_modin_->fortran_type_ptr();
841 void* lidort_sup_lcl = lidort_sup_->fortran_type_ptr();
842 void* lidort_out_lcl = lidort_out_->fortran_type_ptr();
843 void* lidort_linfixin_lcl = lidort_linfixin_->fortran_type_ptr();
844 void* lidort_linmodin_lcl = lidort_linmodin_->fortran_type_ptr();
845 void* lidort_linsup_lcl = lidort_linsup_->fortran_type_ptr();
846 void* lidort_linout_lcl = lidort_linout_->fortran_type_ptr();
848 lps_masters_write_wrap(filename_lcl, &filename_in_len, &lidort_fixin_lcl, &lidort_modin_lcl, &lidort_sup_lcl, &lidort_out_lcl, &lidort_linfixin_lcl, &lidort_linmodin_lcl, &lidort_linsup_lcl, &lidort_linout_lcl);
853 output_stream <<
"Lidort_Lps_Masters:" << std::endl
856 <<
" lidort_sup: " << obj.
lidort_sup() << std::endl
857 <<
" lidort_out: " << obj.
lidort_out() << std::endl
862 return output_stream;
882 void inputs_read_wrap(
const char* filename,
const int* filename_len,
void** lidort_fixin_in,
void** lidort_modin_in,
void** lidort_inputstatus_in);
883 void inputs_write_wrap(
const char* filename,
const int* filename_len,
void** lidort_fixin_in,
void** lidort_modin_in,
void** lidort_inputstatus_in);
884 void inputs_input_master_wrap(
const int* filnam_in_len,
const char* filnam_in,
void** lidort_fixin_in,
void** lidort_modin_in,
void** lidort_inputstatus_in);
901 return *lidort_fixin_;
905 return *lidort_fixin_;
909 return lidort_fixin_;
915 return *lidort_modin_;
919 return *lidort_modin_;
923 return lidort_modin_;
929 return *lidort_inputstatus_;
933 return *lidort_inputstatus_;
937 return lidort_inputstatus_;
944 const char* filnam_lcl = filnam_in.c_str();
945 int filnam_in_len = (int) filnam_in.size();
946 void* lidort_fixin_lcl = lidort_fixin_->fortran_type_ptr();
947 void* lidort_modin_lcl = lidort_modin_->fortran_type_ptr();
948 void* lidort_inputstatus_lcl = lidort_inputstatus_->fortran_type_ptr();
950 inputs_input_master_wrap(&filnam_in_len, filnam_lcl, &lidort_fixin_lcl, &lidort_modin_lcl, &lidort_inputstatus_lcl);
958 const char* filename_lcl = filename_in.c_str();
959 int filename_in_len = (int) filename_in.size();
960 void* lidort_fixin_lcl = lidort_fixin_->fortran_type_ptr();
961 void* lidort_modin_lcl = lidort_modin_->fortran_type_ptr();
962 void* lidort_inputstatus_lcl = lidort_inputstatus_->fortran_type_ptr();
964 inputs_read_wrap(filename_lcl, &filename_in_len, &lidort_fixin_lcl, &lidort_modin_lcl, &lidort_inputstatus_lcl);
971 const char* filename_lcl = filename_in.c_str();
972 int filename_in_len = (int) filename_in.size();
973 void* lidort_fixin_lcl = lidort_fixin_->fortran_type_ptr();
974 void* lidort_modin_lcl = lidort_modin_->fortran_type_ptr();
975 void* lidort_inputstatus_lcl = lidort_inputstatus_->fortran_type_ptr();
977 inputs_write_wrap(filename_lcl, &filename_in_len, &lidort_fixin_lcl, &lidort_modin_lcl, &lidort_inputstatus_lcl);
982 output_stream <<
"Lidort_Inputs:" << std::endl
986 return output_stream;
1001 void masters_read_wrap(
const char* filename,
const int* filename_len,
void** lidort_fixin_in,
void** lidort_modin_in,
void** lidort_sup_in,
void** lidort_out_in);
1002 void masters_write_wrap(
const char* filename,
const int* filename_len,
void** lidort_fixin_in,
void** lidort_modin_in,
void** lidort_sup_in,
void** lidort_out_in);
1003 void masters_master_wrap(
void** lidort_fixin_in,
void** lidort_modin_in,
void** lidort_sup_in,
void** lidort_out_in);
1021 return *lidort_fixin_;
1025 return *lidort_fixin_;
1029 return lidort_fixin_;
1034 void* dst_ptr = lidort_fixin_->fortran_type_ptr();
1041 return *lidort_modin_;
1045 return *lidort_modin_;
1049 return lidort_modin_;
1054 void* dst_ptr = lidort_modin_->fortran_type_ptr();
1061 return *lidort_sup_;
1065 return *lidort_sup_;
1074 void* dst_ptr = lidort_sup_->fortran_type_ptr();
1081 return *lidort_out_;
1085 return *lidort_out_;
1096 void* lidort_fixin_lcl = lidort_fixin_->fortran_type_ptr();
1097 void* lidort_modin_lcl = lidort_modin_->fortran_type_ptr();
1098 void* lidort_sup_lcl = lidort_sup_->fortran_type_ptr();
1099 void* lidort_out_lcl = lidort_out_->fortran_type_ptr();
1101 masters_master_wrap(&lidort_fixin_lcl, &lidort_modin_lcl, &lidort_sup_lcl, &lidort_out_lcl);
1104 if( lidort_out().status().ts_status_inputcheck() != lid_pars.
lidort_success ||
1105 lidort_out().status().ts_status_calculation() != lid_pars.
lidort_success ) {
1106 std::stringstream err_msg;
1107 err_msg <<
"LIDORT Error at " << __FILE__ <<
":" << __LINE__ << std::endl;
1110 std::cerr << err_msg.str();
1111 std::cerr << lidort_out().status();
1120 const char* filename_lcl = filename_in.c_str();
1121 int filename_in_len = (int) filename_in.size();
1122 void* lidort_fixin_lcl = lidort_fixin_->fortran_type_ptr();
1123 void* lidort_modin_lcl = lidort_modin_->fortran_type_ptr();
1124 void* lidort_sup_lcl = lidort_sup_->fortran_type_ptr();
1125 void* lidort_out_lcl = lidort_out_->fortran_type_ptr();
1127 masters_read_wrap(filename_lcl, &filename_in_len, &lidort_fixin_lcl, &lidort_modin_lcl, &lidort_sup_lcl, &lidort_out_lcl);
1134 const char* filename_lcl = filename_in.c_str();
1135 int filename_in_len = (int) filename_in.size();
1136 void* lidort_fixin_lcl = lidort_fixin_->fortran_type_ptr();
1137 void* lidort_modin_lcl = lidort_modin_->fortran_type_ptr();
1138 void* lidort_sup_lcl = lidort_sup_->fortran_type_ptr();
1139 void* lidort_out_lcl = lidort_out_->fortran_type_ptr();
1141 masters_write_wrap(filename_lcl, &filename_in_len, &lidort_fixin_lcl, &lidort_modin_lcl, &lidort_sup_lcl, &lidort_out_lcl);
1146 output_stream <<
"Lidort_Masters:" << std::endl
1149 <<
" lidort_sup: " << obj.
lidort_sup() << std::endl
1150 <<
" lidort_out: " << obj.
lidort_out() << std::endl;
1151 return output_stream;
1167 void sup_accessories_read_wrap(
const char* filename,
const int* filename_len,
void** sleave_sup_in_in,
void** brdf_sup_in_in,
void** brdf_sleavecheck_status_in,
void** lidort_fixin_in,
void** lidort_modin_in,
void** lidort_brdfcheck_status_in);
1168 void sup_accessories_write_wrap(
const char* filename,
const int* filename_len,
void** sleave_sup_in_in,
void** brdf_sup_in_in,
void** brdf_sleavecheck_status_in,
void** lidort_fixin_in,
void** lidort_modin_in,
void** lidort_brdfcheck_status_in);
1187 return *sleave_sup_in_;
1191 return *sleave_sup_in_;
1195 return sleave_sup_in_;
1200 void* dst_ptr = sleave_sup_in_->fortran_type_ptr();
1207 return *brdf_sup_in_;
1211 return *brdf_sup_in_;
1215 return brdf_sup_in_;
1221 return *brdf_sleavecheck_status_;
1225 return *brdf_sleavecheck_status_;
1229 return brdf_sleavecheck_status_;
1235 return *lidort_fixin_;
1239 return *lidort_fixin_;
1243 return lidort_fixin_;
1249 return *lidort_modin_;
1253 return *lidort_modin_;
1257 return lidort_modin_;
1263 return *lidort_brdfcheck_status_;
1267 return *lidort_brdfcheck_status_;
1271 return lidort_brdfcheck_status_;
1278 void* sleave_sup_in_lcl = sleave_sup_in_->fortran_type_ptr();
1279 void* brdf_sup_in_lcl = brdf_sup_in_->fortran_type_ptr();
1280 void* brdf_sleavecheck_status_lcl = brdf_sleavecheck_status_->fortran_type_ptr();
1287 void* brdf_sup_in_lcl = brdf_sup_in_->fortran_type_ptr();
1288 void* lidort_fixin_lcl = lidort_fixin_->fortran_type_ptr();
1289 void* lidort_modin_lcl = lidort_modin_->fortran_type_ptr();
1290 void* lidort_brdfcheck_status_lcl = lidort_brdfcheck_status_->fortran_type_ptr();
1300 const char* filename_lcl = filename_in.c_str();
1301 int filename_in_len = (int) filename_in.size();
1302 void* sleave_sup_in_lcl = sleave_sup_in_->fortran_type_ptr();
1303 void* brdf_sup_in_lcl = brdf_sup_in_->fortran_type_ptr();
1304 void* brdf_sleavecheck_status_lcl = brdf_sleavecheck_status_->fortran_type_ptr();
1305 void* lidort_fixin_lcl = lidort_fixin_->fortran_type_ptr();
1306 void* lidort_modin_lcl = lidort_modin_->fortran_type_ptr();
1307 void* lidort_brdfcheck_status_lcl = lidort_brdfcheck_status_->fortran_type_ptr();
1309 sup_accessories_read_wrap(filename_lcl, &filename_in_len, &sleave_sup_in_lcl, &brdf_sup_in_lcl, &brdf_sleavecheck_status_lcl, &lidort_fixin_lcl, &lidort_modin_lcl, &lidort_brdfcheck_status_lcl);
1316 const char* filename_lcl = filename_in.c_str();
1317 int filename_in_len = (int) filename_in.size();
1318 void* sleave_sup_in_lcl = sleave_sup_in_->fortran_type_ptr();
1319 void* brdf_sup_in_lcl = brdf_sup_in_->fortran_type_ptr();
1320 void* brdf_sleavecheck_status_lcl = brdf_sleavecheck_status_->fortran_type_ptr();
1321 void* lidort_fixin_lcl = lidort_fixin_->fortran_type_ptr();
1322 void* lidort_modin_lcl = lidort_modin_->fortran_type_ptr();
1323 void* lidort_brdfcheck_status_lcl = lidort_brdfcheck_status_->fortran_type_ptr();
1325 sup_accessories_write_wrap(filename_lcl, &filename_in_len, &sleave_sup_in_lcl, &brdf_sup_in_lcl, &brdf_sleavecheck_status_lcl, &lidort_fixin_lcl, &lidort_modin_lcl, &lidort_brdfcheck_status_lcl);
1330 output_stream <<
"Lidort_Sup_Accessories:" << std::endl
1332 <<
" brdf_sup_in: " << obj.
brdf_sup_in() << std::endl
1334 <<
" lidort_fixin: " << obj.
lidort_fixin() << std::endl
1335 <<
" lidort_modin: " << obj.
lidort_modin() << std::endl
1337 return output_stream;
const Brdf_Input_Exception_Handling & brdf_sup_inputstatus() const
void brdf_sleave_input_checker()
Lidort_Sup_Accessories(boost::shared_ptr< Brdf_Sup_Inputs > &brdf_sup_in_in, boost::shared_ptr< Lidort_Fixed_Inputs > &lidort_fixin_in, boost::shared_ptr< Lidort_Modified_Inputs > &lidort_modin_in)
void masters_master_wrap(void **lidort_fixin_in, void **lidort_modin_in, void **lidort_sup_in, void **lidort_out_in)
const Lidort_Sup_Inout & lidort_sup() const
void lcs_masters_read_wrap(const char *filename, const int *filename_len, void **lidort_fixin_in, void **lidort_modin_in, void **lidort_sup_in, void **lidort_out_in, void **lidort_linfixin_in, void **lidort_linmodin_in, void **lidort_linsup_in, void **lidort_linout_in)
const Lidort_Modified_Lininputs & lidort_linmodin() const
boost::shared_ptr< Lidort_Fixed_Inputs > & lidort_fixin_ptr()
friend std::ostream & operator<<(std::ostream &output_stream, const Lidort_Lps_Masters &obj)
static Lidort_Pars & instance()
void lidort_fixin(Lidort_Fixed_Inputs &lidort_fixin_in)
boost::shared_ptr< Brdf_Sup_Inputs > & brdf_sup_in_ptr()
boost::shared_ptr< Lidort_Outputs > & lidort_out_ptr()
Brdf_Sup_Inputs & brdf_sup_in()
boost::shared_ptr< Lidort_Fixed_Inputs > & lidort_fixin_ptr()
Lidort_Sup_Inout & lidort_sup()
boost::shared_ptr< Lidort_Exception_Handling > & brdf_sleavecheck_status_ptr()
Brdf_Sup_Inputs & brdf_sup_in()
void sup_accessories_write_wrap(const char *filename, const int *filename_len, void **sleave_sup_in_in, void **brdf_sup_in_in, void **brdf_sleavecheck_status_in, void **lidort_fixin_in, void **lidort_modin_in, void **lidort_brdfcheck_status_in)
const Lidort_Sup_Inout & lidort_sup() const
const Brdf_Output_Exception_Handling & brdf_sup_outputstatus() const
void inputs_read_wrap(const char *filename, const int *filename_len, void **lidort_fixin_in, void **lidort_modin_in, void **lidort_inputstatus_in)
boost::shared_ptr< Brdf_Input_Exception_Handling > & brdf_sup_inputstatus_ptr()
void write_fortran_file(const std::string &filename_in)
void brdf_linsup_masters_m_write_wrap(const char *filename, const int *filename_len, void **brdf_sup_in_in, void **brdf_linsup_in_in, void **brdf_sup_inputstatus_in, void **brdf_sup_out_in, void **brdf_linsup_out_in, void **brdf_sup_outputstatus_in)
Brdf_Input_Exception_Handling & brdf_sup_inputstatus()
const Lidort_Fixed_Inputs & lidort_fixin() const
friend std::ostream & operator<<(std::ostream &output_stream, const Lidort_Lcs_Masters &obj)
void inputs_input_master_wrap(const int *filnam_in_len, const char *filnam_in, void **lidort_fixin_in, void **lidort_modin_in, void **lidort_inputstatus_in)
void lidort_modin(Lidort_Modified_Inputs &lidort_modin_in)
friend std::ostream & operator<<(std::ostream &output_stream, const Lidort_Masters &obj)
friend std::ostream & operator<<(std::ostream &output_stream, const Brdf_Linsup_Masters &obj)
void sup_accessories_brdf_sleave_input_checker_wrap(void **sleave_sup_in_in, void **brdf_sup_in_in, void **brdf_sleavecheck_status_in)
const Lidort_Input_Exception_Handling & lidort_inputstatus() const
const Lidort_Linoutputs & lidort_linout() const
const Brdf_Sup_Outputs & brdf_sup_out() const
boost::shared_ptr< Lidort_Linsup_Inout > & lidort_linsup_ptr()
Brdf_Linsup_Outputs & brdf_linsup_out()
void run(const bool &do_debug_restoration_in, const int &nmoments_input_in)
void inputs_write_wrap(const char *filename, const int *filename_len, void **lidort_fixin_in, void **lidort_modin_in, void **lidort_inputstatus_in)
void lidort_fixin(Lidort_Fixed_Inputs &lidort_fixin_in)
Lidort_Fixed_Inputs & lidort_fixin()
void read_fortran_file(const std::string &filename_in)
Lidort_Fixed_Inputs & lidort_fixin()
Lidort_Fixed_Inputs & lidort_fixin()
boost::shared_ptr< Lidort_Modified_Inputs > & lidort_modin_ptr()
Lidort_Fixed_Lininputs & lidort_linfixin()
const Sleave_Sup_Inputs & sleave_sup_in() const
void lidort_linmodin(Lidort_Modified_Lininputs &lidort_linmodin_in)
void read_fortran_file(const std::string &filename_in)
Lidort_Fixed_Lininputs & lidort_linfixin()
const Lidort_Modified_Inputs & lidort_modin() const
boost::shared_ptr< Brdf_Output_Exception_Handling > & brdf_sup_outputstatus_ptr()
boost::shared_ptr< Lidort_Exception_Handling > & lidort_brdfcheck_status_ptr()
void masters_write_wrap(const char *filename, const int *filename_len, void **lidort_fixin_in, void **lidort_modin_in, void **lidort_sup_in, void **lidort_out_in)
const Lidort_Fixed_Inputs & lidort_fixin() const
Sleave_Sup_Inputs & sleave_sup_in()
This is the base of the exception hierarchy for Full Physics code.
Lidort_Modified_Inputs & lidort_modin()
void brdf_linsup_masters_m_read_wrap(const char *filename, const int *filename_len, void **brdf_sup_in_in, void **brdf_linsup_in_in, void **brdf_sup_inputstatus_in, void **brdf_sup_out_in, void **brdf_linsup_out_in, void **brdf_sup_outputstatus_in)
Lidort_Linoutputs & lidort_linout()
boost::shared_ptr< Brdf_Sup_Inputs > & brdf_sup_in_ptr()
const Lidort_Outputs & lidort_out() const
Lidort_Outputs & lidort_out()
void lidort_linsup(Lidort_Linsup_Inout &lidort_linsup_in)
const Lidort_Sup_Inout & lidort_sup() const
boost::shared_ptr< Brdf_Linsup_Inputs > & brdf_linsup_in_ptr()
void lidort_linfixin(Lidort_Fixed_Lininputs &lidort_linfixin_in)
boost::shared_ptr< Lidort_Modified_Inputs > & lidort_modin_ptr()
Lidort_Fixed_Inputs & lidort_fixin()
void * fortran_type_ptr()
const Lidort_Modified_Inputs & lidort_modin() const
void brdf_sup_masters_m_brdf_inputmaster_wrap(const int *filnam_in_len, const char *filnam_in, void **brdf_sup_in_in, void **brdf_sup_inputstatus_in)
void brdf_input_checker()
void read_config(const std::string &filnam_in)
Lidort_Modified_Lininputs & lidort_linmodin()
void run(const bool &do_debug_restoration_in, const int &nmoments_input_in)
void lidort_modin(Lidort_Modified_Inputs &lidort_modin_in)
boost::shared_ptr< Lidort_Modified_Lininputs > & lidort_linmodin_ptr()
void read_fortran_file(const std::string &filename_in)
const Lidort_Linsup_Inout & lidort_linsup() const
Lidort_Exception_Handling & lidort_brdfcheck_status()
Lidort_Outputs & lidort_out()
boost::shared_ptr< Lidort_Fixed_Inputs > & lidort_fixin_ptr()
boost::shared_ptr< Lidort_Fixed_Inputs > & lidort_fixin_ptr()
void lidort_sup(Lidort_Sup_Inout &lidort_sup_in)
Lidort_Linsup_Inout & lidort_linsup()
void sleave_sup_inputs_c_copy(void **fortran_type_c_from, void **fortran_type_c_to)
boost::shared_ptr< Brdf_Sup_Outputs > & brdf_sup_out_ptr()
const Brdf_Output_Exception_Handling & brdf_sup_outputstatus() const
void lidort_linsup_inout_c_copy(void **fortran_type_c_from, void **fortran_type_c_to)
Brdf_Sup_Outputs & brdf_sup_out()
const Brdf_Input_Exception_Handling & brdf_sup_inputstatus() const
friend std::ostream & operator<<(std::ostream &output_stream, const Brdf_Sup_Masters &obj)
Lidort_Linoutputs & lidort_linout()
const Lidort_Fixed_Inputs & lidort_fixin() const
void lcs_masters_lcs_master_wrap(void **lidort_fixin_in, void **lidort_modin_in, void **lidort_sup_in, void **lidort_out_in, void **lidort_linfixin_in, void **lidort_linmodin_in, void **lidort_linsup_in, void **lidort_linout_in)
const Lidort_Fixed_Inputs & lidort_fixin() const
boost::shared_ptr< Lidort_Modified_Inputs > & lidort_modin_ptr()
boost::shared_ptr< Sleave_Sup_Inputs > & sleave_sup_in_ptr()
void write_fortran_file(const std::string &filename_in)
Lidort_Fixed_Inputs & lidort_fixin()
Lidort_Input_Exception_Handling & lidort_inputstatus()
void write_fortran_file(const std::string &filename_in)
Lidort_Sup_Inout & lidort_sup()
const Lidort_Exception_Handling & brdf_sleavecheck_status() const
void masters_read_wrap(const char *filename, const int *filename_len, void **lidort_fixin_in, void **lidort_modin_in, void **lidort_sup_in, void **lidort_out_in)
const Lidort_Modified_Inputs & lidort_modin() const
void write_fortran_file(const std::string &filename_in)
Lidort_Modified_Inputs & lidort_modin()
boost::shared_ptr< Lidort_Modified_Inputs > & lidort_modin_ptr()
void lidort_linfixin(Lidort_Fixed_Lininputs &lidort_linfixin_in)
const Lidort_Modified_Lininputs & lidort_linmodin() const
void lidort_sup_inout_c_copy(void **fortran_type_c_from, void **fortran_type_c_to)
Lidort_Linsup_Inout & lidort_linsup()
void read_fortran_file(const std::string &filename_in)
const Lidort_Modified_Inputs & lidort_modin() const
const Lidort_Linsup_Inout & lidort_linsup() const
void sleave_sup_in(Sleave_Sup_Inputs &sleave_sup_in_in)
Brdf_Sup_Outputs & brdf_sup_out()
boost::shared_ptr< Lidort_Linoutputs > & lidort_linout_ptr()
boost::shared_ptr< Lidort_Fixed_Lininputs > & lidort_linfixin_ptr()
const Lidort_Fixed_Lininputs & lidort_linfixin() const
boost::shared_ptr< Lidort_Modified_Inputs > & lidort_modin_ptr()
boost::shared_ptr< Lidort_Outputs > & lidort_out_ptr()
void brdf_sup_masters_m_write_wrap(const char *filename, const int *filename_len, void **brdf_sup_in_in, void **brdf_sup_inputstatus_in, void **brdf_sup_out_in, void **brdf_sup_outputstatus_in)
boost::shared_ptr< Brdf_Output_Exception_Handling > & brdf_sup_outputstatus_ptr()
boost::shared_ptr< Lidort_Sup_Inout > & lidort_sup_ptr()
boost::shared_ptr< Lidort_Fixed_Lininputs > & lidort_linfixin_ptr()
void read_fortran_file(const std::string &filename_in)
const Brdf_Sup_Outputs & brdf_sup_out() const
boost::shared_ptr< Lidort_Modified_Lininputs > & lidort_linmodin_ptr()
void lidort_fixed_lininputs_c_copy(void **fortran_type_c_from, void **fortran_type_c_to)
void lcs_masters_write_wrap(const char *filename, const int *filename_len, void **lidort_fixin_in, void **lidort_modin_in, void **lidort_sup_in, void **lidort_out_in, void **lidort_linfixin_in, void **lidort_linmodin_in, void **lidort_linsup_in, void **lidort_linout_in)
Lidort_Sup_Inout & lidort_sup()
const Lidort_Fixed_Lininputs & lidort_linfixin() const
const Brdf_Sup_Inputs & brdf_sup_in() const
void lidort_fixin(Lidort_Fixed_Inputs &lidort_fixin_in)
const Lidort_Modified_Inputs & lidort_modin() const
void lps_masters_read_wrap(const char *filename, const int *filename_len, void **lidort_fixin_in, void **lidort_modin_in, void **lidort_sup_in, void **lidort_out_in, void **lidort_linfixin_in, void **lidort_linmodin_in, void **lidort_linsup_in, void **lidort_linout_in)
const Lidort_Outputs & lidort_out() const
Brdf_Output_Exception_Handling & brdf_sup_outputstatus()
Brdf_Output_Exception_Handling & brdf_sup_outputstatus()
Contains classes to abstract away details in various Spurr Radiative Transfer software.
void lidort_sup(Lidort_Sup_Inout &lidort_sup_in)
Brdf_Sup_Inputs & brdf_sup_in()
void lidort_modin(Lidort_Modified_Inputs &lidort_modin_in)
void sup_accessories_brdf_input_checker_wrap(void **brdf_sup_in_in, void **lidort_fixin_in, void **lidort_modin_in, void **lidort_brdfcheck_status_in)
friend std::ostream & operator<<(std::ostream &output_stream, const Lidort_Sup_Accessories &obj)
void write_fortran_file(const std::string &filename_in)
void lidort_linsup(Lidort_Linsup_Inout &lidort_linsup_in)
boost::shared_ptr< Brdf_Sup_Inputs > & brdf_sup_in_ptr()
boost::shared_ptr< Lidort_Linoutputs > & lidort_linout_ptr()
void read_fortran_file(const std::string &filename_in)
const Lidort_Fixed_Inputs & lidort_fixin() const
boost::shared_ptr< Brdf_Sup_Outputs > & brdf_sup_out_ptr()
boost::shared_ptr< Lidort_Input_Exception_Handling > & lidort_inputstatus_ptr()
boost::shared_ptr< Lidort_Sup_Inout > & lidort_sup_ptr()
void sup_accessories_read_wrap(const char *filename, const int *filename_len, void **sleave_sup_in_in, void **brdf_sup_in_in, void **brdf_sleavecheck_status_in, void **lidort_fixin_in, void **lidort_modin_in, void **lidort_brdfcheck_status_in)
Lidort_Modified_Inputs & lidort_modin()
void lidort_fixed_inputs_c_copy(void **fortran_type_c_from, void **fortran_type_c_to)
boost::shared_ptr< Lidort_Fixed_Inputs > & lidort_fixin_ptr()
const Brdf_Linsup_Outputs & brdf_linsup_out() const
Brdf_Input_Exception_Handling & brdf_sup_inputstatus()
void lidort_sup(Lidort_Sup_Inout &lidort_sup_in)
Lidort_Modified_Inputs & lidort_modin()
void brdf_sup_masters_m_brdf_mainmaster_wrap(const bool *do_debug_restoration_in, const int *nmoments_input_in, void **brdf_sup_in_in, void **brdf_sup_out_in, void **brdf_sup_outputstatus_in)
Brdf_Linsup_Inputs & brdf_linsup_in()
void lidort_linmodin(Lidort_Modified_Lininputs &lidort_linmodin_in)
void lps_masters_lps_master_wrap(void **lidort_fixin_in, void **lidort_modin_in, void **lidort_sup_in, void **lidort_out_in, void **lidort_linfixin_in, void **lidort_linmodin_in, void **lidort_linsup_in, void **lidort_linout_in)
const Brdf_Sup_Inputs & brdf_sup_in() const
Lidort_Modified_Inputs & lidort_modin()
boost::shared_ptr< Lidort_Sup_Inout > & lidort_sup_ptr()
void read_config(const std::string &filnam_in)
void read_config(const std::string &filnam_in)
void write_fortran_file(const std::string &filename_in)
void brdf_linsup_masters_m_brdf_lin_inputmaster_wrap(const int *filnam_in_len, const char *filnam_in, void **brdf_sup_in_in, void **brdf_linsup_in_in, void **brdf_sup_inputstatus_in)
boost::shared_ptr< Lidort_Outputs > & lidort_out_ptr()
const Lidort_Exception_Handling & lidort_brdfcheck_status() const
Lidort_Modified_Lininputs & lidort_linmodin()
void write_fortran_file(const std::string &filename_in)
const Lidort_Outputs & lidort_out() const
const Brdf_Sup_Inputs & brdf_sup_in() const
void read_fortran_file(const std::string &filename_in)
void brdf_linsup_masters_m_brdf_lin_mainmaster_wrap(const bool *do_debug_restoration_in, const int *nmoments_input_in, void **brdf_sup_in_in, void **brdf_linsup_in_in, void **brdf_sup_out_in, void **brdf_linsup_out_in, void **brdf_sup_outputstatus_in)
boost::shared_ptr< Brdf_Linsup_Outputs > & brdf_linsup_out_ptr()
const Brdf_Linsup_Inputs & brdf_linsup_in() const
void lidort_modified_inputs_c_copy(void **fortran_type_c_from, void **fortran_type_c_to)
void brdf_sup_masters_m_read_wrap(const char *filename, const int *filename_len, void **brdf_sup_in_in, void **brdf_sup_inputstatus_in, void **brdf_sup_out_in, void **brdf_sup_outputstatus_in)
boost::shared_ptr< Lidort_Linsup_Inout > & lidort_linsup_ptr()
Lidort_Exception_Handling & brdf_sleavecheck_status()
boost::shared_ptr< Brdf_Input_Exception_Handling > & brdf_sup_inputstatus_ptr()
friend std::ostream & operator<<(std::ostream &output_stream, const Lidort_Inputs &obj)
void lps_masters_write_wrap(const char *filename, const int *filename_len, void **lidort_fixin_in, void **lidort_modin_in, void **lidort_sup_in, void **lidort_out_in, void **lidort_linfixin_in, void **lidort_linmodin_in, void **lidort_linsup_in, void **lidort_linout_in)
Lidort_Outputs & lidort_out()
void lidort_modified_lininputs_c_copy(void **fortran_type_c_from, void **fortran_type_c_to)
const Lidort_Linoutputs & lidort_linout() const