Merge pull request #101 from victorkemp/fix-issue-#99

Fix issue #99 shell orthotropic thermal strain

Author: zchlrnr

Source/EMG/EMG1/SHELL_ABD_MATRICES.f90

@@ -186,9 +186,12 @@ SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN )
          ENDDO
 
          DO I=1,3
-            ALPM(I) = ALPVEC(I,1)
             ALPB(I) = ALPVEC(I,2)
          ENDDO
+
+         ALPM(1) = ALPVEC(1,1)                             ! xx
+         ALPM(2) = ALPVEC(2,1)                             ! yy
+         ALPM(3) = ALPVEC(4,1)*2                           ! xy
 
          CALL MATMULT_FFF ( EB, ALPB, 3, 3, 1, DUM )
          DO I=1,3