1 module spebc 2 3 integer nfin, nelint, npin, npint, nfint 4 real*8 sang 5 real*8 xnrml, ynrml, znrml, aR, aI 6 7 8 9 real*8, allocatable :: xyn(:), xynin(:) 10 real*8, allocatable :: xcyl(:,:),xintl(:,:,:),xsinfin(:,:,:) 11 12 13 integer, allocatable :: ien2D(:,:), nen1(:), elcnfin(:,:) 14 integer, allocatable :: nrint(:), imax(:) 15 16 end module 17 18c----------------------------------------------------------------------- 19c allocate the spebc arrays 20c----------------------------------------------------------------------- 21 subroutine setSPEBC(numnp,nsd) 22 23 use spebc 24 25 allocate (xyn(numnp)) 26 allocate (xynin(numnp)) 27 allocate (xcyl(numnp,nsd)) 28 allocate (nen1(numnp)) 29 30c allocate (elcnpin(numnp)) 31c allocate (xsi(numnp,nsd)) 32 33 34 35 return 36 end 37 38