From 83ff05c8e899e137898e5a19a69d1dfbe81df01c Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Thu, 12 Jan 2012 15:08:44 +0000 Subject: [PATCH] fixed bugs (sorry...) --- code/DAMASK_spectral.f90 | 2 +- code/debug.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/code/DAMASK_spectral.f90 b/code/DAMASK_spectral.f90 index 812dbf3b2..7d0a8acb4 100644 --- a/code/DAMASK_spectral.f90 +++ b/code/DAMASK_spectral.f90 @@ -63,7 +63,7 @@ program DAMASK_spectral (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, & ! dropguessing - maxNchunksGeom = 7_pInt ! 4 identifiers, 3 values + maxNchunksGeom = 7_pInt, & ! 4 identifiers, 3 values myUnit = 234_pInt 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 diff --git a/code/debug.f90 b/code/debug.f90 index 62e2a0f1f..5d0b0bae4 100644 --- a/code/debug.f90 +++ b/code/debug.f90 @@ -180,7 +180,7 @@ subroutine debug_init() !$OMP CRITICAL (write2out) ! bitwise coded 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_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) endsubroutine