string length handling in-line with other functions

2019-03-26 06:27:13 +01:00 · 2019-03-26 06:27:13 +01:00 · 1869f2cdcd
parent 2feb79833c
commit 1869f2cdcd
1 changed files with 1 additions and 1 deletions
--- a/src/lattice.f90
+++ b/src/lattice.f90
@ -1007,7 +1007,7 @@ function lattice_characteristicShear_Twin(Ntwin,structure,CoverA) result(charact

 implicit none
 integer,     dimension(:),            intent(in) :: Ntwin                                          !< number of active twin systems per family
- character(len=3),                     intent(in) :: structure                                      !< lattice structure
+ character(len=*),                     intent(in) :: structure                                      !< lattice structure
 real(pReal),                          intent(in) :: cOverA                                         !< c/a ratio
 real(pReal), dimension(sum(Ntwin))               :: characteristicShear