Lines Matching refs:NTHETA
64 INTEGER NPAR,NTHETA,I,J,K,IFAIL,IFAILNEW,IOPT,NCLIN,NCNLN,LDA,ITER,
75 NTHETA = INDT(nt+2)! # of free parameters theta
76 NPAR = NTHETA+np ! # of parameters (total)
117 DO I = 1,NTHETA
126 CHINEW(NTHETA+1:NPAR) = psi(1:np)
141 LBV(1:NTHETA) = thetaprior(INDT(1:NTHETA),3)
142 UBV(1:NTHETA) = thetaprior(INDT(1:NTHETA),4)
143 LBV(NTHETA+1:NPAR) = 1.D-3
145 UBV(NTHETA+1:NPAR) = 1.D0-1.D-3
147 K = NTHETA
228 DO 50 I=1,NTHETA
233 DO 55 I=NTHETA+1,NTHETA+np
234 DO 55 J=1,NTHETA
235 K = (I+nt-NTHETA)*(I+nt-NTHETA+1)/2 - (I+nt-NTHETA) + INDT(J)
238 DO 60 I=NTHETA+1,NTHETA+np
239 DO 60 J=NTHETA+1,I
240 K = (I+nt-NTHETA)*(I+nt-NTHETA+1)/2 - I + J
261 theta(INDT(1:NTHETA)) = CHI(1:NTHETA)
262 IF (NPAR.GT.NTHETA) psi(1:np) = CHI(NTHETA+1:NPAR)