Skip to content

Corrected DEBUG 191 and 192 #278

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
victorkemp merged 2 commits into from
Jul 7, 2026
Merged

Corrected DEBUG 191 and 192 #278

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
18c61ca
Corrected DEBUG(191) and (192) mixup
victorkemp Jul 7, 2026
06e315f
Reverted 191->182 change and disabled it because it crashes on benchm…
victorkemp Jul 7, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 1 addition & 2 deletions Source/EMG/EMG5/HEXA.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -38,9 +38,8 @@ SUBROUTINE HEXA ( OPT, INT_ELEM_ID,IORD, RED_INT_SHEAR, WRITE_WARN )
! 6) KED = element differen stiff matrix calc , if OPT(6) = 'Y'

USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE
USE IOUNT1, ONLY : WRT_ERR, ERR, F06
USE IOUNT1, ONLY : ERR, F06
USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_GAUSS, MELDOF, MPLOAD4_3D_DATA, NPLOAD4_3D, NSUB, NTSUB
USE TIMDAT, ONLY : TSEC
USE CONSTANTS_1, ONLY : QUARTER, HALF, ZERO, ONE
USE DEBUG_PARAMETERS, ONLY : DEBUG
USE PARAMS, ONLY : EPSIL
Expand Down
5 changes: 2 additions & 3 deletions Source/EMG/EMG5/PENTA.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -37,9 +37,8 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN
! 5) KED = element differen stiff matrix calc , if OPT(6) = 'Y' = 'Y'

USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE
USE IOUNT1, ONLY : WRT_ERR, ERR, F06
USE IOUNT1, ONLY : ERR, F06
USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_TRIA, MAX_ORDER_GAUSS, NTSUB
USE TIMDAT, ONLY : TSEC
USE CONSTANTS_1, ONLY : HALF, THIRD, ZERO
USE DEBUG_PARAMETERS, ONLY : DEBUG
USE PARAMS, ONLY : EPSIL
Expand Down Expand Up @@ -375,7 +374,7 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN
ENDDO
CALL MATMULT_FFF_T ( BI, EALP, 6, 3*ELGP, 1, DUM0 )
INTFAC = DETJ(GAUSS_PT)*HH_IJ(IJ)*HH_K(K)
IF (DEBUG(192) == 0) THEN ! Use temperatures at Gauss points for PTE
IF (DEBUG(191) == 0) THEN ! Use temperatures at Gauss points for PTE
CALL SHP3DP ( IJ, IJ, K, ELGP, SUBR_NAME, IORD_MSG, IORD_IJ, IORD_K, SS_I(IJ), SS_J(IJ), SS_K(K), &
'N', PSH, DPSHG )
CALL MATMULT_FFF ( PSH, GRID_DT_ARRAY, 1, ELGP, NTSUB, TGAUSS )
Expand Down
5 changes: 2 additions & 3 deletions Source/EMG/EMG5/TETRA.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -37,9 +37,8 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN )
! 5) KED = element differen stiff matrix calc , if OPT(6) = 'Y' = 'Y'

USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE
USE IOUNT1, ONLY : WRT_ERR, ERR, F06
USE IOUNT1, ONLY : ERR, F06
USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_TETRA, NTSUB
USE TIMDAT, ONLY : TSEC
USE CONSTANTS_1, ONLY : HALF, QUARTER, ZERO
USE DEBUG_PARAMETERS, ONLY : DEBUG
USE NONLINEAR_PARAMS, ONLY : LOAD_ISTEP
Expand Down Expand Up @@ -253,7 +252,7 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN )
ENDDO
CALL MATMULT_FFF_T ( BI, EALP, 6, 3*ELGP, 1, DUM0 )
INTFAC = DETJ(GAUSS_PT)*HHH_IJK(I)
IF (DEBUG(192) == 0) THEN ! Use temperatures at Gauss points for PTE
IF (DEBUG(191) == 0) THEN ! Use temperatures at Gauss points for PTE
CALL SHP3DT ( I, ELGP, SUBR_NAME, IORD_MSG, IORD, SSS_I(I), SSS_J(I), SSS_K(I), 'N', PSH, DPSHG )
CALL MATMULT_FFF ( PSH, GRID_DT_ARRAY, 1, ELGP, NTSUB, TGAUSS )
TEMP = TGAUSS(1,N) - TREF1
Expand Down
3 changes: 2 additions & 1 deletion Source/LK9/LINK9/LINK9.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -919,7 +919,8 @@ SUBROUTINE LINK9 ( LK9_PROC_NUM )
'FG', -EIGEN_VAL(JVEC), FG_COL )
! DEBUG(191): calc FG_COL as if all inertia force due to MAA*UA_DDOT
IF ((NDOFO == 0) .AND. (DEBUG(191) == 2)) THEN
CALL GET_FG_INERTIA_FORCES
! Disabled because it's nothing to do with DEBUG(191) (temperature averaging for thermal loads) and it crashes if used.
! CALL GET_FG_INERTIA_FORCES
ENDIF
! Mult MGG*PHIXG for FG unless JVEC > NDOFR+NVEC, otherwise FG is null
ELSE IF (SOL_NAME(1:12) == 'GEN CB MODEL') THEN! Get FG_COL from L5B for CB soln
Expand Down
Loading