fixed bugs (sorry...)

This commit is contained in:
Philip Eisenlohr 2012-01-12 15:08:44 +00:00
parent 8584532205
commit 83ff05c8e8
2 changed files with 2 additions and 2 deletions

View File

@ -63,7 +63,7 @@ program DAMASK_spectral
(1_pInt + 9_pInt)*3_pInt + & ! deformation, rotation, and stress (1_pInt + 9_pInt)*3_pInt + & ! deformation, rotation, and stress
(1_pInt + 1_pInt)*5_pInt + & ! time, (log)incs, temp, restartfrequency, and outputfrequency (1_pInt + 1_pInt)*5_pInt + & ! time, (log)incs, temp, restartfrequency, and outputfrequency
1_pInt, & ! dropguessing 1_pInt, & ! dropguessing
maxNchunksGeom = 7_pInt ! 4 identifiers, 3 values maxNchunksGeom = 7_pInt, & ! 4 identifiers, 3 values
myUnit = 234_pInt myUnit = 234_pInt
integer(pInt), dimension (1_pInt + maxNchunksLoadcase*2_pInt) :: positions ! this is longer than needed for geometry parsing integer(pInt), dimension (1_pInt + maxNchunksLoadcase*2_pInt) :: positions ! this is longer than needed for geometry parsing
integer(pInt) :: headerLength, N_l=0_pInt, N_t=0_pInt, N_n=0_pInt, N_Fdot=0_pInt integer(pInt) :: headerLength, N_l=0_pInt, N_t=0_pInt, N_n=0_pInt, N_Fdot=0_pInt

View File

@ -180,7 +180,7 @@ subroutine debug_init()
!$OMP CRITICAL (write2out) ! bitwise coded !$OMP CRITICAL (write2out) ! bitwise coded
if (iand(debug_spectral,debug_spectralGeneral) > 0_pInt) write(6,'(a)') ' spectral general debugging' if (iand(debug_spectral,debug_spectralGeneral) > 0_pInt) write(6,'(a)') ' spectral general debugging'
if (iand(debug_spectral,debug_spectralDivergence) > 0_pInt) write(6,'(a)') ' spectral divergence debugging' if (iand(debug_spectral,debug_spectralDivergence) > 0_pInt) write(6,'(a)') ' spectral divergence debugging'
if (iand(debug_spectral,debug_spectalRestart) > 0_pInt) write(6,'(a)') ' spectral restart debugging' if (iand(debug_spectral,debug_spectralRestart) > 0_pInt) write(6,'(a)') ' spectral restart debugging'
!$OMP END CRITICAL (write2out) !$OMP END CRITICAL (write2out)
endsubroutine endsubroutine