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

changed pointer attribute to allocatable in tState. since the pointers are only used for allocation, allocatables should do the same job more efficiently

This commit is contained in:
Pratheek Shanthraj 2014-06-25 14:22:08 +00:00
parent 28f3ba6841
commit baaf104238
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
code/prec.f90
View File

@ -63,21 +63,21 @@ module prec
#ifdef NEWSTATE
!http://stackoverflow.com/questions/3948210/can-i-have-a-pointer-to-an-item-in-an-allocatable-array
type, public :: tState
integer(pInt) :: sizeState,sizeDotState
logical :: nonlocal
real(pReal), pointer, dimension(:) :: atolState
real(pReal), pointer, dimension(:,:) :: state, & ! material points, state size
dotState, &
state0, &
partionedState0, &
subState0, &
state_backup, &
deltaState, &
previousDotState, &
previousDotState2, &
dotState_backup, &
RK4dotState
real(pReal), pointer, dimension(:,:,:) :: RKCK45dotState
integer(pInt) :: sizeState,sizeDotState
logical :: nonlocal
real(pReal), allocatable, dimension(:) :: atolState
real(pReal), allocatable, dimension(:,:) :: state, & ! material points, state size
dotState, &
state0, &
partionedState0, &
subState0, &
state_backup, &
deltaState, &
previousDotState, &
previousDotState2, &
dotState_backup, &
RK4dotState
real(pReal), allocatable, dimension(:,:,:) :: RKCK45dotState
end type
#endif