1 module solvedata 2 3 integer nsolflow,npermDims, nTmpDims, nPermDimsS, nTmpDimsS 4 5 real*8, allocatable :: lhsP(:,:), lhsK(:,:), lhsS(:,:) 6 real*8, allocatable :: aperm(:,:), atemp(:,:) 7 real*8, allocatable :: apermS(:,:,:), atempS(:,:) 8 9 end module 10 11c----------------------------------------------------------------------- 12c allocate the arrays 13c----------------------------------------------------------------------- 14 15 16 subroutine aSD 17 18 use solvedata 19 include "common.h" 20 if(nsolflow.eq.1) then 21 allocate (lhsP(4,nnz_tot)) 22 allocate (lhsK(9,nnz_tot)) 23 if(leslib.eq.1) then 24 allocate (aperm(nshg,nPermDims)) 25 allocate (atemp(nshg,nTmpDims)) 26 endif 27 endif 28 29 return 30 end 31c----------------------------------------------------------------------- 32c delete the arrays 33c----------------------------------------------------------------------- 34 35 36 subroutine dSD 37 38 use solvedata 39 40 deallocate (lhsP) 41 42 return 43 end 44