Open Ahmed-Naceur opened 2 years ago
Actually, the STERNCORR logical variable is added in LIBEST.fto activate manually Sterheimer correction, as follows:
LIBEST.f
*---- * APPLY STERNHEIMER DENSITY CORRECTION *---- STERNCORR=.TRUE. IF (STERNCORR) THEN ALLOCATE(ISONRF(NBISO),ENER(NGROUP+1)) CALL LCMGTC(IPLIB,'ISOTOPERNAME',12,NBISO,ISONRF) CALL LCMGET(IPLIB,'ENERGY',ENER) CALL LCMGET(IPLIB,'MIXTUREGAS',KGAS) CALL LIBSDC(NBMIX,NGROUP,NBISO,ISONRF,MIX,DEN,MASK,ENER,KGAS, 1 ESTOP(1,1,1)) DEALLOCATE(ENER,ISONRF) ENDIF
In the future add a key for user STERNCORR control.
The default value should be Sterheimer correction activation.
Actually, the STERNCORR logical variable is added in
LIBEST.f
to activate manually Sterheimer correction, as follows:In the future add a key for user STERNCORR control.
The default value should be Sterheimer correction activation.