| character *50, dimension(neperr), save | errmsg::eprerr = (/ 'Zero nuclear spin assumed ' , 'Positive B0 assumed ' , 'High-field approx. may not apply ' , 'Nonzero potential with jump/free: ipdf set to 0 ' , 'Zero potential with aniso. viscos.: ipdf set to 0 ' , 'Discrete jumps with aniso. viscos.: ipdf set 0 ' , 'lemx must be 48 or less with potential ' , 'Basis set adjusted to (iii,iii,iii,iii,iii,iii,ii)' , 'NSTEP too large: adjusted to iiiii ' , 'CGTOL too small: adjusted to xxxxxxxxx ' , 'SHIFTR too small: adjusted to xxxxxxxxx ' , 'CG did not converge after iiiii steps ' , 'Angle alpham not needed w/ axial g-matrix ' , 'Angle alphad not needed w/ axial diffusion tensor ' , 'Taylor series for Bessel function did not converge' , 'Zero B0 ' , 'Zero g-tensor element ' , 'Error in tridiagonal matrix storage ' , 'Too many matrix elements ' , 'Matrix dimension too large ' , 'User halt during matrix calculation ' , 'User halt during CG tridiagonalization ' , 'Too many tridiagonal matrix elements ' , 'Bracketing did not find minimum within step bound ' , 'Number of points in spectrum is zero ' , 'Field range of spectrum is zero ' /) |
| character *32, dimension(0:nmnerr-1), save | errmsg::minerr = (/ 'Bad input parameters ' , 'Chi-squared convergence ' , 'X vector convergence ' , 'Chi-squared/X vector convergence' , 'Gradient convergence ' , 'Max function evaluations reached' , 'Max iterations reached ' , 'FTOL too small ' , 'XTOL too small ' , 'Zero Jacobian or GTOL too small ' , 'Terminated internally ' , 'Single calculation completed ' /) |
1.8.9.1 
