addprm.f: 1000 format('*** Parameter ''',a,''' is already being varied ***')
addprm.f: 1001 format('*** Limit of',i2,' variable parameters exceeded ***')
addprm.f: 1002 format('*** Index out of range ***')
assgnc.f: 1000 format('*** Basis set number/ID required ***')
assgnc.f: 1001 format('*** Illegal index: ''',a,''' ***')
assgnc.f: 1004 format('*** basis set ',i2,' is not defined ***')
assgnc.f: 1001 format('*** Illegal index: ''',a,''' ***')
basisc.f: 1000 format('*** No basis set file ID specifed ***')
basisc.f: 1004 format('*** Maximum of',i2,' basis sets exceeded ***')
basisc.f: 1006 format('*** Error reading ''',a,''': no basis set added ***')
basisc.f: 1000 format('*** No basis set specifed ***')
basisc.f: 1002 format('*** Basis set ''',a,''' not defined ***') 
bassqz.f: 1000 format('*** Error in basis storage: set',i2,' starts at',i5,
cmds.f: 1001 format('*** Real value expected: ''',a,''' ***')
cmds.f: 1002 format('*** ''',a,''' is not a variable parameter ***')
cmds.f: 1003 format('*** No value given for ''',a,''' ***')
cmds.f: 1004 format('*** Parameter name expected ***')
cmds.f: 1006 format('*** GIB2 may only be varied for a series of PSI angles',
cmds.f: 1001 format('*** All variable parameters have been fixed ***')
cmds.f: 1002 format('*** ''',a,''' is not a variable parameter ***')
cmds.f: 1001 format('*** ''',a,''' is not a variable parameter ***')
cmds.f: 1002 format('*** SERIES reset to single spectrum ***')
cmds.f: 1003 format('*** Real value expected: ''',a,''' ***')
cmds.f: 1004 format('*** SERIES must have at least 2 values ***')
cmds.f: 1005 format('*** SERIES may not have more than',i2,
cmds.f: 1000 format('*** Number of sites must be ',i2,' or less ***')
cmds.f: 1001 format('*** Expecting integer value ***')
cmds.f: 1002 format('*** WARNING: spectrum ',i2,' (',a,
cmds.f: 1000 format('*** Illegal index: ''',a,''' ***')
cmds.f: 1019 format(/a,' ','*** Parameters for site',i2,' ***'/)
cmds.f: 2023 format(/a,' ','*** No series defined ***'/)
cmds.f: 3000 format('*** Unable to open file ',a,' for parameter output ***')
convtc.f: 1000 format('*** No tensor specified ***')
convtc.f: 1001 format('*** Unknown tensor: ''',a,''' ***')
convtc.f: 1002 format('*** ',a,' tensor set to ',a,' ***')
convtc.f: 1003 format('*** ',a,' tensor converted to ',a,' ***')
convtc.f: 1005 format('*** ',a,' tensor symmetry unchanged: ',a,
convtc.f: 1006 format('*** CONVERT called with illegal symmetry type ***')
covrpt.f: 2000 format(/24x,'*** Correlation Matrix ***'/)
covrpt.f: 2004 format(/9x,'*** Final Parameters ***',/,
datac.f: 1000 format('*** Unrecognized DATA keyword: ''',a,''' ***')
datac.f: 1003 format('*** No value given for ''',a,''' ***')
datac.f: 1010 format('*** Integer value expected: ''',a,''' ***')
datac.f: 1020 format('*** Data buffer has been reset *** ')
datac.f: 1040 format('*** Number of splined points reset to ',i4,' ***')
datac.f: 1050 format('*** Maximum number of data points (',i4,') exceeded ***')
datac.f: 1060 format(/13x,'*** Error opening or reading datafile ''',a,
fitc.f: 1000 format('*** Unrecognized FIT keyword: ''',a,''' ***')
fitc.f: 1001 format('*** Numeric value expected: ''',a,''' ***')
fitc.f: 1003 format('*** No value given for ''',a,''' ***')
fitc.f: 1050 format('*** A log file must be opened before using TRACE ***')
fitl.f: 1040 format(/10x,'*** No datafiles have been specified ***'/)
helpc.f: 1001 format('*** No help available for ''',a,' ',a,''' ***')
helpc.f: 1002 format('*** File ''nlshlp.txt'' not available ***')
helpc.f: 1003 format('*** Error reading file ''nlshlp.txt'' ***')
lbasix.f: 1001 format('*** Insufficient room for basis set ''',a,''' ***')
lbasix.f: 1002 format('*** Error reading basis set ''',a,''' ***')
lbasix.f: 1003 format('*** file ''',a,''' not found ***')
lbasix.f: 1004 format('*** lbasix called with illegal MTS: (',6(i3,','),
letc.f: 1000 format('*** Not enough values specified ***')
letc.f: 1001 format('*** Variable name expected ***')
letc.f: 1002 format('*** No ''='' specified ***')
letc.f: 1003 format('*** ''',a,''' is not a parameter ***')
letc.f: 1004 format('*** Real value expected: ''',a,''' ***')
letc.f: 1005 format('*** Integer value expected: ''',a,''' ***')
letc.f: 1011 format('*** Illegal log argument:',g12.5,' ***')
letc.f: 1012 format('*** Warning: ',a,' is being varied globally ***')
letc.f: 1013 format('*** Warning: ',a,' is now the same for all ',a,' ***')
lfun.f: 1000 format(/2x,'*** ',a,' site',i2,' spctrm',i2,': ',a)
lfun.f: 1001 format(/2x,'*** ',a)
nlsl.f: 1010 format(25x,'PROGRAM : NLSL'/20x,'*** Test version 1.4.1 ***'/
nlsl.f: 1020 format('*** File name must be specified ***'/)
nlsl.f: 1021 format('*** Log file is not open ***')
nlsl.f: 1022 format('*** Error',i3,' opening file ',a,' ***')
nlsl.f: 1030 format('*** Error opening or reading file ''',a,''' ***'/)
nlsl.f: 1040 format('*** Unknown command : ''',a,''' ***')
nlsl.f: 1050 format('*** Cannot open ''',a,''': more than',i2,
rmvprm.f: 1001 format('*** Parameter ''',a,''' is not being varied ***')
rmvprm.f: 1002 format('*** Parameter ''',a,''' fixed: ',
scalec.f: 1000 format('*** Site index expected ***')
scalec.f: 1001 format('*** Illegal index: ''',a,''' ***')
scalec.f: 1003 format('*** Unrecognized SCALE keyword: ''',a,''' ***')
scalec.f: 1005 format('*** Scale cannot be fixed when shifting is enabled ***')
setprm.f: 1000 format('*** Illegal index: ',i2,' ***')
setspc.f: 1000 format('*** B0(',i1,') outside range of spectrum ',i1,
shiftc.f: 1000 format('*** Spectrum ID expected ***')
shiftc.f: 1001 format('*** Illegal index: ''',a,''' ***')
shiftc.f: 1003 format('*** Illegal SHIFT value: ''',a,''' ***')
srchc.f: 1000 format('*** Unrecognized SEARCH keyword: ''',a,''' ***')
srchc.f: 1001 format('*** Numeric value expected: ''',a,''' ***')
srchc.f: 1002 format('*** ''',a,''' is not a variable parameter ***')
srchc.f: 1003 format('*** No value given for ''',a,''' ***')
srchc.f: 1004 format('*** ',a,' is not the same for all currently defined',
srchc.f: 1007 format('*** Terminated by user during bracketing of minimum ***')
srchc.f: 1008 format('*** Terminated by user ***'/'Best point is ',a,'= ',f9.5/)
srchc.f: 1011 format('*** ',a,' is series parameter: cannot be searched ***')
srchc.f: 1012 format('*** Minimum is at step bound ***'/2x,a,'=',f9.5/)
tdsqz.f: 1005 format('*** Error in tridiagonal matrix storage ***')
w3j.f:        write (*,*) '*** quantum nubers too large in w3j ***'
