1 SUBROUTINE trigfunc (uang, vang, cosm, sinm, cosn, sinn,
4 USE booz_params,
ONLY: nfp
8 INTEGER,
INTENT(in) :: mpol, ntor, nznt
9 REAL(rprec),
DIMENSION(nznt),
INTENT(in) :: uang, vang
10 REAL(rprec),
DIMENSION(nznt,0:mpol),
INTENT(out) :: cosm, sinm
11 REAL(rprec),
DIMENSION(nznt,0:ntor),
INTENT(out) :: cosn, sinn
24 cosm(:,m) = cosm(:,m-1)*cosm(:,1)
25 1 - sinm(:,m-1)*sinm(:,1)
26 sinm(:,m) = sinm(:,m-1)*cosm(:,1)
27 1 + cosm(:,m-1)*sinm(:,1)
33 cosn(:,1) = cos(vang*nfp)
34 sinn(:,1) = sin(vang*nfp)
38 cosn(:,n) = cosn(:,n-1)*cosn(:,1)
39 1 - sinn(:,n-1)*sinn(:,1)
40 sinn(:,n) = sinn(:,n-1)*cosn(:,1)
41 1 + cosn(:,n-1)*sinn(:,1)
44 END SUBROUTINE trigfunc