/*
 * JsMin
 * Javascript Compressor
 * http://www.crockford.com/
 * http://www.smallsharptools.com/
*/

dp.sh.Brushes.Fortran=function()
{var keywords='begin break stop select case cycle do while until if then else '+
	'end endif endcase enddo \\.or\\. \\.and\\. \\.true\\. \\.false\\. \\.lt\\. \\.le\\. \\.gt\\. \\.ge\\. \\.ne\\. \\.eq\\. '+
	'implicit call function subroutine contains uses program return pause save '+
	'common dimension equivalence data external goto assign format recursive pointer nullify '+
	'real integer character double\ precision double complex logical parameter allocatable bit';
var builtins='write read allocate backspace rewind endfile deallocate '+
	'cos sin tan srqt abs atan exp log maxval minval matmul len '+
	'iabs log10 asin acos nint min max amax1 amax0 max0 max1 tiny huge precision where'
this.regexList=[
	{regex:dp.sh.RegexLib.DoubleQuotedString,css:'string'},
	{regex:dp.sh.RegexLib.SingleQuotedString,css:'string'},
	{regex:new RegExp('!(.*)$','gm'),css:'comment'},
	{regex:new RegExp(this.GetKeywords(keywords),'gm'),css:'keyword'},
	{regex:new RegExp(this.GetKeywords(builtins),'gm'),css:'builtin'}];
this.CssClass='dp-fo';
this.Style='.dp-fo .builtin { color: #a70; font-weight: bold; }';}

dp.sh.Brushes.Fortran.prototype=new dp.sh.Highlighter();
dp.sh.Brushes.Fortran.Aliases=['fortran','f90', 'f77', 'f95'];