1 SUBROUTINE load_saddle_coils (nvariables, xvariables)
10 INTEGER :: i, n, nsv, modes
12 REAL(rprec) :: xvariables(*)
21 IF (.not.lsadshape)
RETURN
29 IF (nvar_vc(i,n).ne.0)
THEN
31 sad_v_c(i,n) = xvariables(nsv)
38 sad_v_s(i,n) = xvariables(nsv)
39 IF (sad_v_s(i,n) .le. sad_v_s(i,n-1))
THEN
40 stop
'v-spline knots decreasing'
44 IF (nsad_u .gt. 0)
THEN
47 IF (nvar_uc(i,n).ne.0)
THEN
49 sad_u_c(i,n) = xvariables(nsv)
56 sad_u_s(i,n) = xvariables(nsv)
57 IF (sad_u_s(i,n) .le. sad_u_s(i,n-1))
THEN
58 stop
'u-spline knots decreasing'
71 sad_v_c(i,modes) = xvariables(nsv)
75 sad_v_c(i,modes) = xvariables(nsv)
77 sad_v_s(i,modes) = xvariables(nsv)
80 IF (nsad_u .gt. 0)
THEN
83 sad_u_c(i,modes) = xvariables(nsv)
87 sad_u_c(i,modes) = xvariables(nsv)
89 sad_u_s(i,modes) = xvariables(nsv)
98 END SUBROUTINE load_saddle_coils