Closed spollok closed 5 years ago
IntegrationDataTypes.f90
class( dataCollectionBase ) :: dat ---> class(dataCollectionBase), intent(inout), target :: dat
quadpack.f90
0 ---> int8(0) [in function calls] 0.0d+00 ---> 0.0E+00
TileCircPieceTensor.f90
class(dataCollectionBase), target :: dat ---> class(dataCollectionBase), intent(inout), target :: dat
TileCylPieceTensor.f90
TilePlanarCoilTensor.f90
TileNComponents.f90
real,intent(out),dimension(3,3) :: N_out ---> real,intent(inout),dimension(3,3) :: N_out
DemagFieldGetSolution.f90
eq. ---> eqv.
spline.f90
1.0D+00 ---> real(1.0D+00)
IterateMagnetSolution.f90
tiles(i).n_ave(1) ---> tiles(i)%n_ave(1) eq. ---> eqv. subroutine loadTiles() subroutine loadMagStateFunction()
Adjustments to source code to be compatible with gfortran compiler
IntegrationDataTypes.f90
quadpack.f90
TileCircPieceTensor.f90
TileCylPieceTensor.f90
TilePlanarCoilTensor.f90
TileNComponents.f90
DemagFieldGetSolution.f90
spline.f90
IterateMagnetSolution.f90