223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

save some space

This commit is contained in:
Martin Diehl 2015-07-02 09:45:25 +00:00
parent 74af77a81f
commit 72b7df34a3
2 changed files with 42 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/Makefile
View File

@ -579,7 +579,7 @@ plastic_none.o: plastic_none.f90 \
ifeq "$(F90)" "gfortran" ifeq "$(F90)" "gfortran"
lattice.o: lattice.f90 \ lattice.o: lattice.f90 \
material.o material.o
$(PREFIX) $(COMPILERNAME) $(COMPILE) -ffree-line-length-170 -c lattice.f90 $(SUFFIX) $(PREFIX) $(COMPILERNAME) $(COMPILE) -ffree-line-length-150 -c lattice.f90 $(SUFFIX)
# long lines for interaction matrix # long lines for interaction matrix
else else
lattice.o: lattice.f90 \ lattice.o: lattice.f90 \

1
code/lattice.f90
View File

@ -915,7 +915,6 @@ module lattice
110,110, 109,109, 108,108, 107,107,107,107, 106,106, 105,105,105,105, 104,104, 103,103, 102,102,102,102, 101,101,101,101,101,100,101,101, & 110,110, 109,109, 108,108, 107,107,107,107, 106,106, 105,105,105,105, 104,104, 103,103, 102,102,102,102, 101,101,101,101,101,100,101,101, &
110,110, 109,109, 108,108, 107,107,107,107, 106,106, 105,105,105,105, 104,104, 103,103, 102,102,102,102, 101,101,101,101,101,101,100,101, & 110,110, 109,109, 108,108, 107,107,107,107, 106,106, 105,105,105,105, 104,104, 103,103, 102,102,102,102, 101,101,101,101,101,101,100,101, &
110,110, 109,109, 108,108, 107,107,107,107, 106,106, 105,105,105,105, 104,104, 103,103, 102,102,102,102, 101,101,101,101,101,101,101,100 & 110,110, 109,109, 108,108, 107,107,107,107, 106,106, 105,105,105,105, 104,104, 103,103, 102,102,102,102, 101,101,101,101,101,101,101,100 &
!
],pInt),[lattice_bct_Nslip,lattice_bct_Nslip],order=[2,1]) ],pInt),[lattice_bct_Nslip,lattice_bct_Nslip],order=[2,1])
! integer(pInt), dimension(LATTICE_bct_Nslip,LATTICE_bct_Ntwin), parameter, public :: & ! integer(pInt), dimension(LATTICE_bct_Nslip,LATTICE_bct_Ntwin), parameter, public :: &