1 module timedata 2 3 integer ntspts, freq, iterat, varcod 4 integer iblkts 5 real*8 tolpt 6 logical exts 7 8 integer, allocatable :: statptts(:,:) 9 real*8, allocatable :: ptts(:,:) 10 real*8, allocatable :: parptts(:,:) 11 real*8, allocatable :: varts(:,:) 12 13 integer, allocatable :: iv_rank(:) 14 integer, allocatable :: ivarts(:) 15 integer, allocatable :: ivartsg(:) 16 real*8, allocatable :: vartssoln(:) 17 real*8, allocatable :: vartssolng(:) 18 19 end module 20 21 module pp_data 22 23 integer numppnodes, ppfreq 24 25 integer, allocatable :: ppnodes(:,:) 26 27 end module 28 29 30c----------------------------------------------------------------------- 31c allocate the arrays 32c----------------------------------------------------------------------- 33 34 35 subroutine sTD 36 37 use timedata 38 include "common.h" 39 40 allocate (statptts(ntspts,2)) 41 allocate (ptts(ntspts,nsd)) 42 allocate (parptts(ntspts,nsd)) 43 allocate (varts(ntspts,ndof)) 44 45 allocate (ivarts(ntspts*ndof)) 46 allocate (ivartsg(ntspts*ndof)) 47 allocate (iv_rank(ntspts)) 48 allocate (vartssoln(ntspts*ndof)) 49 allocate (vartssolng(ntspts*ndof)) 50 51 return 52 end 53c----------------------------------------------------------------------- 54c delete the arrays 55c----------------------------------------------------------------------- 56 57 58 subroutine dTD 59 60 use timedata 61 62 deallocate (ptts) 63 deallocate (varts) 64 deallocate (statptts) 65 deallocate (parptts) 66 67 deallocate (ivarts) 68 deallocate (ivartsg) 69 deallocate (iv_rank) 70 deallocate (vartssoln) 71 deallocate (vartssolng) 72 73 return 74 end 75