forgot to allocate array now used internally only

This commit is contained in:
Martin Diehl 2018-09-13 09:27:54 +02:00
parent ae8efe2755
commit cc20b044a6
1 changed files with 1 additions and 0 deletions

View File

@ -1264,6 +1264,7 @@ subroutine lattice_init
allocate(lattice_structure(Nphases),source = LATTICE_undefined_ID)
allocate(trans_lattice_structure(Nphases),source = LATTICE_undefined_ID)
allocate(lattice_C66(6,6,Nphases), source=0.0_pReal)
allocate(temp66(6,6,Nphases), source=0.0_pReal)
allocate(lattice_C3333(3,3,3,3,Nphases), source=0.0_pReal)
allocate(lattice_trans_C66(6,6,Nphases), source=0.0_pReal)
allocate(lattice_trans_C3333(3,3,3,3,Nphases), source=0.0_pReal)