Make the calcCross function a procedure on CrossSectionCalculator.
This way we can call it as a normal virtual function. Let CrossSectionCalcDriver only have one CrossSectionCalculator Unfortunately that needs to be a pointer to the R-Matrix formalism that is actually used.
Showing
- sammy/src/clq/ArtificalCross_M.f90 5 additions, 4 deletionssammy/src/clq/ArtificalCross_M.f90
- sammy/src/mlb/mmlb2.f90 29 additions, 17 deletionssammy/src/mlb/mmlb2.f90
- sammy/src/mlb/mmlb3.f90 3 additions, 3 deletionssammy/src/mlb/mmlb3.f90
- sammy/src/mlb/mmlb4.f90 2 additions, 2 deletionssammy/src/mlb/mmlb4.f90
- sammy/src/the/CrossSectionCalcDriver_M.f90 86 additions, 163 deletionssammy/src/the/CrossSectionCalcDriver_M.f90
- sammy/src/the/CrossSectionCalculator_M.f90 20 additions, 0 deletionssammy/src/the/CrossSectionCalculator_M.f90
Loading
Please register or sign in to comment