Commit 845d2900 by Sebastian Heimann

### dos2unix line endings

parent cf6cec8b
 subroutine qsam2ve(n,ck,y,c,nj,rsite) implicit none c c converting wave amplitudes to displacement-stress vectors c by Langer block-diagonal decomposition technique for com- c putational efficiency c c converting wave amplitudes to displacement-stress vectors c by Langer block-diagonal decomposition technique for com- c putational efficiency c integer n,nj double complex ck ... ... @@ -11,37 +11,37 @@ c logical rsite c include 'qsglobal.h' c integer j c integer j double complex bp,bs,swap(4) c if(rsite)then bp=wbrs(n)*kprs(n) bs=wbrs(n)*ksrs(n) do j=1,nj swap(1)= c(1,j)-c(2,j) swap(2)= c(1,j)+c(2,j) swap(3)=-c(3,j)+c(4,j) swap(4)= c(3,j)+c(4,j) c y(1,j)=kprs(n)*swap(1)+ck*swap(4) y(2,j)=wars(n)*swap(2)-bs*swap(3) y(3,j)=ck*swap(2)-ksrs(n)*swap(3) y(4,j)=bp*swap(1)+wars(n)*swap(4) if(rsite)then bp=wbrs(n)*kprs(n) bs=wbrs(n)*ksrs(n) do j=1,nj swap(1)= c(1,j)-c(2,j) swap(2)= c(1,j)+c(2,j) swap(3)=-c(3,j)+c(4,j) swap(4)= c(3,j)+c(4,j) c y(1,j)=kprs(n)*swap(1)+ck*swap(4) y(2,j)=wars(n)*swap(2)-bs*swap(3) y(3,j)=ck*swap(2)-ksrs(n)*swap(3) y(4,j)=bp*swap(1)+wars(n)*swap(4) enddo else bp=wb(n)*kp(n) bs=wb(n)*ks(n) do j=1,nj swap(1)= c(1,j)-c(2,j) swap(2)= c(1,j)+c(2,j) swap(3)=-c(3,j)+c(4,j) swap(4)= c(3,j)+c(4,j) c y(1,j)=kp(n)*swap(1)+ck*swap(4) y(2,j)=wa(n)*swap(2)-bs*swap(3) y(3,j)=ck*swap(2)-ks(n)*swap(3) y(4,j)=bp*swap(1)+wa(n)*swap(4) else bp=wb(n)*kp(n) bs=wb(n)*ks(n) do j=1,nj swap(1)= c(1,j)-c(2,j) swap(2)= c(1,j)+c(2,j) swap(3)=-c(3,j)+c(4,j) swap(4)= c(3,j)+c(4,j) c y(1,j)=kp(n)*swap(1)+ck*swap(4) y(2,j)=wa(n)*swap(2)-bs*swap(3) y(3,j)=ck*swap(2)-ks(n)*swap(3) y(4,j)=bp*swap(1)+wa(n)*swap(4) enddo endif c ... ...
 ... ... @@ -25,9 +25,9 @@ c else bsj(ik,3,ir)=bessj(3,x) endif bsj(ik,-1,ir)=-bsj(ik,1,ir) do i=-1,3 bsj(ik,i,ir)=bsj(ik,i,ir)*geospr(ir) bsj(ik,-1,ir)=-bsj(ik,1,ir) do i=-1,3 bsj(ik,i,ir)=bsj(ik,i,ir)*geospr(ir) enddo enddo enddo ... ...