From f19b43f7cd3f1cbbe01ffd00b060ed1bd254aafb Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Mon, 1 Dec 2025 09:43:55 +0100 Subject: #17: Correct the SPH option in module BREF: for cases with many feeding assemblies --- Donjon/src/ACRRGR.f | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'Donjon/src/ACRRGR.f') diff --git a/Donjon/src/ACRRGR.f b/Donjon/src/ACRRGR.f index 544c480..2f49228 100644 --- a/Donjon/src/ACRRGR.f +++ b/Donjon/src/ACRRGR.f @@ -132,14 +132,14 @@ DEALLOCATE(TEXT132V1) ENDIF IF(NPAR.GT.0) THEN - CALL hdf5_read_data(IPAPX,"/paramdescrip/PARNAM",PARKEY) - CALL hdf5_read_data(IPAPX,"/paramdescrip/PARFMT",PARFMT) - ENDIF - IF(IMPX.GT.1) THEN - WRITE(IOUT,*) 'NPAR=',NPAR,SIZE(PARKEY,1) - DO I=1,NPAR - WRITE(IOUT,*)'PARKEY(',I,')=',PARKEY(I),' PARFMT=',PARFMT(I) - ENDDO + CALL hdf5_read_data(IPAPX,"/paramdescrip/PARNAM",PARKEY) + CALL hdf5_read_data(IPAPX,"/paramdescrip/PARFMT",PARFMT) + IF(IMPX.GT.1) THEN + WRITE(IOUT,*) 'NPAR=',NPAR,SIZE(PARKEY,1) + DO I=1,NPAR + WRITE(IOUT,*)'PARKEY(',I,')=',PARKEY(I),' PARFMT=',PARFMT(I) + ENDDO + ENDIF ENDIF TERP(:NCAL,:NMIX)=0.0 MIXC(:NMIX)=0 -- cgit v1.2.3